paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 20:30:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* deprecated warning fixed

Browse Source
This commit is contained in:
florian 2022-07-10 22:52:22 +02:00
parent 4193563190
commit 6ea4ddd3d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/libtar/src/libtar.pp
View File

@ -16,7 +16,7 @@ Subject : Handling of "tar" files
===============================================================================================
Author : Stefan Heymann
Eschenweg 3
72076 Tübingen
72076 T<EFBFBD>bingen
GERMANY
E-Mail: stefan@destructor.de
@ -305,7 +305,7 @@ BEGIN
IF SearchRec.Attr AND faDirectory = 0 THEN BEGIN
FillChar(TimeVal, SizeOf(TimeVal), #0);
FillChar(TimeZone, SizeOf(TimeZone), #0);
Result := FileDateToDateTime (SearchRec.Time);
Result := SearchRec.TimeStamp;
{$IFDEF Kylix}
GetTimeOfDay (TimeVal, TimeZone);
{$ELSE}