浏览代码

pastojs: fixed test vql on 32bit system

git-svn-id: trunk@38723 -
Mattias Gaertner 7 年之前
父节点
当前提交
b21462d3b1
共有 1 个文件被更改,包括 1 次插入1 次删除
  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);