소스 검색

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