Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-09-21 02:11:07 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

System.TVarRec reverted compatible with standard one

Browse Source
This commit is contained in:
Владислав Джавадов 2020-06-18 21:28:45 +03:00
parent eb8499dff1
commit d608e7fc3a
1 changed files with 38 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
RTL/System.pas
View File

@ -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;