Sfoglia il codice sorgente

pastojs: fixed test vql on 32bit system

git-svn-id: trunk@38723 -
Mattias Gaertner 7 anni fa
parent
commit
b21462d3b1
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      packages/pastojs/tests/tcfiler.pas

+ 1 - 1
packages/pastojs/tests/tcfiler.pas

@@ -1531,7 +1531,7 @@ procedure TTestPrecompile.Test_Base256VLQ;
   var
     s: String;
     p: PByte;
-    j: NativeInt;
+    j: MaxPrecInt;
   begin
     s:=EncodeVLQ(i);
     p:=PByte(s);