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

* reenabled the old getdir code when fpgetcwd was not FPC_USE_LIBC. getcwd

Browse Source 
syscalls can fail, specially on special file systems.

git-svn-id: trunk@5262 -
This commit is contained in:
marco 2006-11-05 22:03:37 +00:00
parent d526a682d1
commit ed5e73b9a3
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/unix/sysdir.inc
View File

@ -73,13 +73,15 @@ Begin
InOutRes:=3;
End;
{$define usegetcwd}
// !! for now we use getcwd, unless we are fpc_use_libc.
// !! the old code is _still needed_ since the syscall sometimes doesn't work
// !! on special filesystems like NFS etc.
// !! In the libc versions, the alt code is already integrated in the libc code.
// !! Also significantly boosted buffersize. This will make failure of the
// !! dos legacy api's better visibile due to cut-off path, instead of "empty"
procedure getdir(drivenr : byte;var dir : shortstring);
var
{$ifdef usegetcwd}
buf : array[0..254] of char;
{$else}
buf : array[0..2047] of char;
cwdinfo : stat;
rootinfo : stat;
thedir,dummy : string[255];
@ -88,14 +90,14 @@ var
name : string[255];
thisdir : stat;
tmp : string[255];
{$endif}
begin
dir:='';
{$ifdef usegetcwd}
if Fpgetcwd(@buf[0],sizeof(buf))<>nil then
dir:=strpas(buf);
{$else}
dir:=strpas(buf)
{$ifndef FPC_USE_LIBC}
else
begin
thedir:='';
dummy:='';
@ -147,6 +149,7 @@ begin
exit;
end;
until false;
end;
{$endif}
end;