paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 11:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fpgetcwd syscall edition returnvalue fix.

Browse Source 
git-svn-id: trunk@5258 -
This commit is contained in:
marco 2006-11-05 21:52:58 +00:00
parent 2659c32078
commit 6b6cf119ef
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/bsd/ossysc.inc
View File

@ -506,6 +506,7 @@ begin
ret := do_syscall(syscall_nr___getcwd,TSysParam(pt),TSysParam( ept - pt)); ret := do_syscall(syscall_nr___getcwd,TSysParam(pt),TSysParam( ept - pt));
If (ret = 0) Then If (ret = 0) Then
begin
If (pt[0] <> '/') Then If (pt[0] <> '/') Then
Begin Begin
bpt := pt; bpt := pt;
@ -518,7 +519,10 @@ begin
ept^:=c; ept^:=c;
dec(ept); dec(ept);
End; End;
End; End
end
else
pt:=nil;
Fpgetcwd:=pt; Fpgetcwd:=pt;
end; end;