From 6132c2ef3066e813acb1237afeca266f32c53a21 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 28 Nov 2009 16:00:34 +0100
Subject: Engine and VFS API cleanup

* also split threaded operations into UCoreWorkers.pas
* symlinks should be properly resolved now, even in archives
* no more relative/absolute path confusion
* moved FillDirFiles outside engines, made it more universal
---
 UChecksum.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'UChecksum.pas')

diff --git a/UChecksum.pas b/UChecksum.pas
index 90eb029..b7ef508 100644
--- a/UChecksum.pas
+++ b/UChecksum.pas
@@ -201,11 +201,11 @@ var FD: TEngineFileDes;
     Error, Count, i, Start: integer;
     Buffer: Pointer;
     s: string;
-    Stat: PDataItemSL;
+    Stat: PDataItem;
     IsMD5: boolean;
 begin
   Result := False;
-  Stat := Engine.GetFileInfoSL(FileName);
+  Stat := Engine.GetFileInfo(FileName, True, True);
   if (Stat <> nil) and (Stat.Size > 128*1024) then begin
     i := integer(Application.MessageBox(Format(LANGTheFileSYouAreTryingToOpenIsQuiteBig, [StrToUTF8(ExtractFileName(FileName))]), [mbYes, mbNo], mbWarning, mbNone, mbNo));
     if (i = integer(mbNo)) or (i = 251) then Exit;
@@ -269,7 +269,7 @@ var Item: TFileListItem;
     ListItem: TGTKListItem;
     S1, S2: string;
     i: integer;
-    Stat: PDataItemSL;
+    Stat: PDataItem;
 begin
   TrimCRLFESC(s);
   if Length(s) < 1 then Exit;
@@ -312,7 +312,7 @@ begin
       Item.Name := ExtractFileName(s2);
       Item.FullPath := IncludeTrailingPathDelimiter(Path) + s2;
     end;
-    Stat := Engine.GetFileInfoSL(Item.FullPath);
+    Stat := Engine.GetFileInfo(Item.FullPath, True, True);
     if Assigned(Stat) then begin
       Item.Size := Stat.Size;
       FreeDataItem(Stat);
-- 
cgit v1.2.3