ada-examples-4-10-branchada-examples-4-9-branch
Last change
on this file since 14f44a3 was
14f44a3,
checked in by Joel Sherrill <joel.sherrill@…>, on 10/17/07 at 20:55:06
|
2007-10-17 Joel Sherrill <joel.sherrill@…>
- Makefile, Makefile.shared, rtems_init.c, irq_test/interrupt_pkg.adb,
irq_test/interrupt_pkg.ads, irq_test/irqforce.c,
irq_test/irqtest.adb, rootfs/etc/hosts: Adding new tests as
improvements are made to the RTEMS port of the GNAT run-time.
- empty/Makefile, empty/README, empty/empty.adb,
hello_via_task/.cvsignore, hello_via_task/Makefile,
hello_via_task/hello.adb, irq_test/.cvsignore, irq_test/Makefile,
irq_test/README, irq_test_c/.cvsignore, irq_test_c/Makefile,
irq_test_c/README, irq_test_c/init.c, irq_test_c/irqforce.c: New files.
|
-
Property mode set to
100644
|
File size:
448 bytes
|
Line | |
---|
1 | -- |
---|
2 | -- Hello World Using a Task |
---|
3 | -- |
---|
4 | |
---|
5 | with Text_IO; use Text_IO; |
---|
6 | |
---|
7 | procedure Hello is |
---|
8 | |
---|
9 | task Hello_Task; |
---|
10 | |
---|
11 | task body Hello_Task is |
---|
12 | begin |
---|
13 | Put_Line ("GNAT/RTEMS Hello World Test"); |
---|
14 | New_Line; |
---|
15 | Put_Line ("Welcome to the World of Lady Ada"); |
---|
16 | |
---|
17 | New_Line; |
---|
18 | Put_Line ("Initiating 2.5 second delay"); |
---|
19 | delay 2.5; |
---|
20 | Put_Line ("Delay Complete"); |
---|
21 | |
---|
22 | Put_Line ("Test Complete"); |
---|
23 | end Hello_Task; |
---|
24 | |
---|
25 | begin |
---|
26 | NULL; |
---|
27 | end Hello; |
---|
Note: See
TracBrowser
for help on using the repository browser.