소스 검색

* initialize secalign before case statement to avoid warning. Mantis #28326

git-svn-id: trunk@31145 -
marco 10 년 전
부모
커밋
8d145ce706
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      compiler/ogomf.pas

+ 1 - 0
compiler/ogomf.pas

@@ -991,6 +991,7 @@ implementation
             exit;
           end;
         OverlayName:=LNames[SegDefRec.OverlayNameIndex];
+        SecAlign:=1; // otherwise warning prohibits compilation
         case SegDefRec.Alignment of
           saRelocatableByteAligned:
             SecAlign:=1;