Browse Source

* clear optinfo after allocating it

git-svn-id: trunk@24898 -
florian 12 years ago
parent
commit
3016d48521
1 changed files with 4 additions and 1 deletions
  1. 4 1
      compiler/node.pas

+ 4 - 1
compiler/node.pas

@@ -967,7 +967,10 @@ implementation
     function tnode.allocoptinfo : poptinfo;inline;
     function tnode.allocoptinfo : poptinfo;inline;
       begin
       begin
         if not(assigned(optinfo)) then
         if not(assigned(optinfo)) then
-          new(optinfo);
+          begin
+            new(optinfo);
+            fillchar(optinfo^,sizeof(optinfo^),0);
+          end;
         result:=optinfo;
         result:=optinfo;
       end;
       end;