Quellcode durchsuchen

* use SizeInt instead of LongInt for the size fields of the VMT to match what the compiler generates for non-32-bit targets

git-svn-id: trunk@39727 -
svenbarth vor 7 Jahren
Ursprung
Commit
5d9ddf99d4
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      packages/rtl-extra/src/inc/objects.pp

+ 1 - 1
packages/rtl-extra/src/inc/objects.pp

@@ -1013,7 +1013,7 @@ TYPE
    PVMT=^VMT;
    PVMT=^VMT;
    PPVMT=^PVMT;
    PPVMT=^PVMT;
    VMT=RECORD
    VMT=RECORD
-     Size,NegSize:Longint;
+     Size,NegSize:SizeInt;
      ParentLink:PPVMT;
      ParentLink:PPVMT;
    END;
    END;
 VAR SP:PPVMT; Q:PVMT;
 VAR SP:PPVMT; Q:PVMT;