Browse Source

* Renamefest

marco 25 years ago
parent
commit
5a2b1ed57b
3 changed files with 20 additions and 11 deletions
  1. 5 2
      compiler/ppc.dpr
  2. 10 7
      compiler/script.pas
  3. 5 2
      compiler/tpexcept.pas

+ 5 - 2
compiler/ppc.dpr

@@ -96,7 +96,7 @@ uses
   {$ifdef heaptrc}
     ppheap,
   {$endif heaptrc}
-  {$ifdef linux}
+  {$ifdef Unix}
     catch,
   {$endif}
   {$ifdef go32v2}
@@ -158,7 +158,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-09-24 15:06:24  peter
+  Revision 1.3  2000-11-13 15:43:07  marco
+   * Renamefest
+
+  Revision 1.2  2000/09/24 15:06:24  peter
     * use defines.inc
 
   Revision 1.1  2000/07/13 06:29:54  michael

+ 10 - 7
compiler/script.pas

@@ -67,7 +67,7 @@ var
 implementation
 
 uses
-{$ifdef linux}
+{$ifdef Unix}
   linux,
 {$endif}
   globals,systems;
@@ -126,7 +126,7 @@ begin
   while not data.Empty do
    Writeln(t,data.Get);
   Close(t);
-{$ifdef linux}
+{$ifdef Unix}
   if executable then
    ChMod(fn,493);
 {$endif}
@@ -145,7 +145,7 @@ end;
 
 Procedure TAsmScript.AddAsmCommand (Const Command, Options,FileName : String);
 begin
-{$ifdef linux}
+{$ifdef Unix}
   if FileName<>'' then
    Add('echo Assembling '+FileName);
   Add (Command+' '+Options);
@@ -164,7 +164,7 @@ end;
 
 Procedure TasmScript.AddLinkCommand (Const Command, Options, FileName : String);
 begin
-{$ifdef linux}
+{$ifdef Unix}
   if FileName<>'' then
    Add('echo Linking '+FileName);
   Add (Command+' '+Options);
@@ -183,7 +183,7 @@ end;
 
 Procedure TAsmScript.AddDeleteCommand (Const FileName : String);
 begin
-{$ifdef linux}
+{$ifdef Unix}
   Add('rm '+FileName);
 {$else}
   Add('Del '+FileName);
@@ -193,7 +193,7 @@ end;
 
 Procedure TAsmScript.WriteToDisk;
 Begin
-{$ifdef linux}
+{$ifdef Unix}
   AddStart('{ echo "An error occurred while linking $1"; exit 1; }');
   AddStart('DoExitLink ()');
   AddStart('{ echo "An error occurred while assembling $1"; exit 1; }');
@@ -237,7 +237,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.3  2000-09-24 15:06:28  peter
+  Revision 1.4  2000-11-13 15:43:07  marco
+   * Renamefest
+
+  Revision 1.3  2000/09/24 15:06:28  peter
     * use defines.inc
 
   Revision 1.2  2000/07/13 11:32:49  michael

+ 5 - 2
compiler/tpexcept.pas

@@ -26,7 +26,7 @@ unit tpexcept;
 
 interface
 
-{$ifndef LINUX}
+{$ifndef UNIX}
   {$S-}
 {$endif}
 
@@ -243,7 +243,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.4  2000-09-24 21:19:53  peter
+  Revision 1.5  2000-11-13 15:43:07  marco
+   * Renamefest
+
+  Revision 1.4  2000/09/24 21:19:53  peter
     * delphi compile fixes
 
   Revision 1.3  2000/09/24 15:06:32  peter