Bladeren bron

* do not create an fpc_zeromem node if size=0

git-svn-id: trunk@27224 -
florian 11 jaren geleden
bovenliggende
commit
04464b8622
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      compiler/psub.pas

+ 1 - 1
compiler/psub.pas

@@ -217,7 +217,7 @@ implementation
          exit;
          exit;
         with tabstractnormalvarsym(p) do
         with tabstractnormalvarsym(p) do
          begin
          begin
-           if vo_is_default_var in varoptions then
+           if (vo_is_default_var in varoptions) and (vardef.size>0) then
              begin
              begin
                b:=tblocknode(arg);
                b:=tblocknode(arg);
                b.left:=cstatementnode.create(
                b.left:=cstatementnode.create(