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

* fix the win32 time stamp bug

Browse Source
This commit is contained in:
pierre 2002-03-15 11:33:33 +00:00
parent b1d611c40c
commit e5acfb8f0d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/extra/unzip/unzip.pp
View File

@ -2573,7 +2573,13 @@ BEGIN
IF dlghandle <> 0 THEN IF dlghandle <> 0 THEN
sendmessage ( dlghandle, wm_command, dlgnotify, longint ( @oldpercent ) ); sendmessage ( dlghandle, wm_command, dlgnotify, longint ( @oldpercent ) );
{$endif} {$endif}
{$ifdef win32}
{ Win32 API needs GENERIC_WRITE attribute
to allow changing the time stamps on a file PM }
filemode := 2;
{$else not win32}
filemode := 0; filemode := 0;
{$endif not win32}
reset ( outfile ); reset ( outfile );
setftime ( outfile, timedate ); {set zipped time and date of oufile} setftime ( outfile, timedate ); {set zipped time and date of oufile}
close ( outfile ); close ( outfile );
@ -3332,7 +3338,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.2 2002-03-13 17:29:50 carl Revision 1.3 2002-03-15 11:33:33 pierre
* fix the win32 time stamp bug
Revision 1.2 2002/03/13 17:29:50 carl
* arithmetic overflow bugfix * arithmetic overflow bugfix
Revision 1.1 2002/01/29 17:55:23 peter Revision 1.1 2002/01/29 17:55:23 peter