paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 12:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed Globtosearchrec to use unixtowinage

Browse Source
This commit is contained in:
michael 2004-06-15 07:36:03 +00:00
parent d1264d494a
commit c89660006d
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/unix/sysutils.pp
View File

@ -123,6 +123,17 @@ begin
FileTruncate:=fpftruncate(Handle,Size)>=0;
end;
Function UnixToWinAge(UnixAge : time_t): Longint;
Var
Y,M,D,hh,mm,ss : word;
begin
EpochToLocal(UnixAge,y,m,d,hh,mm,ss);
Result:=DateTimeToFileDate(EncodeDate(y,m,d)+EncodeTime(hh,mm,ss,0));
end;
Function FileAge (Const FileName : String): Longint;
Var Info : Stat;
@ -132,10 +143,7 @@ begin
If fpstat (FileName,Info)<0 then
exit(-1)
else
begin
EpochToLocal(info.st_mtime,y,m,d,hh,mm,ss);
Result:=DateTimeToFileDate(EncodeDate(y,m,d)+EncodeTime(hh,mm,ss,0));
end;
Result:=UnixToWinAge(info.st_mtime);
end;
@ -208,7 +216,7 @@ begin
Attr:=Info.Attr;
If P^.Name<>Nil then
Name:=strpas(p^.name);
Time:=Sinfo.st_mtime;
Time:=UnixToWinAge(Sinfo.st_mtime);
Size:=Sinfo.st_Size;
end;
end;
@ -635,7 +643,10 @@ end.
{
$Log$
Revision 1.41 2004-05-22 14:25:03 michael
Revision 1.42 2004-06-15 07:36:03 michael
+ Fixed Globtosearchrec to use unixtowinage
Revision 1.41 2004/05/22 14:25:03 michael
+ Fixed FindFirst/FindNext so it treats the attributes correctly
Revision 1.40 2004/04/28 20:48:20 peter