From 30a7875d56914f875369de9fc94db43aa4254be3 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 20 Nov 2015 17:40:34 +0000
Subject: [PATCH] + 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 -
---
 compiler/ogomf.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 1a6fc93e6e..ba25512183 100644
--- a/compiler/ogomf.pas
+++ b/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;