From 62484bb78aeb0c40c59d6dd36298b6083166bb85 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 29 Sep 2001 19:47:50 +0000
Subject: [PATCH] * make it work for BeOS

---
 utils/fpcm/fpcmmain.pp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/utils/fpcm/fpcmmain.pp b/utils/fpcm/fpcmmain.pp
index 7d3b511b0e..99072ddd90 100644
--- a/utils/fpcm/fpcmmain.pp
+++ b/utils/fpcm/fpcmmain.pp
@@ -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