paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 11:32:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fsplit with .. fix from Thomas (merged)

Browse Source
This commit is contained in:
peter 2000-09-04 19:38:12 +00:00
parent 2f36898e80
commit 4072466464
3 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/dos.pp
View File

@ -769,6 +769,8 @@ begin
Begin
If (Path[i]='.') Then
begin
while (i>0) and (Path[i]='.') do
dec(i);
DotPos:=i;
break;
end;
@ -1135,7 +1137,10 @@ End;
end.
{
$Log$
Revision 1.6 2000-08-04 21:45:39 peter
Revision 1.7 2000-09-04 19:38:12 peter
* fsplit with .. fix from Thomas (merged)
Revision 1.6 2000/08/04 21:45:39 peter
* getenv case insensitive (merged)
Revision 1.4 2000/07/22 12:24:55 jonas

13
rtl/linux/linux.pp
View File

@ -2556,7 +2556,11 @@ Begin
While (i>0) and (SlashPos=0) Do
Begin
If (DotPos=256) and (Path[i]='.') Then
DotPos:=i;
begin
while (i>0) and (Path[i]='.') do
dec(i);
DotPos:=i;
end;
If (Path[i]='/') Then
SlashPos:=i;
Dec(i);
@ -2931,7 +2935,10 @@ End.
{
$Log$
Revision 1.2 2000-07-13 11:33:48 michael
Revision 1.3 2000-09-04 19:38:13 peter
* fsplit with .. fix from Thomas (merged)
Revision 1.2 2000/07/13 11:33:48 michael
+ removed logs
}

13
rtl/win32/dos.pp
View File

@ -667,6 +667,8 @@ begin
Begin
If (Path[i]='.') Then
begin
while (i>0) and (path[i]='.') do
dec(i);
DotPos:=i;
break;
end;
@ -718,12 +720,14 @@ var temp : PChar;
name : namestr;
ext : extstr;
s : SearchRec;
found : boolean;
begin
{ check if the file specified exists }
findfirst(path,anyfile,s);
if doserror=0 then
found:=(doserror=0);
findclose(s);
if found then
begin
findclose(s);
fsearch:=path;
exit;
end;
@ -1014,7 +1018,10 @@ begin
end.
{
$Log$
Revision 1.3 2000-08-24 19:02:36 peter
Revision 1.4 2000-09-04 19:38:13 peter
* fsplit with .. fix from Thomas (merged)
Revision 1.3 2000/08/24 19:02:36 peter
* fsearch checks if file exists first (merged)
Revision 1.2 2000/07/13 11:33:57 michael