Browse Source

* more Renamefest

marco 23 years ago
parent
commit
9fb1b5377c
3 changed files with 20 additions and 11 deletions
  1. 8 5
      rtl/inc/lineinfo.pp
  2. 6 3
      rtl/unix/crt.pp
  3. 6 3
      rtl/unix/sysunix.inc

+ 8 - 5
rtl/inc/lineinfo.pp

@@ -22,7 +22,7 @@ interface
 
 
 { This is very important as this code can be called
 { This is very important as this code can be called
   from inside the RTE 202 error PM }
   from inside the RTE 202 error PM }
-{$ifndef linux}
+{$ifndef Unix}
   {$S-}
   {$S-}
 {$endif}
 {$endif}
 
 
@@ -352,7 +352,7 @@ end;
 {$ENDIF EMX}
 {$ENDIF EMX}
 
 
 
 
-{$ifdef linux}
+{$ifdef Unix}
 function LoadElf32:boolean;
 function LoadElf32:boolean;
 type
 type
   telf32header=packed record
   telf32header=packed record
@@ -443,7 +443,7 @@ begin
    end;
    end;
   LoadElf32:=(stabofs<>-1) and (stabstrofs<>-1);
   LoadElf32:=(stabofs<>-1) and (stabstrofs<>-1);
 end;
 end;
-{$endif linux}
+{$endif}
 
 
 {$ifdef sunos}
 {$ifdef sunos}
 function LoadElf32:boolean;
 function LoadElf32:boolean;
@@ -689,7 +689,7 @@ begin
      exit;
      exit;
    end;
    end;
 {$endif}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
   if LoadElf32 then
   if LoadElf32 then
    begin
    begin
      OpenStabs:=true;
      OpenStabs:=true;
@@ -879,7 +879,10 @@ finalization
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.8  2001-12-13 03:50:00  carl
+  Revision 1.9  2002-05-31 13:37:24  marco
+   * more Renamefest
+
+  Revision 1.8  2001/12/13 03:50:00  carl
   + SunOS target
   + SunOS target
 
 
   Revision 1.1  2000/07/13 06:30:47  michael
   Revision 1.1  2000/07/13 06:30:47  michael

+ 6 - 3
rtl/unix/crt.pp

@@ -958,7 +958,7 @@ Begin
            '-','=' : PushExt(FAltKey(ch));
            '-','=' : PushExt(FAltKey(ch));
                #10 : PushKey(#10);
                #10 : PushKey(#10);
                '[' : State:=2;
                '[' : State:=2;
-{$IFDEF LINUX}
+{$IFDEF Unix}
               'O': State:=7;
               'O': State:=7;
 {$ENDIF}
 {$ENDIF}
                else
                else
@@ -1091,7 +1091,7 @@ Begin
               if (Ch<>'~') then
               if (Ch<>'~') then
                State:=255;
                State:=255;
             end;
             end;
-{$ifdef LINUX}
+{$ifdef Unix}
         7 : begin {Esc[O}
         7 : begin {Esc[O}
               case ch of
               case ch of
                'A' : PushExt(72);
                'A' : PushExt(72);
@@ -1682,7 +1682,10 @@ Finalization
 End.
 End.
 {
 {
   $Log$
   $Log$
-  Revision 1.8  2001-12-26 21:03:57  peter
+  Revision 1.9  2002-05-31 13:37:24  marco
+   * more Renamefest
+
+  Revision 1.8  2001/12/26 21:03:57  peter
     * merged fixes from 1.0.x
     * merged fixes from 1.0.x
 
 
   Revision 1.7  2001/07/30 21:53:53  peter
   Revision 1.7  2001/07/30 21:53:53  peter

+ 6 - 3
rtl/unix/sysunix.inc

@@ -572,14 +572,14 @@ begin
   dir:=thedir
   dir:=thedir
 end;
 end;
 
 
-{$ifdef linux}
+{$ifdef Unix}
 {*****************************************************************************
 {*****************************************************************************
                              Thread Handling
                              Thread Handling
 *****************************************************************************}
 *****************************************************************************}
 
 
 { include threading stuff, this is os independend part }
 { include threading stuff, this is os independend part }
 {$I thread.inc}
 {$I thread.inc}
-{$endif linux}
+{$endif Unix}
 
 
 {*****************************************************************************
 {*****************************************************************************
                          SystemUnit Initialization
                          SystemUnit Initialization
@@ -767,7 +767,10 @@ End.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.21  2002-04-21 15:55:00  carl
+  Revision 1.22  2002-05-31 13:37:24  marco
+   * more Renamefest
+
+  Revision 1.21  2002/04/21 15:55:00  carl
   + initialize some global variables
   + initialize some global variables
 
 
   Revision 1.20  2002/04/12 17:43:28  carl
   Revision 1.20  2002/04/12 17:43:28  carl