|
@@ -21,7 +21,9 @@ interface
|
|
|
dos,
|
|
dos,
|
|
|
{$ifdef Unix}
|
|
{$ifdef Unix}
|
|
|
{$ifdef VER1_0}
|
|
{$ifdef VER1_0}
|
|
|
|
|
+ {$ifdef linux}
|
|
|
linux,
|
|
linux,
|
|
|
|
|
+ {$endif}
|
|
|
{$else}
|
|
{$else}
|
|
|
unix,
|
|
unix,
|
|
|
{$endif}
|
|
{$endif}
|
|
@@ -1002,6 +1004,7 @@ implementation
|
|
|
if hs='' then
|
|
if hs='' then
|
|
|
begin
|
|
begin
|
|
|
{$ifdef UNIX}
|
|
{$ifdef UNIX}
|
|
|
|
|
+{$ifndef beos}
|
|
|
if FileExists('/usr/local/bin/ppc386') then
|
|
if FileExists('/usr/local/bin/ppc386') then
|
|
|
begin
|
|
begin
|
|
|
s:=ExtractFilePath(ReadLink('/usr/local/bin/ppc386'));
|
|
s:=ExtractFilePath(ReadLink('/usr/local/bin/ppc386'));
|
|
@@ -1025,6 +1028,7 @@ implementation
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
|
|
+{$endif}
|
|
|
{$else UNIX}
|
|
{$else UNIX}
|
|
|
hs:=ExtractFilePath(FSearch('ppc386.exe',getenv('PATH')));
|
|
hs:=ExtractFilePath(FSearch('ppc386.exe',getenv('PATH')));
|
|
|
if hs<>'' then
|
|
if hs<>'' then
|
|
@@ -1326,7 +1330,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
* firstword added
|
|
|
* pathexist fix to include sysfile
|
|
* pathexist fix to include sysfile
|
|
|
|
|
|
carl