Bladeren bron

- the labtree argument is no longer needed

git-svn-id: trunk@38861 -
svenbarth 7 jaren geleden
bovenliggende
commit
afbbd22544
1 gewijzigde bestanden met toevoegingen van 2 en 2 verwijderingen
  1. 2 2
      compiler/nset.pas

+ 2 - 2
compiler/nset.pas

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