You are not logged in.
1) SynZipFiles.pas cannot compile for Win64:
Fatal: F1026 File not found: 'Libc.dcu'
2) SynZipFiles.pas warnings:
SynZipFiles.pas(613) Warning: W1035 Return value of function 'TZipReader.GetData' might be undefined
SynZipFiles.pas(869) Warning: W1057 Implicit string cast from 'RawUTF8' to 'string'
3) SynCommons.pas hint for compiler option "accertion off" {$C-} for code "function VariantSave":
Hint: H2077 Value assigned to 'P' never used
Please modify code to:
function VariantSave(const Value: variant): RawByteString;
{$ifopt C+}
var P: PAnsiChar;
{$endif}
begin
SetString(result,nil,VariantSaveLength(Value));
{$ifopt C+}P := {$endif}VariantSave(Value,pointer(result));
{$ifopt C+}
assert(P-pointer(result)=length(result));
{$endif}
end;
Offline
We have just fixed the unit.
See http://synopse.info/fossil/info/d7745085d8
Thanks for the feedback!
Offline