paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 15:57:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix warning in Z80 cpupara

Browse Source 
git-svn-id: branches/z80@44826 -
This commit is contained in:
nickysn 2020-04-19 04:32:54 +00:00
parent 70e90175e5
commit 36043e8046
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/z80/cpupara.pas
View File

@ -204,19 +204,19 @@ unit cpupara;
begin
{ In case of po_delphi_nested_cc, the parent frame pointer
is always passed on the stack. }
if false and { no fastcall yet }
(nextintreg=RS_HL) and
(not(vo_is_parentfp in hp.varoptions) or
not(po_delphi_nested_cc in p.procoptions)) then
begin
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=newreg(R_INTREGISTER,nextintreg-1,R_SUBWHOLE);
paraloc:=hp.paraloc[side].add_location;
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=newreg(R_INTREGISTER,nextintreg,R_SUBWHOLE);
dec(nextintreg,2);
end
else
//if false and { no fastcall yet }
// (nextintreg=RS_HL) and
// (not(vo_is_parentfp in hp.varoptions) or
// not(po_delphi_nested_cc in p.procoptions)) then
// begin
// paraloc^.loc:=LOC_REGISTER;
// paraloc^.register:=newreg(R_INTREGISTER,nextintreg-1,R_SUBWHOLE);
// paraloc:=hp.paraloc[side].add_location;
// paraloc^.loc:=LOC_REGISTER;
// paraloc^.register:=newreg(R_INTREGISTER,nextintreg,R_SUBWHOLE);
// dec(nextintreg,2);
// end
//else
begin
paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.index:=NR_STACK_POINTER_REG;