systemh.inc 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578
  1. {
  2. $Id$
  3. This file is part of the Free Pascal Run time library.
  4. Copyright (c) 1993,97 by the Free Pascal development team
  5. This File contains the OS independent declarations of the system unit
  6. See the File COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. {
  13. Supported conditionnals:
  14. ------------------------
  15. RTLLITE Create a somewhat smaller RTL
  16. }
  17. {****************************************************************************
  18. Needed switches
  19. ****************************************************************************}
  20. {$I-,Q-,H-,R-,V-}
  21. { needed for insert,delete,readln }
  22. {$P+}
  23. { Stack check gives a note under linux }
  24. {$ifndef linux}
  25. {$S-}
  26. {$endif}
  27. {****************************************************************************
  28. Global Types and Constants
  29. ****************************************************************************}
  30. Type
  31. Longint = $80000000..$7fffffff; { $8000000 creates a longint overfow !! }
  32. Integer = -32768..32767;
  33. shortint = -128..127;
  34. byte = 0..255;
  35. Word = 0..65535;
  36. { at least declare Turbo Pascal real types }
  37. {$ifdef i386}
  38. StrLenInt = LongInt;
  39. {$define DEFAULT_EXTENDED}
  40. {$define SUPPORT_EXTENDED}
  41. {$define SUPPORT_COMP}
  42. {$define SUPPORT_SINGLE}
  43. {$define SUPPORT_FIXED}
  44. Double = real;
  45. {$ifdef DEFAULT_EXTENDED}
  46. ValReal = Extended;
  47. {$else}
  48. ValReal = Double;
  49. {$endif}
  50. {$endif}
  51. {$ifdef m68k}
  52. StrLenInt = Longint;
  53. ValReal = Real;
  54. {$endif}
  55. { some type aliases }
  56. dword = cardinal;
  57. longword = cardinal;
  58. { Zero - terminated strings }
  59. PChar = ^Char;
  60. PPChar = ^PChar;
  61. { procedure type }
  62. TProcedure = Procedure;
  63. const
  64. { max. values for longint and int}
  65. maxLongint = $7fffffff;
  66. maxint = 32767;
  67. { Compatibility With TP }
  68. {$ifdef i386}
  69. Test8086 : byte = 2; { Always i386 or newer }
  70. Test8087 : byte = 3; { Always 387 or newer. Emulated if needed. }
  71. {$endif i386}
  72. {$ifdef m68k}
  73. Test68000 : byte = 0; { Must be determined at startup for both }
  74. Test68881 : byte = 0;
  75. {$endif}
  76. { max level in dumping on error }
  77. Max_Frame_Dump : Word = 8;
  78. { Exit Procedure handling consts and types }
  79. ExitProc : pointer = nil;
  80. Erroraddr: pointer = nil;
  81. Errorcode: Word = 0;
  82. { file input modes }
  83. fmClosed = $D7B0;
  84. fmInput = $D7B1;
  85. fmOutput = $D7B2;
  86. fmInOut = $D7B3;
  87. fmAppend = $D7B4;
  88. Filemode : byte = 2;
  89. Type
  90. TErrorProc = Procedure (ErrNo : Longint; Address : Pointer);
  91. var
  92. { Standard In- and Output }
  93. Output,
  94. Input,
  95. StdOut,
  96. StdErr : Text;
  97. ExitCode,
  98. InOutRes : Word;
  99. StackBottom,
  100. LowestStack,
  101. RandSeed : Cardinal;
  102. { Error handlers }
  103. ErrorProc : Pointer;
  104. {****************************************************************************
  105. Processor specific routines
  106. ****************************************************************************}
  107. Procedure Move(Var source,dest;count:Longint);
  108. Procedure FillChar(Var x;count:Longint;Value:Char);
  109. Procedure FillChar(Var x;count:Longint;Value:byte);
  110. {$ifndef RTLLITE}
  111. Procedure FillWord(Var x;count:Longint;Value:Word);
  112. {$endif RTLLITE}
  113. {****************************************************************************
  114. Math Routines
  115. ****************************************************************************}
  116. {$ifndef RTLLITE}
  117. Function lo(w:Word):byte;
  118. Function lo(l:Longint):Word;
  119. Function lo(i:Integer):byte;
  120. Function lo(B: Byte):Byte;
  121. Function hi(w:Word):byte;
  122. Function hi(i:Integer):byte;
  123. Function hi(l:Longint):Word;
  124. Function Hi(B : Byte): byte;
  125. Function Swap (X:Word):Word;
  126. Function Swap (X:Integer):Integer;
  127. Function Swap (X:Cardinal):Cardinal;
  128. Function Swap (X:Longint):Longint;
  129. {$endif RTLLITE}
  130. Function Random(l:Longint):Longint;
  131. Function Random:real;
  132. Procedure Randomize;
  133. Function abs(l:Longint):Longint;
  134. Function sqr(l:Longint):Longint;
  135. Function odd(l:Longint):Boolean;
  136. { float math routines }
  137. {$I mathh.inc}
  138. {****************************************************************************
  139. Addr/Pointer Handling
  140. ****************************************************************************}
  141. {$ifndef RTLLITE}
  142. Function ptr(sel,off:Longint):pointer;
  143. Function Addr (Var X):pointer;
  144. Function Cseg:Word;
  145. Function Dseg:Word;
  146. Function Sseg:Word;
  147. {$endif RTLLITE}
  148. {****************************************************************************
  149. PChar and String Handling
  150. ****************************************************************************}
  151. function strpas(p:pchar):shortstring;
  152. function strlen(p:pchar):longint;
  153. { Shortstring functions }
  154. Function Copy(const s:shortstring;index:StrLenInt;count:StrLenInt):shortstring;
  155. Procedure Delete(Var s:shortstring;index:StrLenInt;count:StrLenInt);
  156. Procedure Insert(const source:shortstring;Var s:shortstring;index:StrLenInt);
  157. Function Pos(const substr:shortstring;const s:shortstring):StrLenInt;
  158. Function Pos(C:Char;const s:shortstring):StrLenInt;
  159. Procedure SetLength(var s:shortstring;len:StrLenInt);
  160. Function Length(s:string):byte;
  161. { Char functions to overcome overloading problem with ansistrings }
  162. function copy(c:char;index : StrLenInt;count : StrLenInt): shortstring;
  163. function pos(const substr : shortstring;c:char): StrLenInt;
  164. function length(c:char):byte;
  165. Function Chr(b:byte):Char;
  166. Function upCase(const s:shortstring):shortstring;
  167. Function upCase(c:Char):Char;
  168. {$ifndef RTLLITE}
  169. Function lowerCase(c:Char):Char;
  170. Function lowerCase(const s:shortstring):shortstring;
  171. Function hexStr(Val:Longint;cnt:byte):shortstring;
  172. Function binStr(Val:Longint;cnt:byte):shortstring;
  173. {$endif RTLLITE}
  174. Function Space(b:byte):shortstring;
  175. Procedure Val(const s:shortstring;Var l:Longint;Var code:Word);
  176. Procedure Val(const s:shortstring;Var l:Longint;Var code:Integer);
  177. Procedure Val(const s:shortstring;Var l:Longint;Var code:Longint);
  178. Procedure Val(const s:shortstring;Var l:Longint);
  179. Procedure Val(const s:shortstring;Var b:byte;Var code:Word);
  180. Procedure Val(const s:shortstring;Var b:byte;Var code:Integer);
  181. Procedure Val(const s:shortstring;Var b:byte;Var code:Longint);
  182. Procedure Val(const s:shortstring;Var b:byte);
  183. Procedure Val(const s:shortstring;Var b:shortint;Var code:Word);
  184. Procedure Val(const s:shortstring;Var b:shortint;Var code:Integer);
  185. Procedure Val(const s:shortstring;Var b:shortint;Var code:Longint);
  186. Procedure Val(const s:shortstring;Var b:shortint);
  187. Procedure Val(const s:shortstring;Var b:Word;Var code:Word);
  188. Procedure Val(const s:shortstring;Var b:Word;Var code:Integer);
  189. Procedure Val(const s:shortstring;Var b:Word;Var code:Longint);
  190. Procedure Val(const s:shortstring;Var b:Word);
  191. Procedure Val(const s:shortstring;Var b:Integer;Var code:Word);
  192. Procedure Val(const s:shortstring;Var b:Integer;Var code:Integer);
  193. Procedure Val(const s:shortstring;Var b:Integer;Var code:Longint);
  194. Procedure Val(const s:shortstring;Var b:Integer);
  195. Procedure Val(const s:shortstring;Var v:cardinal;Var code:Word);
  196. Procedure Val(const s:shortstring;Var v:cardinal;Var code:Integer);
  197. Procedure Val(const s:shortstring;Var v:cardinal;Var code:Longint);
  198. Procedure Val(const s:shortstring;Var v:cardinal);
  199. Procedure Val(const s:shortstring;Var d:ValReal;Var code:Word);
  200. Procedure Val(const s:shortstring;Var d:ValReal;Var code:Integer);
  201. Procedure Val(const s:shortstring;Var d:ValReal;Var code:Longint);
  202. Procedure Val(const s:shortstring;Var d:ValReal);
  203. {$ifdef SUPPORT_SINGLE}
  204. Procedure Val(const s:shortstring;Var d:single;Var code:Word);
  205. Procedure Val(const s:shortstring;Var d:single;Var code:Integer);
  206. Procedure Val(const s:shortstring;Var d:single;Var code:Longint);
  207. Procedure Val(const s:shortstring;Var d:single);
  208. {$endif SUPPORT_SINGLE}
  209. {$ifdef SUPPORT_COMP}
  210. Procedure Val(const s:shortstring;Var d:comp;Var code:Word);
  211. Procedure Val(const s:shortstring;Var d:comp;Var code:Integer);
  212. Procedure Val(const s:shortstring;Var d:comp;Var code:Longint);
  213. Procedure Val(const s:shortstring;Var d:comp);
  214. {$endif SUPPORT_COMP}
  215. {$ifdef SUPPORT_FIXED}
  216. Procedure Val(const s:shortstring;Var d:fixed;Var code:Word);
  217. Procedure Val(const s:shortstring;Var d:fixed;Var code:Integer);
  218. Procedure Val(const s:shortstring;Var d:fixed;Var code:Longint);
  219. Procedure Val(const s:shortstring;Var d:fixed);
  220. {$endif SUPPORT_FIXED}
  221. {$ifdef DEFAULT_EXTENDED}
  222. Procedure Val(const s:shortstring;Var d:Real;Var code:Word);
  223. Procedure Val(const s:shortstring;Var d:Real;Var code:Integer);
  224. Procedure Val(const s:shortstring;Var d:Real;Var code:Longint);
  225. Procedure Val(const s:shortstring;Var d:Real);
  226. {$else DEFAULT_EXTENDED}
  227. {$ifdef SUPPORT_EXTENDED}
  228. Procedure Val(const s:shortstring;Var d:Extended;Var code:Word);
  229. Procedure Val(const s:shortstring;Var d:Extended;Var code:Integer);
  230. Procedure Val(const s:shortstring;Var d:Extended;Var code:Longint);
  231. Procedure Val(const s:shortstring;Var d:Extended);
  232. {$endif}
  233. {$endif DEFAULT_EXTENDED}
  234. {****************************************************************************
  235. AnsiString Handling
  236. ****************************************************************************}
  237. Procedure SetLength (Var S : AnsiString; l : Longint);
  238. Procedure UniqueAnsiString (Var S : AnsiString);
  239. Function Length (Const S : AnsiString) : Longint;
  240. Function Copy (Const S : AnsiString; Index,Size : Longint) : AnsiString;
  241. Function Pos (Const Substr : AnsiString; Const Source : AnsiString) : Longint;
  242. Procedure Insert (Const Source : AnsiString; Var S : AnsiString; Index : Longint);
  243. Procedure Delete (Var S : AnsiString; Index,Size: Longint);
  244. Procedure Val (Const S : AnsiString; var R : real; Var Code : Integer);
  245. {
  246. Procedure Val (Const S : AnsiString; var D : Double; Var Code : Integer);
  247. }
  248. Procedure Val (Const S : AnsiString; var E : Extended; Code : Integer);
  249. Procedure Val (Const S : AnsiString; var C : Cardinal; Code : Integer);
  250. Procedure Val (Const S : AnsiString; var L : Longint; Var Code : Integer);
  251. Procedure Val (Const S : AnsiString; var W : Word; Var Code : Integer);
  252. Procedure Val (Const S : AnsiString; var I : Integer; Var Code : Integer);
  253. Procedure Val (Const S : AnsiString; var B : Byte; Var Code : Integer);
  254. Procedure Val (Const S : AnsiString; var SI : ShortInt; Var Code : Integer);
  255. {
  256. Procedure Str (Const R : Real;Len, fr : longint; Var S : AnsiString);
  257. Procedure Str (Const D : Double;Len,fr : longint; Var S : AnsiString);
  258. Procedure Str (Const E : Extended;Len,fr : longint; Var S : AnsiString);
  259. Procedure Str (Const C : Cardinal;len : Longint; Var S : AnsiString);
  260. Procedure Str (Const L : LongInt;len : longint; Var S : AnsiString);
  261. Procedure Str (Const W : Word;len : longint; Var S : AnsiString);
  262. Procedure Str (Const I : Integer;len : Longint; Var S : AnsiString);
  263. Procedure Str (Const B : Byte; Len : longint; Var S : AnsiString);
  264. Procedure Str (Const SI : ShortInt; Len : longint; Var S : AnsiString);
  265. }
  266. {****************************************************************************
  267. Untyped File Management
  268. ****************************************************************************}
  269. Procedure Assign(Var f:File;const Name:string);
  270. Procedure Assign(Var f:File;p:pchar);
  271. Procedure Assign(Var f:File;c:char);
  272. Procedure Rewrite(Var f:File;l:Longint);
  273. Procedure Rewrite(Var f:File);
  274. Procedure Reset(Var f:File;l:Longint);
  275. Procedure Reset(Var f:File);
  276. Procedure Close(Var f:File);
  277. Procedure BlockWrite(Var f:File;Var Buf;Count:Longint;Var Result:Longint);
  278. Procedure BlockWrite(Var f:File;Var Buf;Count:Word;Var Result:Word);
  279. Procedure BlockWrite(Var f:File;Var Buf;Count:Word;Var Result:Integer);
  280. Procedure BlockWrite(Var f:File;Var Buf;Count:Longint);
  281. Procedure BlockRead(Var f:File;Var Buf;count:Longint;Var Result:Longint);
  282. Procedure BlockRead(Var f:File;Var Buf;count:Word;Var Result:Word);
  283. Procedure BlockRead(Var f:File;Var Buf;count:Word;Var Result:Integer);
  284. Procedure BlockRead(Var f:File;Var Buf;count:Longint);
  285. Function FilePos(Var f:File):Longint;
  286. Function FileSize(Var f:File):Longint;
  287. Procedure Seek(Var f:File;Pos:Longint);
  288. Function EOF(Var f:File):Boolean;
  289. Procedure Erase(Var f:File);
  290. Procedure Rename(Var f:File;const s:string);
  291. Procedure Rename(Var f:File;p:pchar);
  292. Procedure Rename(Var f:File;c:char);
  293. Procedure Truncate (Var F:File);
  294. {****************************************************************************
  295. Typed File Management
  296. ****************************************************************************}
  297. Procedure Assign(Var f:TypedFile;const Name:string);
  298. Procedure Assign(Var f:TypedFile;p:pchar);
  299. Procedure Assign(Var f:TypedFile;c:char);
  300. Procedure Rewrite(Var f:TypedFile);
  301. Procedure Reset(Var f:TypedFile);
  302. {****************************************************************************
  303. Text File Management
  304. ****************************************************************************}
  305. Procedure Assign(Var t:Text;const s:string);
  306. Procedure Assign(Var t:Text;p:pchar);
  307. Procedure Assign(Var t:Text;c:char);
  308. Procedure Close(Var t:Text);
  309. Procedure Rewrite(Var t:Text);
  310. Procedure Reset(Var t:Text);
  311. Procedure Append(Var t:Text);
  312. Procedure Flush(Var t:Text);
  313. Procedure Erase(Var t:Text);
  314. Procedure Rename(Var t:Text;const s:string);
  315. Procedure Rename(Var t:Text;p:pchar);
  316. Procedure Rename(Var t:Text;c:char);
  317. Function EOF(Var t:Text):Boolean;
  318. Function EOF:Boolean;
  319. Function EOLn(Var t:Text):Boolean;
  320. Function EOLn:Boolean;
  321. Function SeekEOLn (Var t:Text):Boolean;
  322. Function SeekEOF (Var t:Text):Boolean;
  323. Function SeekEOLn:Boolean;
  324. Function SeekEOF:Boolean;
  325. Procedure SetTextBuf(Var f:Text; Var Buf);
  326. Procedure SetTextBuf(Var f:Text; Var Buf; Size:Word);
  327. {****************************************************************************
  328. Directory Management
  329. ****************************************************************************}
  330. Procedure chdir(const s:string);
  331. Procedure mkdir(const s:string);
  332. Procedure rmdir(const s:string);
  333. Procedure getdir(drivenr:byte;Var dir:shortstring);
  334. Procedure getdir(drivenr:byte;Var dir:ansistring);
  335. {*****************************************************************************
  336. Miscelleaous
  337. *****************************************************************************}
  338. { os independent calls to allow backtraces }
  339. function get_frame:longint;
  340. function get_caller_addr(framebp:longint):longint;
  341. function get_caller_frame(framebp:longint):longint;
  342. Function IOResult:Word;
  343. Function Sptr:Longint;
  344. {*****************************************************************************
  345. Init / Exit / ExitProc
  346. *****************************************************************************}
  347. Function Paramcount:Longint;
  348. Function ParamStr(l:Longint):string;
  349. {$ifndef RTLLITE}
  350. Procedure Dump_Stack(bp:Longint);
  351. {$endif RTLLITE}
  352. Procedure RunError(w:Word);
  353. Procedure RunError;
  354. Procedure halt(errnum:byte);
  355. {$ifndef RTLLITE}
  356. Procedure AddExitProc(Proc:TProcedure);
  357. {$endif RTLLITE}
  358. Procedure halt;
  359. {*****************************************************************************
  360. Abstract/Assert
  361. *****************************************************************************}
  362. procedure AbstractError;
  363. Procedure SysAssert(Const Msg,FName:string;LineNo,ErrorAddr:Longint);
  364. const
  365. AssertErrorProc : Pointer=@SysAssert;
  366. AbstractErrorProc : Pointer=nil;
  367. {*****************************************************************************
  368. SetJmp/LongJmp
  369. *****************************************************************************}
  370. {$i setjumph.inc}
  371. {
  372. $Log$
  373. Revision 1.46 1998-12-28 15:50:48 peter
  374. + stdout, which is needed when you write something in the system unit
  375. to the screen. Like the runtime error
  376. Revision 1.45 1998/12/15 22:43:04 peter
  377. * removed temp symbols
  378. Revision 1.44 1998/11/27 14:50:57 peter
  379. + open strings, $P switch support
  380. Revision 1.43 1998/11/26 23:16:13 jonas
  381. * changed RandSeed and OldRandSeed to Cardinal to avoid negative random numbers
  382. Revision 1.42 1998/11/24 17:12:43 peter
  383. * fixed length(char)
  384. - removed obsolete version.inc
  385. Revision 1.41 1998/11/16 10:21:26 peter
  386. * fixes for H+
  387. Revision 1.40 1998/11/05 10:29:37 pierre
  388. * fix for length(char) in const expressions
  389. Revision 1.39 1998/11/04 20:34:01 michael
  390. + Removed ifdef useansistrings
  391. Revision 1.38 1998/11/04 10:20:51 peter
  392. * ansistring fixes
  393. Revision 1.37 1998/10/10 15:28:47 peter
  394. + read single,fixed
  395. + val with code:longint
  396. + val for fixed
  397. Revision 1.36 1998/10/05 17:22:54 pierre
  398. * avoid overflow on $8000000 with $Q-
  399. Revision 1.35 1998/10/05 12:32:52 peter
  400. + assert() support
  401. Revision 1.34 1998/10/01 14:54:48 peter
  402. * export also stackframe functions
  403. Revision 1.33 1998/09/28 14:02:33 michael
  404. + AnsiString changes
  405. Revision 1.32 1998/09/22 15:30:55 peter
  406. * shortstring=string type added
  407. Revision 1.31 1998/09/20 17:49:09 florian
  408. * some ansistring fixes
  409. Revision 1.30 1998/09/17 16:34:17 peter
  410. * new eof,eoln,seekeoln,seekeof
  411. * speed upgrade for read_string
  412. * inoutres 104/105 updates for read_* and write_*
  413. Revision 1.29 1998/09/16 13:08:04 michael
  414. Added AbstractErrorHandler
  415. Revision 1.28 1998/09/14 10:48:22 peter
  416. * FPC_ names
  417. * Heap manager is now system independent
  418. Revision 1.27 1998/09/08 15:03:28 peter
  419. * moved getmem/freemem/memavail/maxavail to heaph.inc
  420. Revision 1.26 1998/09/04 18:16:14 peter
  421. * uniform filerec/textrec (with recsize:longint and name:0..255)
  422. Revision 1.25 1998/09/01 17:36:22 peter
  423. + internconst
  424. Revision 1.24 1998/08/11 21:39:08 peter
  425. * splitted default_extended from support_extended
  426. Revision 1.23 1998/08/11 00:05:27 peter
  427. * $ifdef ver0_99_5 updates
  428. Revision 1.22 1998/08/08 12:28:14 florian
  429. * a lot small fixes to the extended data type work
  430. Revision 1.21 1998/07/30 13:26:17 michael
  431. + Added support for ErrorProc variable. All internal functions are required
  432. to call HandleError instead of runerror from now on.
  433. This is necessary for exception support.
  434. Revision 1.20 1998/07/28 20:37:47 michael
  435. + added setjmp/longjmp and exception support
  436. Revision 1.19 1998/07/20 23:36:57 michael
  437. changes for ansistrings
  438. Revision 1.18 1998/07/18 17:14:24 florian
  439. * strlenint type implemented
  440. Revision 1.17 1998/07/10 11:02:39 peter
  441. * support_fixed, becuase fixed is not 100% yet for the m68k
  442. Revision 1.16 1998/07/02 12:13:18 carl
  443. * No SINGLE type for m68k or other non-intel processors!
  444. Revision 1.15 1998/07/01 14:43:46 carl
  445. - max_frame_dump reduced to 8, 20 is too much!
  446. Revision 1.14 1998/06/25 14:04:26 peter
  447. + internal inc/dec
  448. Revision 1.13 1998/06/25 09:44:21 daniel
  449. + RTLLITE directive to compile minimal RTL.
  450. Revision 1.12 1998/06/15 15:16:27 daniel
  451. * RTLLITE conditional added to produce smaller RTL
  452. Revision 1.11 1998/06/08 12:38:23 michael
  453. Implemented rtti, inserted ansistrings again
  454. Revision 1.10 1998/06/04 23:46:02 peter
  455. * comp,extended are only i386 added support_comp,support_extended
  456. Revision 1.9 1998/06/04 08:26:03 pierre
  457. * boolean internal definition again (needed to compile
  458. older RTL's)
  459. Revision 1.8 1998/06/03 23:39:53 peter
  460. + boolean=bytebool
  461. Revision 1.7 1998/05/22 12:34:11 peter
  462. * fixed the optimizes of daniel
  463. Revision 1.6 1998/05/21 19:31:00 peter
  464. * objects compiles for linux
  465. + assign(pchar), assign(char), rename(pchar), rename(char)
  466. * fixed read_text_as_array
  467. + read_text_as_pchar which was not yet in the rtl
  468. Revision 1.5 1998/05/12 10:42:45 peter
  469. * moved getopts to inc/, all supported OS's need argc,argv exported
  470. + strpas, strlen are now exported in the systemunit
  471. * removed logs
  472. * removed $ifdef ver_above
  473. Revision 1.4 1998/04/16 12:30:47 peter
  474. + inc(pchar), dec(pchar), incc(pchar,a),dec(pchar,a)
  475. }