4.104.114.84.95
Last change
on this file since 3299388d was
1d4048b2,
checked in by Joel Sherrill <joel.sherrill@…>, on 08/11/99 at 23:45:57
|
Patch from Tony R. Ambardar <tonya@…>:
I'm attaching a big patch for the ts_386ex BSP which adds and includes
the following:
1) Conversion to ELF format + minor code cleanups + documentation.
2) An Ada95 binding to FreeBSD sockets, based on Samuel Tardieu's
adasockets-0.1.3 package. This includes some sample applications.
3) Some Ada and C interfaces to add serial-port debugging to
programs. Comes with examples, too; the Ada one shows how
transparent adding the support can be. Note that Rosimildo sent me
the original C code.
The network stuff is not BSP specific, and could be added to your Ada
code collection. The debugging stuff is specific to the i386. Right
now, everything sits in my "tools" directory.
|
-
Property mode set to
100644
|
File size:
699 bytes
|
Line | |
---|
1 | with Ada.Text_IO; use Ada.Text_IO; |
---|
2 | with Ada.Numerics.Discrete_Random; |
---|
3 | |
---|
4 | with TS1325.LED; use TS1325.LED; |
---|
5 | |
---|
6 | with Serial_Debug; use Serial_Debug; |
---|
7 | |
---|
8 | procedure Debug is |
---|
9 | |
---|
10 | package Random_LED_Colour is |
---|
11 | new Ada.Numerics.Discrete_Random (LED_Colour); |
---|
12 | use Random_LED_Colour; |
---|
13 | |
---|
14 | Colour_Gen: Random_LED_Colour.Generator; |
---|
15 | |
---|
16 | New_Colour: LED_Colour; |
---|
17 | |
---|
18 | Count: Integer := 0; |
---|
19 | |
---|
20 | begin |
---|
21 | Breakpoint; |
---|
22 | |
---|
23 | Put_Line ("******* Starting Random LED Debug Test *******"); |
---|
24 | |
---|
25 | for I in 1 .. 10_000 loop |
---|
26 | Count := Count + 1; |
---|
27 | New_Colour := Random_LED_Colour.Random (Colour_Gen); |
---|
28 | LED_State.Set (New_Colour); |
---|
29 | end loop; |
---|
30 | |
---|
31 | Put_Line ("******* Finished Random LED Debug Test *******"); |
---|
32 | end Debug; |
---|
Note: See
TracBrowser
for help on using the repository browser.