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

* Fixed ifdefs linux to unix.

Browse Source 
git-svn-id: branches/targetandroid@23426 -
This commit is contained in:
yury 2013-01-17 12:21:51 +00:00
parent d52ead284e
commit 8936ee983c
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tstring10.pp
View File

@ -2,7 +2,7 @@ program punicodechartest;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
{$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}
sysutils;
var
astr: ansistring;

2
tests/test/units/classes/tsetstream.pp
View File

@ -2,7 +2,7 @@ program storedfalse;
{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
{$ifdef mswindows}{$apptype console}{$endif}
uses
{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
{$ifdef FPC}{$ifdef unix}cthreads,{$endif}{$endif}
sysutils,classes;
type

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

@ -145,7 +145,7 @@ begin
Writeln('Expanded ../dos/./../././dos.pp : ',FExpand('../dos/./../././dos.pp'));
test:='../;/usr/;/usr/bin/;/usr/bin;/bin/;';
{$else not linux }
{$else not unix }
test:='\usr\local\bin\ppc.so';
writeln('FSplit(',test,')');
FSplit(test,dir,name,ext);
@ -165,7 +165,7 @@ begin
Writeln('Expanded ..\dos\.\..\.\.\dos.pp : ',FExpand('..\dos\.\..\.\.\dos.pp'));
test:='..\;\usr\;\usr\bin\;\usr\bin;\bin\;';
{$endif not linux}
{$endif not unix}
test:=test+getenv('PATH');
{$ifdef NOEXESUFFIX}
Writeln('FSearch ls: ',FSearch('ls',test));

4
tests/test/units/dos/tidos.pp
View File

@ -154,7 +154,7 @@ begin
Writeln('Expanded ../dos/./../././dos.pp : ',FExpand('../dos/./../././dos.pp'));
test:='../;/usr/;/usr/bin/;/usr/bin;/bin/;';
{$else not linux }
{$else not unix }
test:='\usr\local\bin\ppc.so';
writeln('FSplit(',test,')');
FSplit(test,dir,name,ext);
@ -174,7 +174,7 @@ begin
Writeln('Expanded ..\dos\.\..\.\.\dos.pp : ',FExpand('..\dos\.\..\.\.\dos.pp'));
test:='..\;\usr\;\usr\bin\;\usr\bin;\bin\;';
{$endif not linux}
{$endif not unix}
test:=test+getenv('PATH');
{$ifdef NOEXESUFFIX}
Writeln('FSearch ls: ',FSearch('ls',test));