paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:11:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Renamefest

Browse Source
This commit is contained in:
marco 2002-06-01 19:08:52 +00:00
parent aefa34f0c1
commit 9c95811fc0
18 changed files with 42 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0032.pp
View File

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

2
tests/tbs/tb0038.pp
View File

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

2
tests/tbs/tb0043.pp
View File

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

7
tests/tbs/tb0045.pp
View File

@ -10,7 +10,7 @@
{$ifdef go32v2} {$ifdef go32v2}
{$define OK} {$define OK}
{$endif} {$endif}
{$ifdef linux} {$ifdef Unix}
{$define OK} {$define OK}
{$endif} {$endif}
@ -75,7 +75,10 @@ END.
{ {
$Log$ $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 * renamed test suite
Revision 1.1 2000/11/29 23:14:15 peter Revision 1.1 2000/11/29 23:14:15 peter

2
tests/tbs/tb0046.pp
View File

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

2
tests/tbs/tb0051.pp
View File

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

5
tests/tbs/tb0089.pp
View File

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

2
tests/tbs/tb0164.pp
View File

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

2
tests/tbs/tb0225.pp
View File

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

4
tests/test/tasout.pp
View File

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

2
tests/test/tfpu3.pp
View File

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

4
tests/test/tlibrary.pp
View File

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

9
tests/test/units/dos/tdos.pp
View File

@ -103,7 +103,7 @@ begin
writeln('DiskSize 0 : ',DiskSize(0)); writeln('DiskSize 0 : ',DiskSize(0));
{writeln('DiskSize 1 : ',DiskSize(1)); this is a: on dos ??! } {writeln('DiskSize 1 : ',DiskSize(1)); this is a: on dos ??! }
writeln('DiskSize 1 : ',DiskSize(3)); { this is c: on dos } writeln('DiskSize 1 : ',DiskSize(3)); { this is c: on dos }
{$IFDEF LINUX} {$IFDEF Unix}
AddDisk('/fd0'); AddDisk('/fd0');
writeln('DiskSize 4 : ',DiskSize(4)); writeln('DiskSize 4 : ',DiskSize(4));
{$ENDIF} {$ENDIF}
@ -131,7 +131,7 @@ begin
writeln; writeln;
writeln('File(name) Functions'); writeln('File(name) Functions');
writeln('********************'); writeln('********************');
{$ifdef linux } {$ifdef unix }
test:='/usr/local/bin/ppc.so'; test:='/usr/local/bin/ppc.so';
writeln('FSplit(',test,')'); writeln('FSplit(',test,')');
FSplit(test,dir,name,ext); FSplit(test,dir,name,ext);
@ -195,7 +195,10 @@ end.
{ {
$Log$ $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 + exec now tests hello, which permits testing of DosError and DosExitCode
} }

7
tests/test/units/system/teststk.pp
View File

@ -1,5 +1,5 @@
{ %RESULT=202 } { %RESULT=202 }
{$ifdef linux} {$ifdef unix}
{$define nocheck} {$define nocheck}
{$endif} {$endif}
@ -27,7 +27,10 @@ end.
{ {
$Log$ $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 * simulate the error code on system with no stack checking
Revision 1.3 2002/03/05 21:54:09 carl Revision 1.3 2002/03/05 21:54:09 carl

4
tests/test/utasout.pp
View File

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

7
tests/utils/redir.pp
View File

@ -40,6 +40,8 @@ Interface
{$ifdef linux} {$ifdef linux}
{$define implemented} {$define implemented}
{$endif} {$endif}
{$ifdef BSD}
{$define implemented}
{ be sure msdos is not set for FPC compiler } { be sure msdos is not set for FPC compiler }
{$ifdef FPC} {$ifdef FPC}
@ -787,7 +789,10 @@ finalization
End. End.
{ {
$Log$ $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 * dummy implementation for OS/2
Revision 1.6 2001/07/01 20:13:50 peter Revision 1.6 2001/07/01 20:13:50 peter

8
tests/webtbs/tw0966.pp
View File

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

2
tests/webtbs/tw1092.pp
View File

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