|
@@ -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;
|
|
|
|
|