Browse Source

+ create a TNewExeSection class

git-svn-id: trunk@42546 -
nickysn 6 years ago
parent
commit
05c420fad5
1 changed files with 6 additions and 0 deletions
  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;