pastojs: fixed test vql on 32bit system

git-svn-id: trunk@38723 -
This commit is contained in:
Mattias Gaertner 2018-04-10 08:54:09 +00:00
parent b780c20096
commit b21462d3b1

View File

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