Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix 64 bit return values.

Browse Source
This commit is contained in:
Martijn Laan 2020-10-01 21:46:00 +02:00
parent ebf3798c97
commit 04f5647ec7
No known key found for this signature in database
GPG Key ID: 9F8C8C5DDA579626
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/x86.inc
View File

@ -662,7 +662,7 @@ begin
{$IFNDEF PS_NOINT64}bts64:
begin
EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
tbts64(res^.dta^) := Int64(EAX) shl 32 or EDX;
tbts64(res^.dta^) := Int64(EDX) shl 32 or EAX;
end;
{$ENDIF}
btVariant,
@ -721,7 +721,7 @@ begin
{$IFNDEF PS_NOINT64}bts64:
begin
EAX := RealCall_CDecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
tbts64(res^.Dta^) := Int64(EAX) shl 32 or EDX;
tbts64(res^.Dta^) := Int64(EDX) shl 32 or EAX;
end;
{$ENDIF}
btVariant, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}
@ -756,7 +756,7 @@ begin
{$IFNDEF PS_NOINT64}bts64:
begin
EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
tbts64(res^.dta^) := Int64(EAX) shl 32 or EDX;
tbts64(res^.dta^) := Int64(EDX) shl 32 or EAX;
end;
{$ENDIF}
btVariant, {$IFNDEF PS_NOWIDESTRING}btUnicodeString, btWideString, {$ENDIF}