+ Fixes from Peter for slashes in filenames

utils/ppufiles.pp

@@ -85,19 +85,12 @@ begin
 end;
 
 
-const
-{$IFDEF LINUX}
-  PathCh='/';
-{$ELSE}
-  PathCh='\';
-{$ENDIF}
-
 Function SplitPath(Const HStr:String):String;
 var
-  i : byte;
+  i : longint;
 begin
   i:=Length(Hstr);
-  while (i>0) and (Hstr[i]<>PathCh) do
+  while (i>0) and not(Hstr[i] in ['\','/']) do
    dec(i);
   SplitPath:=Copy(Hstr,1,i);
 end;
@@ -260,7 +253,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.1  2000-07-13 10:16:22  michael
+  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
 
   Revision 1.4  2000/07/04 19:05:54  peter