2
0
peter 24 жил өмнө
parent
commit
423463630c

+ 16 - 2
compiler/export.pas

@@ -190,14 +190,25 @@ procedure InitExport;
 begin
 begin
   case target_info.target of
   case target_info.target of
 {$ifdef i386}
 {$ifdef i386}
+  {$ifndef NOTARGETLINUX}
     target_i386_Linux :
     target_i386_Linux :
       exportlib:=Texportliblinux.Create;
       exportlib:=Texportliblinux.Create;
+  {$endif NOTARGETLINUX}
+  {$ifndef NOTARGETFREEBSD}
     target_i386_freebsd:
     target_i386_freebsd:
       exportlib:=Texportlibfreebsd.Create;
       exportlib:=Texportlibfreebsd.Create;
+  {$endif NOTARGETFREEBSD}
+//  {$ifndef NOTARGETSOLARIS}
+//    target_i386_solaris:
+//      exportlib:=new(pexportlibsolaris,Init);
+//  {$endif NOTARGETSOLARIS}
+  {$ifndef NOTARGETWIN32}
     target_i386_Win32 :
     target_i386_Win32 :
       exportlib:=Texportlibwin32.Create;
       exportlib:=Texportlibwin32.Create;
-    target_i386_Netware :
+  {$endif NOTARGETWIN32}
+  {$ifndef NOTARGETNETWARE}
       exportlib:=Texportlibnetware.Create;
       exportlib:=Texportlibnetware.Create;
+  {$endif NOTARGETNETWARE}
 {
 {
     target_i386_OS2 :
     target_i386_OS2 :
       exportlib:=Texportlibos2.Create;
       exportlib:=Texportlibos2.Create;
@@ -224,7 +235,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $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
     + new tlinkedlist class (merge of old tstringqueue,tcontainer and
       tlinkedlist objects)
       tlinkedlist objects)
 
 

+ 20 - 3
compiler/import.pas

@@ -228,16 +228,30 @@ procedure InitImport;
 begin
 begin
   case target_info.target of
   case target_info.target of
 {$ifdef i386}
 {$ifdef i386}
+  {$ifndef NOTARGETLINUX}
     target_i386_Linux :
     target_i386_Linux :
       importlib:=Timportliblinux.Create;
       importlib:=Timportliblinux.Create;
+  {$endif}
+  {$ifndef NOTARGETFREEBSD}
     target_i386_freebsd:
     target_i386_freebsd:
       importlib:=Timportlibfreebsd.Create;
       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;
       importlib:=Timportlibwin32.Create;
+  {$endif}
+  {$ifndef NOTARGETOS2}
     target_i386_OS2 :
     target_i386_OS2 :
       importlib:=Timportlibos2.Create;
       importlib:=Timportlibos2.Create;
-    target_i386_Netware :
+  {$endif}
+  {$ifndef NOTARGETNETWARE}
+    target_i386_OS2 :
       importlib:=Timportlibnetware.Create;
       importlib:=Timportlibnetware.Create;
+  {$endif}
 {$endif i386}
 {$endif i386}
 {$ifdef m68k}
 {$ifdef m68k}
     target_m68k_Linux :
     target_m68k_Linux :
@@ -260,7 +274,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $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
     + new tlinkedlist class (merge of old tstringqueue,tcontainer and
       tlinkedlist objects)
       tlinkedlist objects)