paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 00:33:03 +02: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}
{$define OK}
{$endif}
{$ifdef linux}
{$ifdef Unix}
{$define OK}
{$endif}
{$ifdef win32}

2
tests/tbs/tb0038.pp
View File

@ -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}

2
tests/tbs/tb0043.pp
View File

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

7
tests/tbs/tb0045.pp
View File

@ -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

2
tests/tbs/tb0046.pp
View File

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

2
tests/tbs/tb0051.pp
View File

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

5
tests/tbs/tb0089.pp
View File

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

2
tests/tbs/tb0164.pp
View File

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

2
tests/tbs/tb0225.pp
View File

@ -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}

4
tests/test/tasout.pp
View File

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

2
tests/test/tfpu3.pp
View File

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

4
tests/test/tlibrary.pp
View File

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

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

@ -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
}

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

@ -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

4
tests/test/utasout.pp
View File

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

7
tests/utils/redir.pp
View File

@ -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

8
tests/webtbs/tw0966.pp
View File

@ -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);

2
tests/webtbs/tw1092.pp
View File

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