Răsfoiți Sursa

Fix fpgetcwd for openbsd

git-svn-id: trunk@19410 -
pierre 14 ani în urmă
părinte
comite
d1b2e2d439
1 a modificat fișierele cu 9 adăugiri și 2 ștergeri
  1. 9 2
      rtl/bsd/ossysc.inc

+ 9 - 2
rtl/bsd/ossysc.inc

@@ -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;