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

- removed some commented out code from tcpuparamanager.get_funcretloc

Browse Source 
git-svn-id: branches/z80@45026 -
This commit is contained in:
nickysn 2020-04-23 02:33:41 +00:00
parent 3a5544ea63
commit 86bc22528a
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/z80/cpupara.pas
View File

@ -403,7 +403,6 @@ unit cpupara;
end;
{ TODO : fix tavrparamanager.get_funcretloc }
function tcpuparamanager.get_funcretloc(p : tabstractprocdef; side: tcallercallee; forcetempdef: tdef): tcgpara;
var
retcgsize : tcgsize;
@ -510,26 +509,6 @@ unit cpupara;
else
internalerror(2014030101);
end;
{if retcgsize in [OS_64,OS_S64] then
begin
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_FUNCTION_RESULT64_LOW_REG;
paraloc^.size:=OS_32;
paraloc^.def:=u32inttype;
paraloc:=result.add_location;
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_FUNCTION_RESULT64_HIGH_REG;
paraloc^.size:=OS_32;
paraloc^.def:=u32inttype;
end
else
begin
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_FUNCTION_RETURN_REG;
paraloc^.size:=OS_INT;
paraloc^.def:=u16inttype;
end;}
end;
end;