diff options
Diffstat (limited to 'c/src/ada-tests/mptests/mp14/mptest.adb')
-rw-r--r-- | c/src/ada-tests/mptests/mp14/mptest.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/c/src/ada-tests/mptests/mp14/mptest.adb b/c/src/ada-tests/mptests/mp14/mptest.adb index e43aec8ae5..a15b7dc91b 100644 --- a/c/src/ada-tests/mptests/mp14/mptest.adb +++ b/c/src/ada-tests/mptests/mp14/mptest.adb @@ -22,8 +22,8 @@ -- with INTERFACES; use INTERFACES; +with INTERFACES.C; with BSP; -with BSP_MPCI; with RTEMS; with TEST_SUPPORT; with TEXT_IO; @@ -56,12 +56,14 @@ package body MPTEST is procedure EXIT_TEST is OLD_MODE : RTEMS.MODE; STATUS : RTEMS.STATUS_CODES; + procedure BSP_MPCI_PRINT_STATISTICS; + pragma Import (C, BSP_MPCI_PRINT_STATISTICS, "MPCI_Print_statistics" ); begin RTEMS.TASK_MODE( RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" ); - BSP_MPCI.PRINT_STATISTICS; + BSP_MPCI_PRINT_STATISTICS; RTEMS.SHUTDOWN_EXECUTIVE( 0 ); |