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

+ TEMPREGDEBUG code added

Browse Source
This commit is contained in:
pierre 1999-08-23 23:38:18 +00:00
parent 1c9e86eb05
commit a7bc2dfb17
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg386cal.pas
View File

@ -196,6 +196,7 @@ implementation
procedure secondcalln(var p : ptree); procedure secondcalln(var p : ptree);
var var
unusedregisters : tregisterset; unusedregisters : tregisterset;
usablecount : byte;
pushed : tpushed; pushed : tpushed;
hr,funcretref : treference; hr,funcretref : treference;
hregister,hregister2 : tregister; hregister,hregister2 : tregister;
@ -238,6 +239,7 @@ implementation
loadesi:=true; loadesi:=true;
no_virtual_call:=false; no_virtual_call:=false;
unusedregisters:=unused; unusedregisters:=unused;
usablecount:=usablereg32;
if not assigned(p^.procdefinition) then if not assigned(p^.procdefinition) then
exit; exit;
@ -885,6 +887,10 @@ implementation
dont_call: dont_call:
pushedparasize:=oldpushedparasize; pushedparasize:=oldpushedparasize;
unused:=unusedregisters; unused:=unusedregisters;
usablereg32:=usablecount;
{$ifdef TEMPREGDEBUG}
testregisters32;
{$endif TEMPREGDEBUG}
{ a constructor could be a function with boolean result } { a constructor could be a function with boolean result }
{ if calling constructor called fail we { if calling constructor called fail we
@ -1205,7 +1211,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.100 1999-08-19 13:08:45 pierre Revision 1.101 1999-08-23 23:38:18 pierre
+ TEMPREGDEBUG code added
Revision 1.100 1999/08/19 13:08:45 pierre
* emit_??? used * emit_??? used
Revision 1.99 1999/08/09 22:19:47 peter Revision 1.99 1999/08/09 22:19:47 peter