Browse Source

* fixed crash in node_complexity() on the callparan nodes of SetLength() (and
perhaps calaparans of other inline nodes as well?)

git-svn-id: trunk@33256 -

nickysn 9 years ago
parent
commit
96f331038d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/nutils.pas

+ 2 - 1
compiler/nutils.pas

@@ -742,7 +742,8 @@ implementation
               callparan:
               callparan:
                 begin
                 begin
                   { call to decr? }
                   { call to decr? }
-                  if is_managed_type(tunarynode(p).left.resultdef) and (tcallparanode(p).parasym.varspez=vs_out) then
+                  if is_managed_type(tunarynode(p).left.resultdef) and
+                     assigned(tcallparanode(p).parasym) and (tcallparanode(p).parasym.varspez=vs_out) then
                     begin
                     begin
                       result:=NODE_COMPLEXITY_INF;
                       result:=NODE_COMPLEXITY_INF;
                       exit;
                       exit;