paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* store blocktype info in tnode

Browse Source
This commit is contained in:
peter 2001-06-04 18:14:16 +00:00
parent 9b6f1bdb64
commit 2336bd2118
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/node.pas
View File

@ -282,7 +282,10 @@ interface
{ later (for the newcg) tnode will inherit from tlinkedlist_item }
tnode = class
public
{ type of this node }
nodetype : tnodetype;
{ type of the current code block, general/const/type }
blocktype : tblock_type;
{ the location of the result of this node }
location : tlocation;
{ the parent node of this is node }
@ -418,6 +421,7 @@ implementation
begin
inherited create;
nodetype:=tt;
blocktype:=block_type;
{ this allows easier error tracing }
location.loc:=LOC_INVALID;
{ save local info }
@ -791,7 +795,10 @@ implementation
end.
{
$Log$
Revision 1.16 2001-06-04 11:53:13 peter
Revision 1.17 2001-06-04 18:14:16 peter
* store blocktype info in tnode
Revision 1.16 2001/06/04 11:53:13 peter
+ varargs directive
Revision 1.15 2001/04/13 01:22:10 peter