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

* replace linux -> unix in certain cases

Browse Source
This commit is contained in:
carl 2001-09-27 02:28:03 +00:00
parent 8438d097f5
commit 0eb814bdf5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -62,13 +62,13 @@ begin
writeln('**************');
write('Press Enter for an Exec of ''ls -la''');
Readln;
{$ifdef linux }
{$ifdef unix }
Exec('ls','-la');
{$else not linux }
{$else not unix }
SwapVectors;
Exec('ls','-la');
SwapVectors;
{$endif not linux }
{$endif not unix }
write('Press Enter');
Readln;
end;
@ -157,11 +157,11 @@ begin
test:='..\;\usr\;\usr\bin\;\usr\bin;\bin\;';
{$endif not linux}
test:=test+getenv('PATH');
{$ifdef linux}
{$ifdef unix}
Writeln('FSearch ls: ',FSearch('ls',test));
{$else not linux}
{$else not unix}
Writeln('FSearch ls: ',FSearch('ls.exe',test));
{$endif not linux}
{$endif not unix}
write('Press Enter');
Readln;