* extended nodes which return true from is_const

git-svn-id: trunk@31472 -

compiler/nutils.pas

@@ -1354,7 +1354,9 @@ implementation
 
     function is_const(node : tnode) : boolean;
       begin
-        result:=(node.nodetype=temprefn) and (ti_const in ttemprefnode(node).tempinfo^.flags)
+        result:=is_constnode(node) or
+          ((node.nodetype=temprefn) and (ti_const in ttemprefnode(node).tempinfo^.flags)) or
+          ((node.nodetype=loadn) and (tloadnode(node).symtableentry.typ=paravarsym) and (tparavarsym(tloadnode(node).symtableentry).varspez in [vs_const,vs_constref]));
       end;