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

+ return singles in the same registers as 32-bit ints

Browse Source 
git-svn-id: branches/z80@45023 -
This commit is contained in:
nickysn 2020-04-23 02:17:03 +00:00
parent 088cfd5da5
commit 5c6fadada8
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/z80/cpupara.pas
View File

@ -437,9 +437,27 @@ unit cpupara;
OS_F32: OS_F32:
begin begin
paraloc^.loc:=LOC_REGISTER; paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_FUNCTION_RETURN_REG; paraloc^.register:=NR_L;
paraloc^.size:=OS_32; paraloc^.size:=OS_8;
paraloc^.def:=u32inttype; paraloc^.def:=u8inttype;
paraloc:=result.add_location;
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_H;
paraloc^.size:=OS_8;
paraloc^.def:=u8inttype;
paraloc:=result.add_location;
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_E;
paraloc^.size:=OS_8;
paraloc^.def:=u8inttype;
paraloc:=result.add_location;
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_D;
paraloc^.size:=OS_8;
paraloc^.def:=u8inttype;
end; end;
else else
internalerror(2005082603); internalerror(2005082603);