paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 15:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed attribute handling in findfirst/findnext

Browse Source
This commit is contained in:
Károly Balogh 2005-04-07 03:57:58 +00:00
parent 162a9daf63
commit bc4e62c112
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/morphos/dos.pp
View File

@ -609,6 +609,7 @@ begin
f.Time := fib_Date.ds_Days * (24 * 60 * 60) + f.Time := fib_Date.ds_Days * (24 * 60 * 60) +
fib_Date.ds_Minute * 60 + fib_Date.ds_Minute * 60 +
fib_Date.ds_Tick div 50; fib_Date.ds_Tick div 50;
f.attr := 0;
{*------------------------------------*} {*------------------------------------*}
{* Determine if is a file or a folder *} {* Determine if is a file or a folder *}
{*------------------------------------*} {*------------------------------------*}
@ -651,6 +652,7 @@ begin
f.Time := fib_Date.ds_Days * (24 * 60 * 60) + f.Time := fib_Date.ds_Days * (24 * 60 * 60) +
fib_Date.ds_Minute * 60 + fib_Date.ds_Minute * 60 +
fib_Date.ds_Tick div 50; fib_Date.ds_Tick div 50;
f.attr := 0;
{*------------------------------------*} {*------------------------------------*}
{* Determine if is a file or a folder *} {* Determine if is a file or a folder *}
{*------------------------------------*} {*------------------------------------*}
@ -1003,7 +1005,10 @@ End.
{ {
$Log$ $Log$
Revision 1.14 2005-02-14 17:13:30 peter Revision 1.15 2005-04-07 03:57:58 karoly
* fixed attribute handling in findfirst/findnext
Revision 1.14 2005/02/14 17:13:30 peter
* truncate log * truncate log
} }