fixed TZipRead.RetrieveFileInfo

synopse · Dec 29, 2021 · d703e72 · d703e72
1 parent 4abb9f4
commit d703e72
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/mormot.core.zip.pas b/src/core/mormot.core.zip.pas
@@ -2407,7 +2407,7 @@ function TZipRead.RetrieveFileInfo(Index: integer;
       raise ESynZip.CreateUtf8('%: data descriptor read error on % %',
         [self, e^.zipName, fFileName]);
     descmin := PtrUInt(@tmp);
-    desc := @tmp[tmpLen];
+    desc := pointer(descmin + tmpLen);
     e := nil; // indicates below that descmin does not match zipSize
   end;
   dec(desc);