From 423463630cf93b0e751f218b9d63dfc3d4b3810e Mon Sep 17 00:00:00 2001 From: peter Date: Fri, 2 Feb 2001 22:43:39 +0000 Subject: [PATCH] * add notarget defines --- compiler/export.pas | 18 ++++++++++++++++-- compiler/import.pas | 23 ++++++++++++++++++++--- 2 files changed, 36 insertions(+), 5 deletions(-) diff --git a/compiler/export.pas b/compiler/export.pas index 0125f9c681..5bcf166463 100644 --- a/compiler/export.pas +++ b/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) diff --git a/compiler/import.pas b/compiler/import.pas index 40a9e4150e..89d5089555 100644 --- a/compiler/import.pas +++ b/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)