mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 18:09:16 +02:00
* fixed typo
This commit is contained in:
parent
75aea84e80
commit
71fbd225e4
@ -2854,7 +2854,7 @@ Begin
|
|||||||
begin
|
begin
|
||||||
if path[i]<>'/' then
|
if path[i]<>'/' then
|
||||||
begin
|
begin
|
||||||
getdir(0,temp)
|
getdir(0,temp);
|
||||||
k:=ioresult;
|
k:=ioresult;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
@ -3546,7 +3546,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.36 1999-05-08 19:47:24 peter
|
Revision 1.37 1999-05-10 09:13:41 peter
|
||||||
|
* fixed typo
|
||||||
|
|
||||||
|
Revision 1.36 1999/05/08 19:47:24 peter
|
||||||
* check ioresult after getdir calls
|
* check ioresult after getdir calls
|
||||||
|
|
||||||
Revision 1.35 1999/04/22 14:48:55 peter
|
Revision 1.35 1999/04/22 14:48:55 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user