paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 15:13:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* hasunix fix for beos

Browse Source
This commit is contained in:
marco 2003-01-10 21:02:13 +00:00
parent 2ad2b10388
commit f8ee58a3f2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/fina.inc
View File

@ -95,7 +95,7 @@ Var S : String;
Begin
S:=FileName;
DoDirSeparators(S);
{$ifdef Unix}
{$ifdef HasUnix}
Result:=Unix.fexpand(S);
{$else}
Result:=Dos.Fexpand(S);
@ -232,7 +232,10 @@ end;
{
$Log$
Revision 1.8 2002-10-22 21:57:54 michael
Revision 1.9 2003-01-10 21:02:13 marco
* hasunix fix for beos
Revision 1.8 2002/10/22 21:57:54 michael
+ Added some missing path functions
Revision 1.7 2002/10/12 15:34:09 michael