Przeglądaj źródła

* Make vtype signed again to prevent unnecessary 64 bit promotions.
Should be okay as it isn't a pointer.

git-svn-id: trunk@7893 -

daniel 18 lat temu
rodzic
commit
6491a6e914
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      rtl/inc/objpash.inc

+ 1 - 1
rtl/inc/objpash.inc

@@ -317,7 +317,7 @@
    type
       PVarRec = ^TVarRec;
       TVarRec = record
-         case VType : sizeuint of
+         case VType : sizeint of
 {$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);