paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 06:34:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix fpgetcwd for openbsd

Browse Source 
git-svn-id: trunk@19410 -
This commit is contained in:
pierre 2011-10-07 21:51:03 +00:00
parent 902ba04ecd
commit d1b2e2d439
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/bsd/ossysc.inc
View File

@ -534,8 +534,15 @@ begin
End;
End
end
else
pt:=nil;
{$ifdef openbsd}
{ At least for openbsd, a positive return value is
the length of the returned pchar }
else if (ret<0) then
{$endif openbsd}
begin
seterrno(-ret);
pt:=nil;
end;
Fpgetcwd:=pt;
end;