paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-17 21:16:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ clean support for QNX / BeOS and SunOS targets

Browse Source
This commit is contained in:
carl 2001-12-15 04:16:57 +00:00
parent 4b60e37f25
commit 79a3b7ecc9
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
utils/fpcm/fpcmmain.pp
View File

@ -3,7 +3,7 @@
Copyright (c) 2001 by Peter Vreman Copyright (c) 2001 by Peter Vreman
FPCMake - Main module FPCMake - Main module
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -30,6 +30,16 @@ interface
{$endif} {$endif}
sysutils,classes, sysutils,classes,
fpcmdic; fpcmdic;
{$ifdef BEOS}
{$define NO_UNIX_UNIT}
{$endif}
{$ifdef SUNOS}
{$define NO_UNIX_UNIT}
{$endif}
{$ifdef QNX}
{$define NO_UNIX_UNIT}
{$endif}
const const
Version='1.1'; Version='1.1';
@ -1005,7 +1015,7 @@ implementation
if hs='' then if hs='' then
begin begin
{$ifdef UNIX} {$ifdef UNIX}
{$ifndef beos} {$ifndef NO_UNIX_UNIT}
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'));
@ -1331,7 +1341,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.16 2001-12-11 23:01:56 carl Revision 1.17 2001-12-15 04:16:57 carl
+ clean support for QNX / BeOS and SunOS targets
Revision 1.16 2001/12/11 23:01:56 carl
+ Added SunOS and QNX targets + Added SunOS and QNX targets
Revision 1.15 2001/10/14 21:38:32 peter Revision 1.15 2001/10/14 21:38:32 peter