From 68645f025ad66553ec71e02a24b99c6c1240e7d8 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 8 Jul 2008 15:34:14 +0000 Subject: 2008-07-08 Joel Sherrill * interrupt_pkg.adb: Force an RTEMS shutdown when we are done. * ChangeLog: New file. --- irq_test/ChangeLog | 5 +++++ irq_test/interrupt_pkg.adb | 2 ++ 2 files changed, 7 insertions(+) create mode 100644 irq_test/ChangeLog 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 + + * 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 -- cgit v1.2.3