mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 15:19:25 +02:00
- removed some more unnecessary code after r30855
git-svn-id: trunk@30857 -
This commit is contained in:
parent
bd8079f896
commit
ac592ed634
@ -756,11 +756,6 @@ implementation
|
||||
begin
|
||||
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
|
||||
firstpass(tnode(init_block));
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user