浏览代码

* Renamefest

marco 23 年之前
父节点
当前提交
9c95811fc0

+ 1 - 1
tests/tbs/tb0032.pp

@@ -6,7 +6,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 {$ifdef win32}

+ 1 - 1
tests/tbs/tb0038.pp

@@ -3,7 +3,7 @@
 { Old file: tbs0043.pp }
 {  shows assembler nasm output fpu opcodes problem     OK 0.99.6 (PFV) }
 
-{$ifdef linux}
+{$ifdef Unix}
   {$output_format nasmelf}
 {$endif}
 {$ifdef go32v2}

+ 1 - 1
tests/tbs/tb0043.pp

@@ -6,7 +6,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 {$ifdef win32}

+ 5 - 2
tests/tbs/tb0045.pp

@@ -10,7 +10,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 
@@ -75,7 +75,10 @@ END.
 
 {
   $Log$
-  Revision 1.1  2000-11-30 22:38:17  peter
+  Revision 1.2  2002-06-01 19:08:52  marco
+   * Renamefest
+
+  Revision 1.1  2000/11/30 22:38:17  peter
     * renamed test suite
 
   Revision 1.1  2000/11/29 23:14:15  peter

+ 1 - 1
tests/tbs/tb0046.pp

@@ -6,7 +6,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 {$ifdef win32}

+ 1 - 1
tests/tbs/tb0051.pp

@@ -6,7 +6,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 {$ifdef win32}

+ 1 - 4
tests/tbs/tb0089.pp

@@ -4,10 +4,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
-{$define OK}
-{$endif}
-{$ifdef freebsd}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 

+ 1 - 1
tests/tbs/tb0164.pp

@@ -6,7 +6,7 @@
 {$ifdef go32v2}
 {$define OK}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$define OK}
 {$endif}
 {$ifdef win32}

+ 1 - 1
tests/tbs/tb0225.pp

@@ -2,7 +2,7 @@
 { Old file: tbs0263.pp }
 { export directive is not necessary in delphi anymore  OK 0.99.13 (PFV) }
 
-{$ifdef linux}
+{$ifdef Unix}
   {$define doit}
 {$endif}
 {$ifdef win32}

+ 2 - 2
tests/test/tasout.pp

@@ -11,10 +11,10 @@
 {$undef dummy}
 {$endif go32v2}
 
-{$ifdef linux}
+{$ifdef Unix}
 {$output_format as}
 {$undef dummy}
-{$endif linux}
+{$endif unix}
 
 {$ifdef dummy}
 const

+ 1 - 1
tests/test/tfpu3.pp

@@ -7,7 +7,7 @@
 {$ifdef win32}
 {$output_format nasmwin32}
 {$endif}
-{$ifdef linux}
+{$ifdef Unix}
 {$output_format nasmelf}
 {$endif}
 { This test program deals with the

+ 2 - 2
tests/test/tlibrary.pp

@@ -4,9 +4,9 @@
  {$define supported}
  {$define supportidx}
 {$endif win32}
-{$ifdef linux}
+{$ifdef Unix}
  {$define supported}
-{$endif linux}
+{$endif Unix}
 
 {$ifdef supported}
 

+ 6 - 3
tests/test/units/dos/tdos.pp

@@ -103,7 +103,7 @@ begin
   writeln('DiskSize 0 : ',DiskSize(0));
   {writeln('DiskSize 1 : ',DiskSize(1)); this is a: on dos  ??! }
   writeln('DiskSize 1 : ',DiskSize(3)); { this is c: on dos }
-{$IFDEF LINUX}
+{$IFDEF Unix}
   AddDisk('/fd0');
   writeln('DiskSize 4 : ',DiskSize(4));
 {$ENDIF}
@@ -131,7 +131,7 @@ begin
   writeln;
   writeln('File(name) Functions');
   writeln('********************');
-{$ifdef linux }
+{$ifdef unix }
   test:='/usr/local/bin/ppc.so';
   writeln('FSplit(',test,')');
   FSplit(test,dir,name,ext);
@@ -195,7 +195,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2001-12-10 02:25:08  carl
+  Revision 1.4  2002-06-01 19:08:52  marco
+   * Renamefest
+
+  Revision 1.3  2001/12/10 02:25:08  carl
   + exec now tests hello, which permits testing of DosError and DosExitCode
 
 }  

+ 5 - 2
tests/test/units/system/teststk.pp

@@ -1,5 +1,5 @@
 { %RESULT=202 }
-{$ifdef linux}
+{$ifdef unix}
   {$define nocheck}
 {$endif}
 
@@ -27,7 +27,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2002-03-09 23:18:51  carl
+  Revision 1.5  2002-06-01 19:08:52  marco
+   * Renamefest
+
+  Revision 1.4  2002/03/09 23:18:51  carl
   * simulate the error code on system with no stack checking
 
   Revision 1.3  2002/03/05 21:54:09  carl

+ 2 - 2
tests/test/utasout.pp

@@ -8,9 +8,9 @@
 {$output_format nasmcoff}
 {$endif go32v2}
 
-{$ifdef linux}
+{$ifdef unix}
 {$output_format nasmelf}
-{$endif linux}
+{$endif unix}
 
 
 unit utasout;

+ 6 - 1
tests/utils/redir.pp

@@ -40,6 +40,8 @@ Interface
 {$ifdef linux}
 {$define implemented}
 {$endif}
+{$ifdef BSD}
+{$define implemented}
 
 { be sure msdos is not set for FPC compiler }
 {$ifdef FPC}
@@ -787,7 +789,10 @@ finalization
 End.
 {
   $Log$
-  Revision 1.7  2002-02-24 20:07:23  hajny
+  Revision 1.8  2002-06-01 19:08:52  marco
+   * Renamefest
+
+  Revision 1.7  2002/02/24 20:07:23  hajny
     * dummy implementation for OS/2
 
   Revision 1.6  2001/07/01 20:13:50  peter

+ 4 - 4
tests/webtbs/tw0966.pp

@@ -2,16 +2,16 @@
 
 { Source provided for Free Pascal Bug Report 966 }
 {$i-}
-{$ifdef linux}
+{$ifdef Unix}
 {$define has_sockets}
-{$endif linux}
+{$endif Unix}
 {$ifdef win32}
 {$define has_sockets}
 {$endif win32}
 
 {$ifdef has_sockets}
 uses
-{$ifdef linux}
+{$ifdef Unix}
   linux,
 {$else}
   crt,
@@ -41,7 +41,7 @@ const
     var
       temp2 : char;
     begin
-{$ifdef linux}
+{$ifdef Unix}
       while selecttext(sin,1)>0 do
        begin
          read(Sin,Temp2);

+ 1 - 1
tests/webtbs/tw1092.pp

@@ -1,7 +1,7 @@
 PROGRAM tbug1092;
 USES Dos;
 const
-{$Ifdef linux}
+{$Ifdef Unix}
   path='/etc';
 {$else}
   path='c:\';