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

* make it work for BeOS

Browse Source
This commit is contained in:
carl 2001-09-29 19:47:50 +00:00
parent c5b7305384
commit 62484bb78a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/fpcm/fpcmmain.pp
View File

@ -21,7 +21,9 @@ interface
dos,
{$ifdef Unix}
{$ifdef VER1_0}
{$ifdef linux}
linux,
{$endif}
{$else}
unix,
{$endif}
@ -1002,6 +1004,7 @@ implementation
if hs='' then
begin
{$ifdef UNIX}
{$ifndef beos}
if FileExists('/usr/local/bin/ppc386') then
begin
s:=ExtractFilePath(ReadLink('/usr/local/bin/ppc386'));
@ -1025,6 +1028,7 @@ implementation
end;
end;
end;
{$endif}
{$else UNIX}
hs:=ExtractFilePath(FSearch('ppc386.exe',getenv('PATH')));
if hs<>'' then
@ -1326,7 +1330,10 @@ implementation
end.
{
$Log$
Revision 1.13 2001-08-22 20:45:19 peter
Revision 1.14 2001-09-29 19:47:50 carl
* make it work for BeOS
Revision 1.13 2001/08/22 20:45:19 peter
* firstword added
* pathexist fix to include sysfile