소스 검색

* fixed warning in TOmfRecord_MODEND.DecodeFrom

git-svn-id: trunk@30592 -
nickysn 10 년 전
부모
커밋
07ebd29911
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/omfbase.pas

+ 1 - 1
compiler/omfbase.pas

@@ -1123,7 +1123,7 @@ implementation
         begin
         begin
           if LogicalStartAddress then
           if LogicalStartAddress then
             begin
             begin
-              if EndData>=RawRecord.RecordLength then
+              if NextOfs>=RawRecord.RecordLength then
                 internalerror(2015040305);
                 internalerror(2015040305);
               EndData:=RawRecord.RawData[NextOfs];
               EndData:=RawRecord.RawData[NextOfs];
               Inc(NextOfs);
               Inc(NextOfs);