Browse Source

- Removed TDJCoffObjSection,TPECoffObjSection,TCoffExeSection,TPECoffExeSection,TDJCoffExeSection. These only add complication and no value.

git-svn-id: trunk@21684 -
sergei 13 years ago
parent
commit
5be97c7c9e
1 changed files with 4 additions and 71 deletions
  1. 4 71
      compiler/ogcoff.pas

+ 4 - 71
compiler/ogcoff.pas

@@ -113,14 +113,6 @@ interface
          procedure fixuprelocs(Exe:TExeOutput);override;
          procedure fixuprelocs(Exe:TExeOutput);override;
        end;
        end;
 
 
-       TDJCoffObjSection = class(TCoffObjSection)
-         constructor create(AList:TFPHashObjectList;const Aname:string;Aalign:shortint;Aoptions:TObjSectionOptions);override;
-       end;
-
-       TPECoffObjSection = class(TCoffObjSection)
-         constructor create(AList:TFPHashObjectList;const Aname:string;Aalign:shortint;Aoptions:TObjSectionOptions);override;
-       end;
-
        TCoffObjData = class(TObjData)
        TCoffObjData = class(TObjData)
        private
        private
          win32      : boolean;
          win32      : boolean;
@@ -200,21 +192,6 @@ interface
          constructor create;override;
          constructor create;override;
        end;
        end;
 
 
-       TCoffExeSection = class(TExeSection)
-       private
-         win32   : boolean;
-       public
-         constructor createcoff(AList:TFPHashObjectList;const n:string;awin32:boolean);
-       end;
-
-       TDJCoffExeSection = class(TCoffExeSection)
-         constructor create(AList:TFPHashObjectList;const n:string);override;
-       end;
-
-       TPECoffExeSection = class(TCoffExeSection)
-         constructor create(AList:TFPHashObjectList;const n:string);override;
-       end;
-
        TCoffexeoutput = class(texeoutput)
        TCoffexeoutput = class(texeoutput)
        private
        private
          FCoffStrs : tdynamicarray;
          FCoffStrs : tdynamicarray;
@@ -1010,26 +987,6 @@ const pemagic : array[0..3] of byte = (
 
 
 
 
 
 
-{****************************************************************************
-                               TDJCoffObjSection
-****************************************************************************}
-
-    constructor TDJCoffObjSection.create(AList:TFPHashObjectList;const aname:string;aalign:shortint;aoptions:TObjSectionOptions);
-      begin
-        inherited create(alist,aname,aalign,aoptions);
-      end;
-
-
-{****************************************************************************
-                               TPECoffObjSection
-****************************************************************************}
-
-    constructor TPECoffObjSection.create(AList:TFPHashObjectList;const aname:string;aalign:shortint;aoptions:TObjSectionOptions);
-      begin
-        inherited create(alist,aname,aalign,aoptions);
-      end;
-
-
 {****************************************************************************
 {****************************************************************************
                                 TCoffObjData
                                 TCoffObjData
 ****************************************************************************}
 ****************************************************************************}
@@ -1192,7 +1149,7 @@ const pemagic : array[0..3] of byte = (
 
 
     constructor TDJCoffObjData.create(const n:string);
     constructor TDJCoffObjData.create(const n:string);
       begin
       begin
-        inherited createcoff(n,false,TDJCoffObjSection);
+        inherited createcoff(n,false,TCoffObjSection);
       end;
       end;
 
 
 
 
@@ -1202,7 +1159,7 @@ const pemagic : array[0..3] of byte = (
 
 
     constructor TPECoffObjData.create(const n:string);
     constructor TPECoffObjData.create(const n:string);
       begin
       begin
-        inherited createcoff(n,true,TPECoffObjSection);
+        inherited createcoff(n,true,TCoffObjSection);
       end;
       end;
 
 
 
 
@@ -1966,30 +1923,6 @@ const pemagic : array[0..3] of byte = (
       end;
       end;
 
 
 
 
-{****************************************************************************
-                              TCoffexesection
-****************************************************************************}
-
-
-    constructor TCoffExeSection.createcoff(AList:TFPHashObjectList;const n:string;awin32:boolean);
-      begin
-        inherited create(AList,n);
-        win32:=awin32;
-      end;
-
-
-    constructor TDJCoffExeSection.create(AList:TFPHashObjectList;const n:string);
-      begin
-        inherited createcoff(AList,n,false);
-      end;
-
-
-    constructor TPECoffExeSection.create(AList:TFPHashObjectList;const n:string);
-      begin
-        inherited createcoff(AList,n,false);
-      end;
-
-
 {****************************************************************************
 {****************************************************************************
                               TCoffexeoutput
                               TCoffexeoutput
 ****************************************************************************}
 ****************************************************************************}
@@ -2489,7 +2422,7 @@ const pemagic : array[0..3] of byte = (
       begin
       begin
         inherited createcoff(false);
         inherited createcoff(false);
         datapos_offset:=sizeof(go32v2stub);
         datapos_offset:=sizeof(go32v2stub);
-        CExeSection:=TDJCoffExeSection;
+        CExeSection:=TExeSection;
         CObjData:=TDJCoffObjData;
         CObjData:=TDJCoffObjData;
       end;
       end;
 
 
@@ -2503,7 +2436,7 @@ const pemagic : array[0..3] of byte = (
     constructor TPECoffexeoutput.create;
     constructor TPECoffexeoutput.create;
       begin
       begin
         inherited createcoff(true);
         inherited createcoff(true);
-        CExeSection:=TPECoffExeSection;
+        CExeSection:=TExeSection;
         CObjData:=TPECoffObjData;
         CObjData:=TPECoffObjData;
       end;
       end;