Преглед на файлове

- the labtree argument is no longer needed

git-svn-id: trunk@38861 -
svenbarth преди 7 години
родител
ревизия
afbbd22544
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      compiler/nset.pas

+ 2 - 2
compiler/nset.pas

@@ -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));