Преглед на файлове

* open arrays and arrays of consts might be only stack tainting if they are passed by value

git-svn-id: trunk@41008 -
florian преди 6 години
родител
ревизия
8d3d5276d7
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      compiler/symdef.pas

+ 2 - 2
compiler/symdef.pas

@@ -5345,8 +5345,8 @@ implementation
             begin
               p:=tparavarsym(parast.SymList[i]);
               { check if no parameter is located on the stack }
-              if is_open_array(p.vardef) or
-                 is_array_of_const(p.vardef) then
+              if (is_open_array(p.vardef) or
+                 is_array_of_const(p.vardef)) and (p.varspez=vs_value) then
                 begin
                   result:=true;
                   exit;