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

* niln is also a constnode

Browse Source
This commit is contained in:
peter 2003-10-02 21:18:44 +00:00
parent b1863f8fad
commit 9bdadbf909
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncon.pas
View File

@ -223,7 +223,7 @@ implementation
function is_constnode(p : tnode) : boolean; function is_constnode(p : tnode) : boolean;
begin begin
is_constnode:=(p.nodetype in [ordconstn,realconstn,stringconstn,setconstn,guidconstn]); is_constnode:=(p.nodetype in [niln,ordconstn,realconstn,stringconstn,setconstn,guidconstn]);
end; end;
@ -908,7 +908,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.52 2003-10-01 20:34:48 peter Revision 1.53 2003-10-02 21:18:44 peter
* niln is also a constnode
Revision 1.52 2003/10/01 20:34:48 peter
* procinfo unit contains tprocinfo * procinfo unit contains tprocinfo
* cginfo renamed to cgbase * cginfo renamed to cgbase
* moved cgmessage to verbose * moved cgmessage to verbose