From 52d72cf25a6bcff19e4a488102e3b7137bde0000 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Wed, 16 Dec 2009 00:11:43 +0100 Subject: Worker thread arguments cleanup --- UCore.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UCore.pas') diff --git a/UCore.pas b/UCore.pas index 087999a..bd68d46 100644 --- a/UCore.pas +++ b/UCore.pas @@ -45,7 +45,7 @@ procedure GetDirSize(AListView: TGTKListView; Engine: TPanelEngine; DataList: TL // Other classes procedure FillDefaultFstabMounterItems; -function CRCGetInfo(FileName: string; Engine: TPanelEngine; var TargetName: string; var TargetCRC: LongWord; var Size: Int64): boolean; +function CRCGetInfo(FileName: string; Engine: TPanelEngine; var TargetName: string; var TargetCRC: Cardinal; var Size: Int64): boolean; function WriteCRCFile(Sender: TObject; Engine: TPanelEngine; TargetFile, SplitFileName: string; const FileSize: Int64; const FileCRC: Longword): boolean; function ComputeBlockSize(TotalSize: Int64): longint; @@ -863,7 +863,7 @@ end; (********************************************************************************************************************************) (********************************************************************************************************************************) (********************************************************************************************************************************) -function CRCGetInfo(FileName: string; Engine: TPanelEngine; var TargetName: string; var TargetCRC: LongWord; var Size: Int64): boolean; +function CRCGetInfo(FileName: string; Engine: TPanelEngine; var TargetName: string; var TargetCRC: Cardinal; var Size: Int64): boolean; procedure ProcessLine(Str: string); var UPS: string; -- cgit v1.2.3