paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:26:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set nf_is_self node flag when self is loaded

Browse Source
This commit is contained in:
peter 2005-01-04 16:39:46 +00:00
parent 14ccaf9c7b
commit 717e3c76c2
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/node.pas
View File

@ -217,6 +217,7 @@ interface
{ tloadnode } { tloadnode }
nf_absolute, nf_absolute,
nf_is_self,
nf_load_self_pointer, nf_load_self_pointer,
{ taddnode } { taddnode }
@ -1126,7 +1127,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.94 2005-01-03 17:55:57 florian Revision 1.95 2005-01-04 16:39:46 peter
* set nf_is_self node flag when self is loaded
Revision 1.94 2005/01/03 17:55:57 florian
+ first batch of patches to support tdef.getcopy fully + first batch of patches to support tdef.getcopy fully
Revision 1.93 2004/12/26 16:22:01 peter Revision 1.93 2004/12/26 16:22:01 peter

6
compiler/nutils.pas
View File

@ -285,6 +285,7 @@ implementation
if assigned(srsym) then if assigned(srsym) then
begin begin
result:=cloadnode.create(srsym,srsymtable); result:=cloadnode.create(srsym,srsymtable);
include(result.flags,nf_is_self);
resulttypepass(result); resulttypepass(result);
end end
else else
@ -566,7 +567,10 @@ end.
{ {
$Log$ $Log$
Revision 1.28 2004-12-26 16:22:01 peter Revision 1.29 2005-01-04 16:39:46 peter
* set nf_is_self node flag when self is loaded
Revision 1.28 2004/12/26 16:22:01 peter
* fix lineinfo for with blocks * fix lineinfo for with blocks
Revision 1.27 2004/12/15 16:00:16 peter Revision 1.27 2004/12/15 16:00:16 peter