paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* made forcedirectories consistent with other file handling

Browse Source 
to accept both / and \ as spearators

git-svn-id: trunk@10104 -
This commit is contained in:
peter 2008-01-29 22:14:53 +00:00
parent dcfa1a5961
commit 3d319a99b8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/sysutils.inc
View File

@ -40,7 +40,7 @@
Result:=Temp;
Temp:='';
end;
If (Length(Result)>0) and (result[length(result)]<>DirectorySeparator) then
If (Length(Result)>0) and (result[length(result)] in AllowDirectorySeparators) then
Result:=Result+DirectorySeparator;
Result:=Result+name;
If not FileExists(Result) Then
@ -551,7 +551,7 @@ begin
E.ErrorCode:=3;
Raise E;
end;
Result := DoForceDirectories(Dir);
Result := DoForceDirectories(SetDirSeparators(Dir));
end;
Procedure GetRandomBytes(Var Buf; NBytes : Integer);
@ -632,7 +632,7 @@ begin
{$ifdef MSWINDOWS}
SetLength(Result,MAX_PATH);
SetLength(Result,GetModuleFileName(Module, Pchar(Result),Length(Result)));
{$ELSE}
{$ELSE}
Result:='';
{$ENDIF}
{$ENDIF}
end;