FIX: Bug [0000619] "Negative file size in archive"

sdk/wcxplugin.pas

@@ -135,11 +135,11 @@ type
   THeaderDataEx=packed record
     ArcName:array [0..1023] of char;
     FileName:array [0..1023] of char;
-    Flags,
+    Flags:longint;
     PackSize,
     PackSizeHigh,
     UnpSize,
-    UnpSizeHigh,
+    UnpSizeHigh:longword;
     HostOS,
     FileCRC,
     FileTime,
@@ -157,11 +157,11 @@ type
   THeaderDataExW=packed record
     ArcName:array [0..1023] of widechar;
     FileName:array [0..1023] of widechar;
-    Flags,
+    Flags:longint;
     PackSize,
     PackSizeHigh,
     UnpSize,
-    UnpSizeHigh,
+    UnpSizeHigh:longword;
     HostOS,
     FileCRC,
     FileTime,

src/uwcxmodule.pas

@@ -745,7 +745,7 @@ end;
 
 constructor TWCXHeader.Create(const Data: PHeaderDataEx);
 
-  function Combine64(High, Low: Longint): Int64;
+  function Combine64(High, Low: LongWord): Int64;
   begin
     Result := Int64(High) shl (SizeOf(Int64) shl 2);
     Result := Result + Int64(Low);
@@ -770,7 +770,7 @@ end;
 
 constructor TWCXHeader.Create(const Data: PHeaderDataExW);
 
-  function Combine64(High, Low: Longint): Int64;
+  function Combine64(High, Low: LongWord): Int64;
   begin
     Result := Int64(High) shl (SizeOf(Int64) shl 2);
     Result := Result + Int64(Low);