From bc4e62c11270d73a2dfad6b3842171e8e512f4bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Thu, 7 Apr 2005 03:57:58 +0000
Subject: [PATCH] * fixed attribute handling in findfirst/findnext
---
rtl/morphos/dos.pp | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/rtl/morphos/dos.pp b/rtl/morphos/dos.pp
index 29e601def9..aef6dcd25c 100644
--- a/rtl/morphos/dos.pp
+++ b/rtl/morphos/dos.pp
@@ -609,6 +609,7 @@ begin
f.Time := fib_Date.ds_Days * (24 * 60 * 60) +
fib_Date.ds_Minute * 60 +
fib_Date.ds_Tick div 50;
+ f.attr := 0;
{*------------------------------------*}
{* Determine if is a file or a folder *}
{*------------------------------------*}
@@ -651,6 +652,7 @@ begin
f.Time := fib_Date.ds_Days * (24 * 60 * 60) +
fib_Date.ds_Minute * 60 +
fib_Date.ds_Tick div 50;
+ f.attr := 0;
{*------------------------------------*}
{* Determine if is a file or a folder *}
{*------------------------------------*}
@@ -1003,7 +1005,10 @@ End.
{
$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
}