paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FCVT.W.D returns only a 32 bit int

Browse Source
This commit is contained in:
florian 2024-08-17 18:23:16 +02:00
parent 88ca756f19
commit 8dcf4e62b7
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/riscv/nrvinl.pas
View File

@ -117,7 +117,11 @@ implementation
function trvinlinenode.first_round_real: tnode;
begin
if (current_settings.fputype >= fpu_fd) then
if
{$ifdef RISCV32}
is_32bitint(resultdef) and
{$endif RISCV32}
(current_settings.fputype >= fpu_fd) then
begin
expectloc:=LOC_FPUREGISTER;
first_round_real := nil;
@ -131,7 +135,11 @@ implementation
function trvinlinenode.first_trunc_real: tnode;
begin
if (current_settings.fputype >= fpu_fd) then
if
{$ifdef RISCV32}
is_32bitint(resultdef) and
{$endif RISCV32}
(current_settings.fputype >= fpu_fd) then
begin
expectloc:=LOC_FPUREGISTER;
first_trunc_real := nil;