|
@@ -154,10 +154,10 @@
|
|
tinterfaceentrytype = (etStandard,
|
|
tinterfaceentrytype = (etStandard,
|
|
etVirtualMethodResult,
|
|
etVirtualMethodResult,
|
|
etStaticMethodResult,
|
|
etStaticMethodResult,
|
|
- etFieldValue,
|
|
|
|
|
|
+ etFieldValue,
|
|
etVirtualMethodClass,
|
|
etVirtualMethodClass,
|
|
etStaticMethodClass,
|
|
etStaticMethodClass,
|
|
- etFieldValueClass
|
|
|
|
|
|
+ etFieldValueClass
|
|
);
|
|
);
|
|
|
|
|
|
pinterfaceentry = ^tinterfaceentry;
|
|
pinterfaceentry = ^tinterfaceentry;
|
|
@@ -376,9 +376,9 @@
|
|
vtInteger = 0;
|
|
vtInteger = 0;
|
|
vtBoolean = 1;
|
|
vtBoolean = 1;
|
|
vtChar = 2;
|
|
vtChar = 2;
|
|
-{$ifndef FPUNONE}
|
|
|
|
|
|
+{$ifndef FPUNONE}
|
|
vtExtended = 3;
|
|
vtExtended = 3;
|
|
-{$endif}
|
|
|
|
|
|
+{$endif}
|
|
vtString = 4;
|
|
vtString = 4;
|
|
vtPointer = 5;
|
|
vtPointer = 5;
|
|
vtPChar = 6;
|
|
vtPChar = 6;
|
|
@@ -399,20 +399,20 @@
|
|
PVarRec = ^TVarRec;
|
|
PVarRec = ^TVarRec;
|
|
TVarRec = record
|
|
TVarRec = record
|
|
case VType : sizeint of
|
|
case VType : sizeint of
|
|
-{$ifdef ENDIAN_BIG}
|
|
|
|
|
|
+{$ifdef ENDIAN_BIG}
|
|
vtInteger : ({$IFDEF CPU64}integerdummy1 : Longint;{$ENDIF CPU64}VInteger: Longint);
|
|
vtInteger : ({$IFDEF CPU64}integerdummy1 : Longint;{$ENDIF CPU64}VInteger: Longint);
|
|
vtBoolean : ({$IFDEF CPU64}booldummy : Longint;{$ENDIF CPU64}booldummy1,booldummy2,booldummy3: byte; VBoolean: Boolean);
|
|
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);
|
|
vtChar : ({$IFDEF CPU64}chardummy : Longint;{$ENDIF CPU64}chardummy1,chardummy2,chardummy3: byte; VChar: Char);
|
|
vtWideChar : ({$IFDEF CPU64}widechardummy : Longint;{$ENDIF CPU64}wchardummy1,VWideChar: WideChar);
|
|
vtWideChar : ({$IFDEF CPU64}widechardummy : Longint;{$ENDIF CPU64}wchardummy1,VWideChar: WideChar);
|
|
-{$else ENDIAN_BIG}
|
|
|
|
|
|
+{$else ENDIAN_BIG}
|
|
vtInteger : (VInteger: Longint);
|
|
vtInteger : (VInteger: Longint);
|
|
vtBoolean : (VBoolean: Boolean);
|
|
vtBoolean : (VBoolean: Boolean);
|
|
vtChar : (VChar: Char);
|
|
vtChar : (VChar: Char);
|
|
vtWideChar : (VWideChar: WideChar);
|
|
vtWideChar : (VWideChar: WideChar);
|
|
-{$endif ENDIAN_BIG}
|
|
|
|
-{$ifndef FPUNONE}
|
|
|
|
|
|
+{$endif ENDIAN_BIG}
|
|
|
|
+{$ifndef FPUNONE}
|
|
vtExtended : (VExtended: PExtended);
|
|
vtExtended : (VExtended: PExtended);
|
|
-{$endif}
|
|
|
|
|
|
+{$endif}
|
|
vtString : (VString: PShortString);
|
|
vtString : (VString: PShortString);
|
|
vtPointer : (VPointer: Pointer);
|
|
vtPointer : (VPointer: Pointer);
|
|
vtPChar : (VPChar: PChar);
|
|
vtPChar : (VPChar: PChar);
|