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

Add debug information about register spilling

Browse Source 
If DEBUG_SPILLING is defined we'll output "XXX: Spill read/write".

git-svn-id: trunk@21816 -
This commit is contained in:
masta 2012-07-08 09:24:14 +00:00
parent 1a25aed68d
commit aef81cad68
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/rgobj.pas
View File

@ -1874,6 +1874,9 @@ unit rgobj;
ins:=spilling_create_load(spilltemp,tempreg); ins:=spilling_create_load(spilltemp,tempreg);
add_cpu_interferences(ins); add_cpu_interferences(ins);
list.insertafter(ins,pos); list.insertafter(ins,pos);
{$ifdef DEBUG_SPILLING}
list.Insertbefore(tai_comment.Create(strpnew('XXX: Spill Read')),ins);
{$endif}
end; end;
@ -1884,6 +1887,9 @@ unit rgobj;
ins:=spilling_create_store(tempreg,spilltemp); ins:=spilling_create_store(tempreg,spilltemp);
add_cpu_interferences(ins); add_cpu_interferences(ins);
list.insertafter(ins,pos); list.insertafter(ins,pos);
{$ifdef DEBUG_SPILLING}
list.Insertbefore(tai_comment.Create(strpnew('XXX: Spill Write')),ins);
{$endif}
end; end;