瀏覽代碼

+ pointerconstn is also a constant node

git-svn-id: trunk@26305 -
florian 11 年之前
父節點
當前提交
880201e56c
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/node.pas

+ 1 - 1
compiler/node.pas

@@ -659,7 +659,7 @@ implementation
 
 
     function is_constnode(p : tnode) : boolean;
     function is_constnode(p : tnode) : boolean;
       begin
       begin
-        is_constnode:=(p.nodetype in [niln,ordconstn,realconstn,stringconstn,setconstn,guidconstn]);
+        is_constnode:=(p.nodetype in [niln,ordconstn,realconstn,stringconstn,setconstn,pointerconstn,guidconstn]);
       end;
       end;