paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:16:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed double initialisation of local typed constants/initialised

Browse Source 
variables (initialization code of inlined routines is stored/loaded
    from ppu as wel)

git-svn-id: trunk@5538 -
This commit is contained in:
Jonas Maebe 2006-12-04 14:10:10 +00:00
parent c427fcf902
commit 7c387c9f82
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -2289,13 +2289,6 @@ implementation
begin
tempnode := ctempcreatenode.create(tabstractvarsym(p).vardef,tabstractvarsym(p).vardef.size,tt_persistent,tabstractvarsym(p).is_regvar(false));
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
begin
funcretnode := ctemprefnode.create(tempnode);