paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:09:18 +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 } { later (for the newcg) tnode will inherit from tlinkedlist_item }
tnode = class tnode = class
public public
{ type of this node }
nodetype : tnodetype; nodetype : tnodetype;
{ type of the current code block, general/const/type }
blocktype : tblock_type;
{ the location of the result of this node } { the location of the result of this node }
location : tlocation; location : tlocation;
{ the parent node of this is node } { the parent node of this is node }
@ -418,6 +421,7 @@ implementation
begin begin
inherited create; inherited create;
nodetype:=tt; nodetype:=tt;
blocktype:=block_type;
{ this allows easier error tracing } { this allows easier error tracing }
location.loc:=LOC_INVALID; location.loc:=LOC_INVALID;
{ save local info } { save local info }
@ -791,7 +795,10 @@ implementation
end. end.
{ {
$Log$ $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 + varargs directive
Revision 1.15 2001/04/13 01:22:10 peter Revision 1.15 2001/04/13 01:22:10 peter