diff options
Diffstat (limited to 'c/src/lib/libbsp/i386/ts_386ex/tools/debug_ada/debug.adb')
-rw-r--r-- | c/src/lib/libbsp/i386/ts_386ex/tools/debug_ada/debug.adb | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/c/src/lib/libbsp/i386/ts_386ex/tools/debug_ada/debug.adb b/c/src/lib/libbsp/i386/ts_386ex/tools/debug_ada/debug.adb deleted file mode 100644 index fd9215c978..0000000000 --- a/c/src/lib/libbsp/i386/ts_386ex/tools/debug_ada/debug.adb +++ /dev/null @@ -1,32 +0,0 @@ -with Ada.Text_IO; use Ada.Text_IO; -with Ada.Numerics.Discrete_Random; - -with TS1325.LED; use TS1325.LED; - -with Serial_Debug; use Serial_Debug; - -procedure Debug is - - package Random_LED_Colour is - new Ada.Numerics.Discrete_Random (LED_Colour); - use Random_LED_Colour; - - Colour_Gen: Random_LED_Colour.Generator; - - New_Colour: LED_Colour; - - Count: Integer := 0; - -begin - Breakpoint; - - Put_Line ("******* Starting Random LED Debug Test *******"); - - for I in 1 .. 10_000 loop - Count := Count + 1; - New_Colour := Random_LED_Colour.Random (Colour_Gen); - LED_State.Set (New_Colour); - end loop; - - Put_Line ("******* Finished Random LED Debug Test *******"); -end Debug; |