paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 01:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

- disabled some debugging code

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-23 10:58:06 +00:00
parent 4233636161
commit 5ab3ea0af5
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/powerpc/aasmcpu.pas
View File

@ -611,7 +611,10 @@ uses cutils,rgobj;
loadreg(0,helpreg);
rgunget(list,helpins,helpreg);
forward_allocation(tai(helpins.next));
{
writeln('spilling!');
list.insertafter(tai_comment.Create(strpnew('Spilling!')),helpins);
}
end;
{ now the registers used in the reference }
@ -633,7 +636,10 @@ uses cutils,rgobj;
oper[1].ref^.base:=helpreg;
rgunget(list,helpins,helpreg);
forward_allocation(Tai(helpins.next));
{
writeln('spilling!');
list.insertafter(tai_comment.Create(strpnew('Spilling!')),helpins);
}
end;
{ b) index }
@ -654,7 +660,10 @@ uses cutils,rgobj;
oper[1].ref^.index:=helpreg;
rgunget(list,helpins,helpreg);
forward_allocation(Tai(helpins.next));
{
writeln('spilling!');
list.insertafter(tai_comment.Create(strpnew('Spilling!')),helpins);
}
end;
{ load/store is done }
exit;
@ -702,7 +711,10 @@ uses cutils,rgobj;
loadreg(0,helpreg);
rgunget(list,helpins,helpreg);
forward_allocation(tai(helpins.next));
{
writeln('spilling!');
list.insertafter(tai_comment.Create(strpnew('Spilling!')),helpins);
}
end;
for i := 1 to 2 do
@ -731,7 +743,10 @@ uses cutils,rgobj;
loadreg(i,helpreg);
rgunget(list,helpins,helpreg);
forward_allocation(tai(helpins.next));
{
writeln('spilling!');
list.insertafter(tai_comment.Create(strpnew('Spilling!')),helpins);
}
end;
end;
end;
@ -750,7 +765,10 @@ uses cutils,rgobj;
end.
{
$Log$
Revision 1.10 2003-07-06 21:26:06 jonas
Revision 1.11 2003-07-23 10:58:06 jonas
- disabled some debugging code
Revision 1.10 2003/07/06 21:26:06 jonas
* committed wrong file previously :(
Revision 1.8 2003/06/14 22:32:43 jonas