mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-19 17:41:01 +02:00
Minimal Unicode compiler support
This commit is contained in:
parent
1d4bc29ce6
commit
a6a40b11de
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user