diff options
-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 |