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

* added missing firstpass for withrefnode

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-24 17:15:24 +00:00
parent f8c0236bf4
commit df07c64f1f
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/nmem.pas
View File

@ -862,6 +862,18 @@ implementation
registersmmx:=left.registersmmx; registersmmx:=left.registersmmx;
{$endif SUPPORT_MMX} {$endif SUPPORT_MMX}
end; end;
if assigned(withrefnode) then
begin
firstpass(withrefnode);
if withrefnode.registers32 > registers32 then
registers32:=withrefnode.registers32;
if withrefnode.registersfpu > registersfpu then
registers32:=withrefnode.registersfpu;
{$ifdef SUPPORT_MMX}
if withrefnode.registersmmx > registersmmx then
registersmmx:=withrefnode.registersmmx;
{$endif SUPPORT_MMX}
end;
end; end;
@ -885,7 +897,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.54 2003-05-11 14:45:12 peter Revision 1.55 2003-05-24 17:15:24 jonas
* added missing firstpass for withrefnode
Revision 1.54 2003/05/11 14:45:12 peter
* tloadnode does not support objectsymtable,withsymtable anymore * tloadnode does not support objectsymtable,withsymtable anymore
* withnode cleanup * withnode cleanup
* direct with rewritten to use temprefnode * direct with rewritten to use temprefnode