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

* is_ecx_used modified to only check the callee side, but after a call to

Browse Source 
init_paraloc_info to ensure that the callee side paraloc info is created.

git-svn-id: trunk@26103 -
This commit is contained in:
nickysn 2013-11-17 15:46:56 +00:00
parent f19d65118d
commit 85e1f444c5
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/cgcpu.pas
View File

@ -648,21 +648,14 @@ unit cgcpu;
i: Integer; i: Integer;
hp: tparavarsym; hp: tparavarsym;
paraloc: PCGParaLocation; paraloc: PCGParaLocation;
side: tcallercallee;
begin begin
if not (RS_ECX in paramanager.get_volatile_registers_int(procdef.proccalloption)) then if not (RS_ECX in paramanager.get_volatile_registers_int(procdef.proccalloption)) then
exit(true); exit(true);
for i:=0 to procdef.paras.count-1 do for i:=0 to procdef.paras.count-1 do
begin begin
hp:=tparavarsym(procdef.paras[i]); hp:=tparavarsym(procdef.paras[i]);
if procdef.has_paraloc_info in [calleeside,callbothsides] then procdef.init_paraloc_info(calleeside);
side:=calleeside paraloc:=hp.paraloc[calleeside].Location;
{ in the case of virtual abstract methods, we only have callerside }
else if procdef.has_paraloc_info=callerside then
side:=callerside
else
internalerror(2013111601);
paraloc:=hp.paraloc[side].Location;
while paraloc<>nil do while paraloc<>nil do
begin begin
if (paraloc^.Loc=LOC_REGISTER) and (getsupreg(paraloc^.register)=RS_ECX) then if (paraloc^.Loc=LOC_REGISTER) and (getsupreg(paraloc^.register)=RS_ECX) then