Procházet zdrojové kódy

Fix fpgetcwd for openbsd

git-svn-id: trunk@19410 -
pierre před 14 roky
rodič
revize
d1b2e2d439
1 změnil soubory, kde provedl 9 přidání a 2 odebrání
  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;