mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-21 02:11:07 +02:00
System.TVarRec reverted compatible with standard one
This commit is contained in:
parent
eb8499dff1
commit
d608e7fc3a
@ -67,32 +67,46 @@ type
|
|||||||
OuterContext: PInitContext;
|
OuterContext: PInitContext;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TVarType = (
|
const
|
||||||
vtInteger, vtBoolean, vtAnsiChar, vtExtended, vtShortString, vtPointer, vtPAnsiChar,
|
vtInteger = 0;
|
||||||
vtObject, vtClass, vtWideChar, vtPWideChar, vtAnsiString, vtCurrency, vtVariant, vtInterface,
|
vtBoolean = 1;
|
||||||
vtWideString, vtInt64
|
vtChar = 2;
|
||||||
);
|
vtExtended = 3;
|
||||||
|
vtString = 4;
|
||||||
|
vtPointer = 5;
|
||||||
|
vtPChar = 6;
|
||||||
|
vtObject = 7;
|
||||||
|
vtClass = 8;
|
||||||
|
vtWideChar = 9;
|
||||||
|
vtPWideChar = 10;
|
||||||
|
vtAnsiString = 11;
|
||||||
|
vtCurrency = 12;
|
||||||
|
vtVariant = 13;
|
||||||
|
vtInterface = 14;
|
||||||
|
vtWideString = 15;
|
||||||
|
vtInt64 = 16;
|
||||||
|
|
||||||
|
type
|
||||||
PVarRec = ^TVarRec;
|
PVarRec = ^TVarRec;
|
||||||
TVarRec = record { do not pack this record; it is compiler-generated }
|
TVarRec = record
|
||||||
case TVarType of
|
case Byte of
|
||||||
vtInteger: (VarInteger: Integer; VarType: Byte);
|
vtInteger: (VInteger: Integer; VType: Byte);
|
||||||
vtBoolean: (VarBoolean: Boolean);
|
vtBoolean: (VBoolean: Boolean);
|
||||||
vtAnsiChar: (VarChar: AnsiChar);
|
vtChar: (VChar: AnsiChar);
|
||||||
vtExtended: (VarExtended: PExtended);
|
vtExtended: (VExtended: PExtended);
|
||||||
vtShortString: (VarString: PShortString);
|
vtString: (VString: PShortString);
|
||||||
vtPointer: (VarPointer: Pointer);
|
vtPointer: (VPointer: Pointer);
|
||||||
vtPAnsiChar: (VarPChar: PAnsiChar);
|
vtPChar: (VPChar: PAnsiChar);
|
||||||
vtObject: (VarObject: Pointer);
|
vtObject: (VObject: Pointer);
|
||||||
vtClass: (VarClass: Pointer);
|
vtClass: (VClass: Pointer);
|
||||||
vtWideChar: (VarWideChar: WideChar);
|
vtWideChar: (VWideChar: WideChar);
|
||||||
vtPWideChar: (VarPWideChar: PWideChar);
|
vtPWideChar: (VPWideChar: PWideChar);
|
||||||
vtAnsiString: (VarAnsiString: PAnsiChar);
|
vtAnsiString: (VAnsiString: Pointer);
|
||||||
vtCurrency: (VarCurrency: PCurrency);
|
vtCurrency: (VCurrency: PCurrency);
|
||||||
vtVariant: (VarVariant: PVariant);
|
vtVariant: (VVariant: PVariant);
|
||||||
vtInterface: (VarInterface: Pointer);
|
vtInterface: (VInterface: Pointer);
|
||||||
vtWideString: (VarWideString: PWideChar);
|
vtWideString: (VWideString: Pointer);
|
||||||
vtInt64: (VarInt64: PInt64);
|
vtInt64: (VInt64: PInt64);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure _Halt0;
|
procedure _Halt0;
|
||||||
|
Loading…
Reference in New Issue
Block a user