* deprecated warning fixed

loongson · Jul 10, 2022 · 6ea4ddd · 6ea4ddd
1 parent 4193563
commit 6ea4ddd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/packages/libtar/src/libtar.pp b/packages/libtar/src/libtar.pp
@@ -16,7 +16,7 @@
 ===============================================================================================
 Author  : Stefan Heymann
           Eschenweg 3
-          72076 Tübingen
+          72076 T�bingen
           GERMANY
 
 E-Mail:   [email protected]
@@ -305,7 +305,7 @@
      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}