paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 01:09:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

- the labtree argument is no longer needed

Browse Source 
git-svn-id: trunk@38861 -
This commit is contained in:
svenbarth 2018-04-27 21:09:09 +00:00
parent cfa373a8cf
commit afbbd22544
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nset.pas
View File

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