|
@@ -695,7 +695,7 @@ implementation
|
|
|
add_label_to_blockid_list(result,labels);
|
|
|
end;
|
|
|
|
|
|
- function makeifblock(const labtree : pcaselabel; elseblock : tnode): tnode;
|
|
|
+ function makeifblock(elseblock : tnode): tnode;
|
|
|
var
|
|
|
i, j: longint;
|
|
|
check: taddnode;
|
|
@@ -800,7 +800,7 @@ implementation
|
|
|
|
|
|
if (labels^.label_type = ltConstString) then
|
|
|
begin
|
|
|
- if_node:=makeifblock(labels, elseblock);
|
|
|
+ if_node:=makeifblock(elseblock);
|
|
|
|
|
|
if assigned(init_block) then
|
|
|
firstpass(tnode(init_block));
|