paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 06:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correctly handle a floating point result

Browse Source 
git-svn-id: trunk@40664 -
This commit is contained in:
svenbarth 2018-12-26 22:59:30 +00:00
parent 551e36cd19
commit dbaf7a69bd
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/rtl-objpas/src/x86_64/invoke.inc
View File

@ -28,6 +28,8 @@ asm
.seh_savereg %rsi, 16 .seh_savereg %rsi, 16
movq %rdi, 24(%rsp) movq %rdi, 24(%rsp)
.seh_savereg %rdi, 24 .seh_savereg %rdi, 24
movq %r8, 32(%rsp)
.seh_savereg %r8, 32
movq %rsp, %rbp movq %rsp, %rbp
.seh_setframe %rbp, 0 .seh_setframe %rbp, 0
@ -71,6 +73,10 @@ asm
{ restore non-volatile registers } { restore non-volatile registers }
movq %rbp, %rsp movq %rbp, %rsp
{ we abuse the register area pointer for an eventual SSE2 result }
movq 32(%rsp), %rdi
movq %xmm0, (%rdi)
movq 24(%rsp), %rdi movq 24(%rsp), %rdi
movq 16(%rsp), %rsi movq 16(%rsp), %rsi
movq 8(%rsp), %rbp movq 8(%rsp), %rbp
@ -249,6 +255,11 @@ begin
if Assigned(aResultType) and not retinparam then begin if Assigned(aResultType) and not retinparam then begin
PPtrUInt(aResultValue)^ := val; PPtrUInt(aResultValue)^ := val;
if aResultType^.Kind = tkFloat then begin
td := GetTypeData(aResultType);
if td^.FloatType in [ftSingle, ftDouble] then
PPtrUInt(aResultValue)^ := regs[0];
end;
end; end;
{$else} {$else}
raise EInvocationError.Create(SErrPlatformNotSupported); raise EInvocationError.Create(SErrPlatformNotSupported);