paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 17:17:43 +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 begin
{ In case of po_delphi_nested_cc, the parent frame pointer { In case of po_delphi_nested_cc, the parent frame pointer
is always passed on the stack. } is always passed on the stack. }
if false and { no fastcall yet } //if false and { no fastcall yet }
(nextintreg=RS_HL) and // (nextintreg=RS_HL) and
(not(vo_is_parentfp in hp.varoptions) or // (not(vo_is_parentfp in hp.varoptions) or
not(po_delphi_nested_cc in p.procoptions)) then // not(po_delphi_nested_cc in p.procoptions)) then
begin // begin
paraloc^.loc:=LOC_REGISTER; // paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=newreg(R_INTREGISTER,nextintreg-1,R_SUBWHOLE); // paraloc^.register:=newreg(R_INTREGISTER,nextintreg-1,R_SUBWHOLE);
paraloc:=hp.paraloc[side].add_location; // paraloc:=hp.paraloc[side].add_location;
paraloc^.loc:=LOC_REGISTER; // paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=newreg(R_INTREGISTER,nextintreg,R_SUBWHOLE); // paraloc^.register:=newreg(R_INTREGISTER,nextintreg,R_SUBWHOLE);
dec(nextintreg,2); // dec(nextintreg,2);
end // end
else //else
begin begin
paraloc^.loc:=LOC_REFERENCE; paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.index:=NR_STACK_POINTER_REG; paraloc^.reference.index:=NR_STACK_POINTER_REG;