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

Minimal Unicode compiler support

Browse Source
This commit is contained in:
Владислав Джавадов 2020-06-18 21:30:35 +03:00
parent 1d4bc29ce6
commit a6a40b11de
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
RTL/System.pas
View File

@ -13,6 +13,8 @@ const
RTLVersion = 15.2006; // <---' RTLVersion = 15.2006; // <---'
{$IFEND} {$IFEND}
UnicodeCompiler = CompilerVersion >= 20.0;
type type
PPAnsiChar = ^PAnsiChar; PPAnsiChar = ^PAnsiChar;
@ -92,6 +94,9 @@ const
vtInterface = 14; vtInterface = 14;
vtWideString = 15; vtWideString = 15;
vtInt64 = 16; vtInt64 = 16;
{$IFDEF UnicodeCompiler}
vtUnicodeString = 17;
{$ENDIF}
type type
PVarRec = ^TVarRec; PVarRec = ^TVarRec;
@ -114,6 +119,9 @@ type
vtInterface: (VInterface: Pointer); vtInterface: (VInterface: Pointer);
vtWideString: (VWideString: Pointer); vtWideString: (VWideString: Pointer);
vtInt64: (VInt64: PInt64); vtInt64: (VInt64: PInt64);
{$IFDEF UnicodeCompiler}
vtUnicodeString: (VUnicodeString: Pointer);
{$ENDIF}
end; end;
procedure _Halt0; procedure _Halt0;