paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 14:30:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed setftime (sorry Marco :)

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-29 21:15:04 +00:00
parent 416a3ad1d0
commit 4ff098fc7a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/unix/dos.pp
View File

@ -746,8 +746,7 @@ Begin
UnPackTime(Time,DT); UnPackTime(Time,DT);
modtime:=DTToUnixDate(DT); modtime:=DTToUnixDate(DT);
end; end;
for Index:=0 to FilerecNameLength-1 do path := strpas(@filerec(f).name);
path[Index+1]:=filerec(f).name[Index];
if fputime(path,@utim)<0 then if fputime(path,@utim)<0 then
begin begin
Time:=0; Time:=0;
@ -903,7 +902,10 @@ End.
{ {
$Log$ $Log$
Revision 1.21 2003-12-03 20:17:03 olle Revision 1.22 2003-12-29 21:15:04 jonas
* fixed setftime (sorry Marco :)
Revision 1.21 2003/12/03 20:17:03 olle
* files are not pretended to have attr ARCHIVED anymore * files are not pretended to have attr ARCHIVED anymore
+ FindFirst etc now also filters on attr HIDDEN + FindFirst etc now also filters on attr HIDDEN
* files with attr READONLY and ARCHIVE are always returned by FindFirst etc * files with attr READONLY and ARCHIVE are always returned by FindFirst etc