paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 23:49:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed some more unnecessary code after r30855

Browse Source 
git-svn-id: trunk@30857 -
This commit is contained in:
Jonas Maebe 2015-05-14 17:44:37 +00:00
parent bd8079f896
commit ac592ed634
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nset.pas
View File

@ -756,11 +756,6 @@ implementation
begin begin
if_node:=makeifblock(labels, elseblock); if_node:=makeifblock(labels, elseblock);
for i:=0 to blocks.count-1 do
begin
pcaseblock(blocks[i])^.statement:=nil;
end;
if assigned(init_block) then if assigned(init_block) then
firstpass(tnode(init_block)); firstpass(tnode(init_block));