diff options
Diffstat (limited to 'rtl/inc/objpash.inc')
| -rw-r--r-- | rtl/inc/objpash.inc | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc index 9eb394404e..4af69c8c49 100644 --- a/rtl/inc/objpash.inc +++ b/rtl/inc/objpash.inc @@ -154,10 +154,10 @@ tinterfaceentrytype = (etStandard, etVirtualMethodResult, etStaticMethodResult, - etFieldValue, + etFieldValue, etVirtualMethodClass, etStaticMethodClass, - etFieldValueClass + etFieldValueClass ); pinterfaceentry = ^tinterfaceentry; @@ -376,9 +376,9 @@ vtInteger = 0; vtBoolean = 1; vtChar = 2; -{$ifndef FPUNONE} +{$ifndef FPUNONE} vtExtended = 3; -{$endif} +{$endif} vtString = 4; vtPointer = 5; vtPChar = 6; @@ -399,23 +399,23 @@ PVarRec = ^TVarRec; TVarRec = record case VType : sizeint of -{$ifdef ENDIAN_BIG} +{$ifdef ENDIAN_BIG} vtInteger : ({$IFDEF CPU64}integerdummy1 : Longint;{$ENDIF CPU64}VInteger: Longint); vtBoolean : ({$IFDEF CPU64}booldummy : Longint;{$ENDIF CPU64}booldummy1,booldummy2,booldummy3: byte; VBoolean: Boolean); vtChar : ({$IFDEF CPU64}chardummy : Longint;{$ENDIF CPU64}chardummy1,chardummy2,chardummy3: byte; VChar: Char); vtWideChar : ({$IFDEF CPU64}widechardummy : Longint;{$ENDIF CPU64}wchardummy1,VWideChar: WideChar); -{$else ENDIAN_BIG} +{$else ENDIAN_BIG} vtInteger : (VInteger: Longint); vtBoolean : (VBoolean: Boolean); vtChar : (VChar: Char); vtWideChar : (VWideChar: WideChar); -{$endif ENDIAN_BIG} -{$ifndef FPUNONE} +{$endif ENDIAN_BIG} +{$ifndef FPUNONE} vtExtended : (VExtended: PExtended); -{$endif} +{$endif} vtString : (VString: PShortString); vtPointer : (VPointer: Pointer); - vtPChar : (VPChar: PChar); + vtPChar : (VPChar: PAnsiChar); vtObject : (VObject: TObject); vtClass : (VClass: TClass); vtPWideChar : (VPWideChar: PWideChar); |