From 6ea4ddd3d5dcc27ae70d8e33e8a744b289fcc449 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 10 Jul 2022 22:52:22 +0200
Subject: [PATCH]   * deprecated warning fixed

---
 packages/libtar/src/libtar.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/libtar/src/libtar.pp b/packages/libtar/src/libtar.pp
index 24cb2bf308..8fdddb3229 100644
--- a/packages/libtar/src/libtar.pp
+++ b/packages/libtar/src/libtar.pp
@@ -16,7 +16,7 @@ Subject : Handling of "tar" files
 ===============================================================================================
 Author  : Stefan Heymann
           Eschenweg 3
-          72076 Tübingen
+          72076 T�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}