Kaynağa Gözat

+ create a TNewExeSection class

git-svn-id: trunk@42546 -
nickysn 6 yıl önce
ebeveyn
işleme
05c420fad5
1 değiştirilmiş dosya ile 6 ekleme ve 0 silme
  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;