Minimal SysUtils unit added

This commit is contained in:
Владислав Джавадов 2020-06-20 22:19:32 +03:00
parent 51a55622bd
commit 55bb2a8451

42
Lib/SysUtils.pas Normal file
View 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.