diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-07-08 15:34:14 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-07-08 15:34:14 +0000 |
commit | 68645f025ad66553ec71e02a24b99c6c1240e7d8 (patch) | |
tree | 08fb8e1ebe53009c58afc2a2fd087574f201433f | |
parent | 2008-07-08 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
download | ada-examples-68645f025ad66553ec71e02a24b99c6c1240e7d8.tar.bz2 |
2008-07-08 Joel Sherrill <joel.sherrill@oarcorp.com>
* interrupt_pkg.adb: Force an RTEMS shutdown when we are done.
* ChangeLog: New file.
-rw-r--r-- | irq_test/ChangeLog | 5 | ||||
-rw-r--r-- | irq_test/interrupt_pkg.adb | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/irq_test/ChangeLog b/irq_test/ChangeLog new file mode 100644 index 0000000..df378dc --- /dev/null +++ b/irq_test/ChangeLog @@ -0,0 +1,5 @@ +2008-07-08 Joel Sherrill <joel.sherrill@oarcorp.com> + + * interrupt_pkg.adb: Force an RTEMS shutdown when we are done. + * ChangeLog: New file. + diff --git a/irq_test/interrupt_pkg.adb b/irq_test/interrupt_pkg.adb index 729b284..33c49b6 100644 --- a/irq_test/interrupt_pkg.adb +++ b/irq_test/interrupt_pkg.adb @@ -25,6 +25,7 @@ with Ada.Interrupts; with System; with Ada.Text_IO; with Ada.Real_Time; use Ada.Real_Time; +with RTEMS; package body Interrupt_pkg is @@ -102,6 +103,7 @@ package body Interrupt_pkg is -- Have to kill sporadic to exit since it is has an infinite loop abort sporadic; + RTEMS.Shutdown_Executive (0); end; begin |