소스 검색

* 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 년 전
부모
커밋
6491a6e914
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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);