1 files changed, 2 insertions, 2 deletions
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;