paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added hack for supporting linking with .obj files, generated by Borland's

Browse Source 
binobj tool with the i8086-msdos internal linker

git-svn-id: trunk@32381 -
This commit is contained in:
nickysn 2015-11-20 17:40:34 +00:00
parent d3660fec31
commit 30a7875d56
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogomf.pas
View File

@ -1135,6 +1135,12 @@ implementation
SegClassName:=UpCase(SegClassName); SegClassName:=UpCase(SegClassName);
OverlayName:=UpCase(OverlayName); OverlayName:=UpCase(OverlayName);
end; end;
{ hack for supporting object modules, generated by Borland's BINOBJ tool }
if (SegClassName='') and (SegmentName='CODE') then
begin
SegmentName:=InputFileName;
SegClassName:='CODE';
end;
secoptions:=[]; secoptions:=[];
objsec:=TOmfObjSection(objdata.createsection(SegmentName+'||'+SegClassName,SecAlign,secoptions,false)); objsec:=TOmfObjSection(objdata.createsection(SegmentName+'||'+SegClassName,SecAlign,secoptions,false));
objsec.FClassName:=SegClassName; objsec.FClassName:=SegClassName;