Changeset 3c4d8cd1 in rtems for c/src/ada-tests/support
- Timestamp:
- Feb 16, 2011, 3:53:16 PM (10 years ago)
- Branches:
- 4.11, 5, master
- Children:
- 0f7b6eff
- Parents:
- 1987020
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/support/test_support.adb
r1987020 r3c4d8cd1 11 11 -- 12 12 -- 13 -- COPYRIGHT (c) 1989-20 09.13 -- COPYRIGHT (c) 1989-2011. 14 14 -- On-Line Applications Research Corporation (OAR). 15 15 -- … … 25 25 with Status_IO; 26 26 with Text_IO; 27 with RTEMS.Fatal; 27 28 28 29 package body Test_Support is 29 30 30 --PAGE31 31 -- 32 32 -- Fatal_Directive_Status … … 49 49 Text_IO.New_Line; 50 50 51 RTEMS.Fatal _Error_Occurred( RTEMS.Status_Codes'Pos( Status ) );51 RTEMS.Fatal.Error_Occurred( RTEMS.Status_Codes'Pos( Status ) ); 52 52 53 53 end if; … … 55 55 end Fatal_Directive_Status; 56 56 57 --PAGE58 57 -- 59 58 -- Directive_Failed … … 74 73 end Directive_Failed; 75 74 76 --PAGE77 75 -- 78 76 -- Print_Time … … 102 100 end Print_Time; 103 101 104 --PAGE105 102 -- 106 103 -- Put_Dot … … 115 112 end Put_Dot; 116 113 117 --PAGE118 114 -- 119 115 -- Pause … … 134 130 end Pause; 135 131 136 --PAGE137 132 -- 138 133 -- Pause_And_Screen_Number … … 156 151 end Pause_And_Screen_Number; 157 152 158 --PAGE159 153 -- 160 154 -- Put_Name … … 184 178 end Put_Name; 185 179 186 --PAGE187 180 -- 188 181 -- Task_Number … … 199 192 end Task_Number; 200 193 201 --PAGE202 194 -- 203 195 -- Do_Nothing … … 210 202 211 203 212 --PAGE213 204 -- 214 205 -- Milliseconds_Per_Tick … … 223 214 end Milliseconds_Per_Tick; 224 215 225 --PAGE226 216 -- 227 217 -- Milliseconds_Per_Tick
Note: See TracChangeset
for help on using the changeset viewer.