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