Browse Source

* Fixed linking for OS/2.

daniel 27 years ago
parent
commit
e0ad99e2fb
1 changed files with 10 additions and 1 deletions
  1. 10 1
      compiler/link.pas

+ 10 - 1
compiler/link.pas

@@ -232,6 +232,12 @@ begin
      i:=Pos(target_info.dllext,S);
      i:=Pos(target_info.dllext,S);
      if i>0 then
      if i>0 then
       Delete(S,i,255);
       Delete(S,i,255);
+   {OS/2 linker supports -l, but not for import libraries.
+    For now, this fix should do it, as we don't support other libraries yet
+    but we need to think of something better.}
+   if target_info.target=target_OS2 then
+     writeln(linkresponse,s)
+   else
      Writeln (LinkResponse,'-l'+S);
      Writeln (LinkResponse,'-l'+S);
    end;
    end;
 
 
@@ -361,7 +367,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.2  1998-03-30 09:50:49  michael
+  Revision 1.3  1998-04-16 10:54:30  daniel
+  * Fixed linking for OS/2.
+
+  Revision 1.2  1998/03/30 09:50:49  michael
   + fix for library support.
   + fix for library support.
 
 
   Revision 1.1.1.1  1998/03/25 11:18:13  root
   Revision 1.1.1.1  1998/03/25 11:18:13  root