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

* also check if ECX is nonvolatile in is_ecx_used. Not strictly necessary for the current set of i386 calling conventions, but good as an extra safety precaution in case new calling conventions are added or the code is adapted and used on other platforms.

Browse Source 
git-svn-id: trunk@25839 -
This commit is contained in:
nickysn 2013-10-21 16:48:58 +00:00
parent 703e3f3ce2
commit a0723ccfd5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/cgcpu.pas
View File

@ -642,13 +642,15 @@ unit cgcpu;
}
{ returns whether ECX is used as a parameter }
{ returns whether ECX is used (either as a parameter or is nonvolatile and shouldn't be changed) }
function is_ecx_used: boolean;
var
i: Integer;
hp: tparavarsym;
paraloc: PCGParaLocation;
begin
if not (RS_ECX in paramanager.get_volatile_registers_int(procdef.proccalloption)) then
exit(true);
for i:=0 to procdef.paras.count-1 do
begin
hp:=tparavarsym(procdef.paras[i]);