mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-02-03 01:22:07 +01:00
Minimal SysUtils unit added
This commit is contained in:
parent
51a55622bd
commit
55bb2a8451
42
Lib/SysUtils.pas
Normal file
42
Lib/SysUtils.pas
Normal file
@ -0,0 +1,42 @@
|
|||||||
|
(*
|
||||||
|
KolibriOS SysUtils unit
|
||||||
|
*)
|
||||||
|
|
||||||
|
unit SysUtils;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
type
|
||||||
|
WordRec = packed record
|
||||||
|
case Byte of
|
||||||
|
0: (Lo, Hi: Byte);
|
||||||
|
1: (Bytes: array [0..1] of Byte);
|
||||||
|
end;
|
||||||
|
|
||||||
|
LongRec = packed record
|
||||||
|
case Byte of
|
||||||
|
0: (Lo, Hi: Word);
|
||||||
|
1: (Words: array [0..1] of Word);
|
||||||
|
2: (Bytes: array [0..3] of Byte);
|
||||||
|
end;
|
||||||
|
|
||||||
|
Int64Rec = packed record
|
||||||
|
case Byte of
|
||||||
|
0: (Lo, Hi: LongWord);
|
||||||
|
1: (LongWords: array [0..1] of LongWord);
|
||||||
|
2: (Words: array [0..3] of Word);
|
||||||
|
3: (Bytes: array [0..7] of Byte);
|
||||||
|
end;
|
||||||
|
|
||||||
|
PByteArray = ^TByteArray;
|
||||||
|
TByteArray = array[0..MaxInt - 1] of Byte;
|
||||||
|
|
||||||
|
PWordArray = ^TWordArray;
|
||||||
|
TWordArray = array[0..MaxInt div SizeOf(Word) - 1] of Word;
|
||||||
|
|
||||||
|
PLongWordArray = ^TLongWordArray;
|
||||||
|
TLongWordArray = array[0..MaxInt div SizeOf(LongWord) - 1] of LongWord;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
Loading…
x
Reference in New Issue
Block a user