浏览代码

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