Pārlūkot izejas kodu

* add notarget defines

peter 24 gadi atpakaļ
vecāks
revīzija
423463630c
2 mainītis faili ar 36 papildinājumiem un 5 dzēšanām
  1. 16 2
      compiler/export.pas
  2. 20 3
      compiler/import.pas

+ 16 - 2
compiler/export.pas

@@ -190,14 +190,25 @@ procedure InitExport;
 begin
   case target_info.target of
 {$ifdef i386}
+  {$ifndef NOTARGETLINUX}
     target_i386_Linux :
       exportlib:=Texportliblinux.Create;
+  {$endif NOTARGETLINUX}
+  {$ifndef NOTARGETFREEBSD}
     target_i386_freebsd:
       exportlib:=Texportlibfreebsd.Create;
+  {$endif NOTARGETFREEBSD}
+//  {$ifndef NOTARGETSOLARIS}
+//    target_i386_solaris:
+//      exportlib:=new(pexportlibsolaris,Init);
+//  {$endif NOTARGETSOLARIS}
+  {$ifndef NOTARGETWIN32}
     target_i386_Win32 :
       exportlib:=Texportlibwin32.Create;
-    target_i386_Netware :
+  {$endif NOTARGETWIN32}
+  {$ifndef NOTARGETNETWARE}
       exportlib:=Texportlibnetware.Create;
+  {$endif NOTARGETNETWARE}
 {
     target_i386_OS2 :
       exportlib:=Texportlibos2.Create;
@@ -224,7 +235,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.9  2000-12-25 00:07:25  peter
+  Revision 1.10  2001-02-02 22:43:39  peter
+    * add notarget defines
+
+  Revision 1.9  2000/12/25 00:07:25  peter
     + new tlinkedlist class (merge of old tstringqueue,tcontainer and
       tlinkedlist objects)
 

+ 20 - 3
compiler/import.pas

@@ -228,16 +228,30 @@ procedure InitImport;
 begin
   case target_info.target of
 {$ifdef i386}
+  {$ifndef NOTARGETLINUX}
     target_i386_Linux :
       importlib:=Timportliblinux.Create;
+  {$endif}
+  {$ifndef NOTARGETFREEBSD}
     target_i386_freebsd:
       importlib:=Timportlibfreebsd.Create;
-         target_i386_Win32 :
+  {$endif}
+//  {$ifndef NOTARGETSOLARIS}
+//    target_i386_solaris:
+//      importlib:=new(pimportlibsolaris,Init);
+//  {$endif}
+  {$ifndef NOTARGETWIN32}
+    target_i386_Win32 :
       importlib:=Timportlibwin32.Create;
+  {$endif}
+  {$ifndef NOTARGETOS2}
     target_i386_OS2 :
       importlib:=Timportlibos2.Create;
-    target_i386_Netware :
+  {$endif}
+  {$ifndef NOTARGETNETWARE}
+    target_i386_OS2 :
       importlib:=Timportlibnetware.Create;
+  {$endif}
 {$endif i386}
 {$ifdef m68k}
     target_m68k_Linux :
@@ -260,7 +274,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.7  2000-12-25 00:07:26  peter
+  Revision 1.8  2001-02-02 22:43:39  peter
+    * add notarget defines
+
+  Revision 1.7  2000/12/25 00:07:26  peter
     + new tlinkedlist class (merge of old tstringqueue,tcontainer and
       tlinkedlist objects)