Sfoglia il codice sorgente

+ added hack for supporting linking with .obj files, generated by Borland's
binobj tool with the i8086-msdos internal linker

git-svn-id: trunk@32381 -

nickysn 9 anni fa
parent
commit
30a7875d56
1 ha cambiato i file con 6 aggiunte e 0 eliminazioni
  1. 6 0
      compiler/ogomf.pas

+ 6 - 0
compiler/ogomf.pas

@@ -1135,6 +1135,12 @@ implementation
             SegClassName:=UpCase(SegClassName);
             OverlayName:=UpCase(OverlayName);
           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:=[];
         objsec:=TOmfObjSection(objdata.createsection(SegmentName+'||'+SegClassName,SecAlign,secoptions,false));
         objsec.FClassName:=SegClassName;