diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 22:47:47 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 22:47:47 +0000 |
commit | 8ed37e3c2d52e5275cc8a7571dd2b466db05e3f8 (patch) | |
tree | dd4d2d0b5711f73d78787f682751e552b871f0f9 /c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads | |
parent | Corrected for this test. (diff) | |
download | rtems-8ed37e3c2d52e5275cc8a7571dd2b466db05e3f8.tar.bz2 |
corrected to compile with the new binding.
Diffstat (limited to 'c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads')
-rw-r--r-- | c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads | 43 |
1 files changed, 22 insertions, 21 deletions
diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads index 2f171875c3..ccad73c0ef 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads +++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads @@ -30,12 +30,7 @@ package DUMMY_RTEMS is procedure INITIALIZE_EXECUTIVE ( CONFIGURATION_TABLE : in RTEMS.CONFIGURATION_TABLE_POINTER; - CPU_TABLE : in RTEMS.CPU_TABLE_POINTER; - TASK_TABLE : in RTEMS.INITIALIZATION_TASKS_TABLE_POINTER; - DRIVER_TABLE : in RTEMS.DRIVER_ADDRESS_TABLE_POINTER; - EXTENSION_TABLE : in RTEMS.EXTENSIONS_TABLE_POINTER; - MULTIPROCESSING_TABLE : in RTEMS.MULTIPROCESSING_TABLE_POINTER; - MPCI_TABLE : in RTEMS.MPCI_TABLE_POINTER + CPU_TABLE : in RTEMS.CPU_TABLE_POINTER ); procedure SHUTDOWN_EXECUTIVE ( @@ -63,7 +58,7 @@ package DUMMY_RTEMS is procedure TASK_START ( ID : in RTEMS.ID; - ENTRY_POINT : in RTEMS.TASK_ENTRY_POINT; + ENTRY_POINT : in RTEMS.TASK_ENTRY; ARGUMENT : in RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ); @@ -201,11 +196,12 @@ package DUMMY_RTEMS is -- Semaphore Manager procedure SEMAPHORE_CREATE ( - NAME : in RTEMS.NAME; - COUNT : in RTEMS.UNSIGNED32; - ATTRIBUTE_SET : in RTEMS.ATTRIBUTE; - ID : out RTEMS.ID; - RESULT : out RTEMS.STATUS_CODES + NAME : in RTEMS.NAME; + COUNT : in RTEMS.UNSIGNED32; + ATTRIBUTE_SET : in RTEMS.ATTRIBUTE; + PRIORITY_CEILING : in RTEMS.TASK_PRIORITY; + ID : out RTEMS.ID; + RESULT : out RTEMS.STATUS_CODES ); procedure SEMAPHORE_DELETE ( @@ -235,11 +231,12 @@ package DUMMY_RTEMS is -- Message Queue Manager procedure MESSAGE_QUEUE_CREATE ( - NAME : in RTEMS.NAME; - COUNT : in RTEMS.UNSIGNED32; - ATTRIBUTE_SET : in RTEMS.ATTRIBUTE; - ID : out RTEMS.ID; - RESULT : out RTEMS.STATUS_CODES + Name : in RTEMS.Name; + Count : in RTEMS.Unsigned32; + Max_Message_Size : in RTEMS.Unsigned32; + Attribute_Set : in RTEMS.Attribute; + ID : out RTEMS.ID; + Result : out RTEMS.Status_Codes ); procedure MESSAGE_QUEUE_IDENT ( @@ -256,28 +253,32 @@ package DUMMY_RTEMS is procedure MESSAGE_QUEUE_SEND ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; + SIZE : in RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ); procedure MESSAGE_QUEUE_URGENT ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; + SIZE : in RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ); procedure MESSAGE_QUEUE_BROADCAST ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; + SIZE : in RTEMS.UNSIGNED32; COUNT : out RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ); procedure MESSAGE_QUEUE_RECEIVE ( ID : in RTEMS.ID; - BUFFER : in RTEMS.BUFFER_POINTER; + BUFFER : in RTEMS.ADDRESS; OPTION_SET : in RTEMS.OPTION; TIMEOUT : in RTEMS.INTERVAL; + SIZE : out RTEMS.UNSIGNED32; RESULT : out RTEMS.STATUS_CODES ); |