paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ifdef linux -> ifdef unix

Browse Source
This commit is contained in:
carl 2002-02-27 16:32:50 +00:00
parent 149a4703bd
commit 9783900355
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
utils/ppdep.pp
View File

@ -21,7 +21,7 @@ uses Dos;
{.$define debug} {.$define debug}
const const
{$ifdef linux} {$ifdef unix}
exeext=''; exeext='';
{$else} {$else}
exeext='.EXE'; exeext='.EXE';
@ -81,7 +81,7 @@ begin
for i:=length(s) downto 1 do for i:=length(s) downto 1 do
begin begin
case s[i] of case s[i] of
{$ifdef Linux} {$ifdef unix}
'/','\' : begin '/','\' : begin
FixFn[i]:='/'; FixFn[i]:='/';
NoPath:=false; {Skip lowercasing path: 'X11'<>'x11' } NoPath:=false; {Skip lowercasing path: 'X11'<>'x11' }
@ -531,7 +531,7 @@ begin
Outfile:=''; Outfile:='';
AddCall:=0; AddCall:=0;
Verbose:=False; Verbose:=False;
{$IFDEF LINUX} {$IFDEF linux}
UnitExt:='ppu'; UnitExt:='ppu';
{$ELSE} {$ELSE}
UnitExt:='PPU'; UnitExt:='PPU';
@ -579,13 +579,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 10:16:22 michael Revision 1.2 2002-02-27 16:32:50 carl
* ifdef linux -> ifdef unix
Revision 1.1 2000/07/13 10:16:22 michael
+ Initial import + Initial import
Revision 1.4 2000/02/09 16:44:14 peter
* log truncated
Revision 1.3 2000/01/07 16:46:02 daniel
* copyright 2000
} }