소스 검색

+ create a TNewExeSection class

git-svn-id: trunk@42546 -
nickysn 6 년 전
부모
커밋
05c420fad5
1개의 변경된 파일6개의 추가작업 그리고 0개의 파일을 삭제
  1. 6 0
      compiler/ogomf.pas

+ 6 - 0
compiler/ogomf.pas

@@ -466,6 +466,11 @@ interface
         property ExpectedWindowsVersion: Word read FExpectedWindowsVersion write FExpectedWindowsVersion;
       end;
 
+      { TNewExeSection }
+
+      TNewExeSection=class(TExeSection)
+      end;
+
       { TNewExeOutput }
 
       TNewExeOutput = class(TExeOutput)
@@ -3577,6 +3582,7 @@ cleanup:
         inherited create;
         CObjData:=TOmfObjData;
         CObjSymbol:=TOmfObjSymbol;
+        CExeSection:=TNewExeSection;
         FHeader:=TNewExeHeader.Create;
       end;