paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 19:18:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* minor fix

Browse Source
This commit is contained in:
olle 2004-12-28 01:33:19 +00:00
parent 0839541501
commit 4adda1b1d8
2 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/macos/dos.pp
View File

@ -761,7 +761,28 @@ End;
end;
{$IFNDEF USE_FEXPAND_INC}
{$UNDEF USE_FEXPAND_INC}
{$IFDEF USE_FEXPAND_INC}
//{$DEFINE FPC_FEXPAND_NO_DOTS_UPDIR}
//{$DEFINE FPC_FEXPAND_NO_CURDIR}
{$DEFINE FPC_FEXPAND_VOLUMES}
{$DEFINE FPC_FEXPAND_NO_DEFAULT_PATHS}
{$DEFINE FPC_FEXPAND_DRIVESEP_IS_ROOT}
{ TODO A lot of issues before this works}
{$I fexpand.inc}
{$UNDEF FPC_FEXPAND_VOLUMES}
{$UNDEF FPC_FEXPAND_NO_DEFAULT_PATHS}
{$UNDEF FPC_FEXPAND_DRIVESEP_IS_ROOT}
{$ELSE}
{ TODO nonexisting dirs in path's doesnt work (nonexisting files do work)
example: Writeln('FExpand on :nisse:kalle : ', FExpand(':nisse:kalle')); }

4
rtl/macos/macostp.inc
View File

@ -1268,8 +1268,8 @@ type
C_unsigned_int = Cardinal;
var
errno: C_int; external name 'errno';
MacOSErr: C_short; external name 'MacOSErr';
errno: C_int; external 'StdCLib' name 'errno';
MacOSErr: C_short; external 'StdCLib' name 'MacOSErr';
const
_IOFBF = $00;