paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 17:16:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

PascalScript: fix for 32 bit object.create

Browse Source 
git-svn-id: trunk@56161 -
This commit is contained in:
martin 2017-10-23 03:11:52 +00:00
parent c3ae0f3967
commit f7a5ad2332
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/PascalScript/Source/uPSRuntime.pas
View File

@ -10247,7 +10247,11 @@ begin
CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1; CurrStack := Cardinal(Stack.Count) - Cardinal(length(s)) -1;
if s[1] = #0 then inc(CurrStack); if s[1] = #0 then inc(CurrStack);
{$IFnDEF PS_NOINT64} {$IFnDEF PS_NOINT64}
{$IFDEF cpu32}
IntVal := CreateHeapVariant(Caller.FindType2(btU32));
{$ELSE}
IntVal := CreateHeapVariant(Caller.FindType2(btS64)); IntVal := CreateHeapVariant(Caller.FindType2(btS64));
{$ENDIF}
{$ELSE} {$ELSE}
IntVal := CreateHeapVariant(Caller.FindType2(btU32)); IntVal := CreateHeapVariant(Caller.FindType2(btU32));
{$ENDIF} {$ENDIF}