Selaa lähdekoodia

- removed double initialisation of local typed constants/initialised
variables (initialization code of inlined routines is stored/loaded
from ppu as wel)

git-svn-id: trunk@5538 -

Jonas Maebe 18 vuotta sitten
vanhempi
commit
7c387c9f82
1 muutettua tiedostoa jossa 0 lisäystä ja 7 poistoa
  1. 0 7
      compiler/ncal.pas

+ 0 - 7
compiler/ncal.pas

@@ -2289,13 +2289,6 @@ implementation
           begin
           begin
             tempnode := ctempcreatenode.create(tabstractvarsym(p).vardef,tabstractvarsym(p).vardef.size,tt_persistent,tabstractvarsym(p).is_regvar(false));
             tempnode := ctempcreatenode.create(tabstractvarsym(p).vardef,tabstractvarsym(p).vardef.size,tt_persistent,tabstractvarsym(p).is_regvar(false));
             addstatement(tempinfo^.createstatement,tempnode);
             addstatement(tempinfo^.createstatement,tempnode);
-            if assigned(tlocalvarsym(p).defaultconstsym) then
-              begin
-                { warning: duplicate from psub.pas:initializevars() -> must refactor }
-                addstatement(tempinfo^.createstatement,cassignmentnode.create(
-                                  ctemprefnode.create(tempnode),
-                                  cloadnode.create(tlocalvarsym(p).defaultconstsym,tlocalvarsym(p).defaultconstsym.owner)));
-              end;
             if (vo_is_funcret in tlocalvarsym(p).varoptions) then
             if (vo_is_funcret in tlocalvarsym(p).varoptions) then
               begin
               begin
                 funcretnode := ctemprefnode.create(tempnode);
                 funcretnode := ctemprefnode.create(tempnode);