paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 22:06:08 +02: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;
{$endif SUPPORT_MMX}
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;
@ -885,7 +897,10 @@ begin
end.
{
$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
* withnode cleanup
* direct with rewritten to use temprefnode