瀏覽代碼

Fix fpgetcwd for openbsd

git-svn-id: trunk@19410 -
pierre 14 年之前
父節點
當前提交
d1b2e2d439
共有 1 個文件被更改,包括 9 次插入2 次删除
  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;