From 6b6cf119ef5464af1ab21a76a4cab5337c83b085 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 5 Nov 2006 21:52:58 +0000
Subject: [PATCH]  * fpgetcwd syscall edition returnvalue fix.

git-svn-id: trunk@5258 -
---
 rtl/bsd/ossysc.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/bsd/ossysc.inc b/rtl/bsd/ossysc.inc
index 4681745c70..8bd11bb77e 100644
--- a/rtl/bsd/ossysc.inc
+++ b/rtl/bsd/ossysc.inc
@@ -506,6 +506,7 @@ begin
 
     ret := do_syscall(syscall_nr___getcwd,TSysParam(pt),TSysParam( ept - pt));
     If (ret = 0) Then
+      begin
         If (pt[0] <> '/') Then
            Begin
              bpt := pt;
@@ -518,7 +519,10 @@ begin
                  ept^:=c;
                  dec(ept);
                End;
-           End;
+           End
+      end
+         else
+            pt:=nil;
  Fpgetcwd:=pt;
 end;