* more hasunix fixes

compiler/assemble.pas

@@ -173,7 +173,7 @@ interface
 Implementation
 
     uses
-{$ifdef unix}
+{$ifdef hasunix}
   {$ifdef ver1_0}
       linux,
   {$else}
@@ -510,7 +510,7 @@ Implementation
       begin
         if SmartAsm then
          NextSmartName(Aplace);
-{$ifdef unix}
+{$ifdef hasunix}
         if DoPipe then
          begin
            Message1(exec_i_assembling_pipe,asmfile);
@@ -538,7 +538,7 @@ Implementation
         l : longint;
       begin
         AsmFlush;
-{$ifdef unix}
+{$ifdef hasunix}
         if DoPipe then
          PClose(outfile)
         else
@@ -1607,7 +1607,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.48  2002-11-24 18:21:49  carl
+  Revision 1.49  2003-01-10 21:49:00  marco
+   * more hasunix fixes
+
+  Revision 1.48  2002/11/24 18:21:49  carl
     - remove some unused defines
 
   Revision 1.47  2002/11/17 16:31:55  carl

compiler/globals.pas

@@ -33,7 +33,7 @@ interface
 {$ifdef win32}
       windows,
 {$endif}
-{$ifdef unix}
+{$ifdef hasunix}
   {$ifdef ver1_0}
       linux,
   {$else}
@@ -950,12 +950,12 @@ implementation
 
    Function GetFileTime ( Var F : File) : Longint;
      Var
-     {$ifdef unix}
+     {$ifdef hasunix}
        Info : Stat;
      {$endif}
        L : longint;
      begin
-     {$ifdef unix}
+     {$ifdef hasunix}
        FStat (F,Info);
        L:=Info.Mtime;
      {$else}
@@ -1071,7 +1071,7 @@ implementation
         hp,p,p2 : pchar;
       {$endif}
       begin
-      {$ifdef unix}
+      {$ifdef hasunix}
         GetEnvPchar:={$ifdef ver1_0}Linux{$else}Unix{$endif}.Getenv(envname);
         {$define GETENVOK}
       {$endif}
@@ -1111,7 +1111,7 @@ implementation
 
     procedure FreeEnvPChar(p:pchar);
       begin
-      {$ifndef unix}
+      {$ifndef hasunix}
        {$ifndef os2}
         StrDispose(p);
        {$endif}
@@ -1122,7 +1122,7 @@ implementation
     Procedure Shell(const command:string);
       { This is already defined in the linux.ppu for linux, need for the *
         expansion under linux }
-      {$ifdef unix}
+      {$ifdef hasunix}
       begin
         {$ifdef ver1_0}Linux{$else}Unix{$endif}.Shell(command);
       end;
@@ -1525,7 +1525,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.80  2003-01-04 16:20:44  hajny
+  Revision 1.81  2003-01-10 21:49:00  marco
+   * more hasunix fixes
+
+  Revision 1.80  2003/01/04 16:20:44  hajny
     * modified to make use of the common GetEnv code under OS/2
 
   Revision 1.79  2002/12/25 01:26:17  peter

compiler/script.pas

@@ -93,7 +93,7 @@ Procedure GenerateAsmRes(const st : string);
 implementation
 
 uses
-{$ifdef Unix}
+{$ifdef hasUnix}
   {$ifdef ver1_0}
     Linux,
   {$else}
@@ -172,7 +172,7 @@ begin
   while not data.Empty do
    Writeln(t,data.GetFirst);
   Close(t);
-{$ifdef Unix}
+{$ifdef hasUnix}
   if executable then
    ChMod(fn,493);
 {$endif}
@@ -415,7 +415,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.18  2003-01-06 20:16:42  peter
+  Revision 1.19  2003-01-10 21:49:00  marco
+   * more hasunix fixes
+
+  Revision 1.18  2003/01/06 20:16:42  peter
     * don't prepend ./ to quoted filenames
 
   Revision 1.17  2002/11/15 01:58:54  peter