diff --git a/compiler/systems/i_fbsd.pas b/compiler/systems/i_fbsd.pas
index 8bf1c6ef94..448f1e3b70 100644
--- a/compiler/systems/i_fbsd.pas
+++ b/compiler/systems/i_fbsd.pas
@@ -19,7 +19,9 @@
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  ****************************************************************************
 }
-{ This unit implements support information structures for FreeBSD/NetBSD. }
+{ This unit implements support information structures for FreeBSD/NetBSD.
+  OpenBSD and Darwin must be added still.}
+
 unit i_fbsd;
 
   interface
@@ -36,7 +38,7 @@ unit i_fbsd;
             flags        : [];
             cpu          : cpu_i386;
             unit_env     : 'BSDUNITS';
-            extradefines : 'UNIX;BSD';
+            extradefines : 'UNIX;BSD;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -100,7 +102,7 @@ unit i_fbsd;
             flags        : [tf_under_development];
             cpu          : cpu_i386;
             unit_env     : 'BSDUNITS';
-            extradefines : 'UNIX;BSD';
+            extradefines : 'UNIX;BSD;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -164,7 +166,7 @@ unit i_fbsd;
             flags        : [tf_under_development];
             cpu          : cpu_m68k;
             unit_env     : 'BSDUNITS';
-            extradefines : 'UNIX;BSD';
+            extradefines : 'UNIX;BSD;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -239,7 +241,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.1  2002-09-06 15:03:51  carl
+  Revision 1.2  2003-01-11 16:35:15  marco
+   * HASUNIX defined for now.
+
+  Revision 1.1  2002/09/06 15:03:51  carl
     * moved files to systems directory
 
   Revision 1.3  2002/08/13 18:01:51  carl
diff --git a/compiler/systems/i_linux.pas b/compiler/systems/i_linux.pas
index 2b1bcb7511..722ea685ba 100644
--- a/compiler/systems/i_linux.pas
+++ b/compiler/systems/i_linux.pas
@@ -36,7 +36,7 @@ unit i_linux;
             flags        : [];
             cpu          : cpu_i386;
             unit_env     : 'LINUXUNITS';
-            extradefines : 'UNIX';
+            extradefines : 'UNIX;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -100,7 +100,7 @@ unit i_linux;
             flags        : [];
             cpu          : cpu_m68k;
             unit_env     : 'LINUXUNITS';
-            extradefines : 'UNIX';
+            extradefines : 'UNIX;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -164,7 +164,7 @@ unit i_linux;
             flags        : [];
             cpu          : cpu_powerpc;
             unit_env     : '';
-            extradefines : 'UNIX';
+            extradefines : 'UNIX;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -228,7 +228,7 @@ unit i_linux;
             flags        : [];
             cpu          : cpu_alpha;
             unit_env     : 'LINUXUNITS';
-            extradefines : 'UNIX';
+            extradefines : 'UNIX;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -292,7 +292,7 @@ unit i_linux;
             flags        : [];
             cpu          : cpu_x86_64;
             unit_env     : 'LINUXUNITS';
-            extradefines : 'UNIX';
+            extradefines : 'UNIX;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -356,7 +356,7 @@ unit i_linux;
             flags        : [];
             cpu          : cpu_SPARC;
             unit_env     : 'LINUXUNITS';
-            extradefines : 'UNIX';
+            extradefines : 'UNIX;HASUNIX';
             sourceext    : '.pp';
             pasext       : '.pas';
             exeext       : '';
@@ -446,7 +446,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.2  2002-10-04 21:57:42  mazen
+  Revision 1.3  2003-01-11 16:35:15  marco
+   * HASUNIX defined for now.
+
+  Revision 1.2  2002/10/04 21:57:42  mazen
   * register allocation for parameters now done in cpupara, but InternalError(200109223) in cgcpu.pas:1053 is still not fixed du to location_force problem in ncgutils.pas:419
 
   Revision 1.1  2002/09/06 15:03:51  carl