paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 03:29:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ merged fixes from Peter

Browse Source
This commit is contained in:
michael 2000-11-06 13:16:19 +00:00
parent c5c4573cde
commit fb6d6792f3
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
utils/ppufiles.pp
View File

@ -85,19 +85,12 @@ begin
end; end;
const
{$IFDEF LINUX}
PathCh='/';
{$ELSE}
PathCh='\';
{$ENDIF}
Function SplitPath(Const HStr:String):String; Function SplitPath(Const HStr:String):String;
var var
i : byte; i : longint;
begin begin
i:=Length(Hstr); i:=Length(Hstr);
while (i>0) and (Hstr[i]<>PathCh) do while (i>0) and not(Hstr[i] in ['\','/']) do
dec(i); dec(i);
SplitPath:=Copy(Hstr,1,i); SplitPath:=Copy(Hstr,1,i);
end; end;
@ -260,7 +253,13 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 10:16:22 michael Revision 1.2 2000-11-06 13:16:19 michael
+ merged fixes from Peter
Revision 1.1.2.1 2000/11/06 13:14:48 michael
+ Fixes from Peter for slashes in filenames
Revision 1.1 2000/07/13 10:16:22 michael
+ Initial import + Initial import
Revision 1.4 2000/07/04 19:05:54 peter Revision 1.4 2000/07/04 19:05:54 peter