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

* mark nodes that are copies

Browse Source
This commit is contained in:
peter 2003-11-23 17:38:48 +00:00
parent 805df8c05f
commit d765fe0c40
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/node.pas
View File

@ -198,6 +198,7 @@ interface
nf_swapable, { tbinop operands can be swaped } nf_swapable, { tbinop operands can be swaped }
nf_swaped, { tbinop operands are swaped } nf_swaped, { tbinop operands are swaped }
nf_error, nf_error,
nf_copy,
{ general } { general }
nf_write, { Node is written to } nf_write, { Node is written to }
@ -234,8 +235,6 @@ interface
nf_use_strconcat, nf_use_strconcat,
{ tarrayconstructnode } { tarrayconstructnode }
nf_cargs,
nf_cargswap,
nf_forcevaria, nf_forcevaria,
nf_novariaallowed, nf_novariaallowed,
@ -243,10 +242,7 @@ interface
nf_explicit, nf_explicit,
{ tinlinenode } { tinlinenode }
nf_inlineconst, nf_inlineconst
{ tblocknode }
nf_releasetemps
); );
tnodeflags = set of tnodeflag; tnodeflags = set of tnodeflag;
@ -770,6 +766,8 @@ implementation
{$ifdef extdebug} {$ifdef extdebug}
p.firstpasscount:=firstpasscount; p.firstpasscount:=firstpasscount;
{$endif extdebug} {$endif extdebug}
{ mark node as being a copy }
include(p.flags,nf_copy);
{ p.list:=list; } { p.list:=list; }
getcopy:=p; getcopy:=p;
end; end;
@ -1091,7 +1089,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.75 2003-11-12 15:48:27 peter Revision 1.76 2003-11-23 17:38:48 peter
* mark nodes that are copies
Revision 1.75 2003/11/12 15:48:27 peter
* fix set_varstate in for loops * fix set_varstate in for loops
* fix set_varstate from case statements * fix set_varstate from case statements