Compiler error in SynZIP on 64Bit XE7

itSDS · 2014-12-19 15:36:24

Line 4348:

function deflateInit2_(var strm: TZStream; level: integer; method: integer; windowBits: integer; memLevel: integer;strategy: integer; version: PAnsiChar; stream_size: integer): integer;
begin
  result := {$ifdef USEPASZLIB}paszlib.{$else}ZLib.{$endif}deflateInit2_(strm,level,method,windowBits,memLevel,strategy,version,stream_size);
end;

Parameter Error

if i change Line 291 to {$ifndef USEPASZLIB} from {$ifdef USEPASZLIB} it works but than the 32Bit does not work !

itSDS · 2014-12-20 10:08:32

I fixed this Problem for me - with new {$define USEZ_STREAM}

line 157

{$ifdef FPC}
  {$define USEZLIB}
  {$define USEZ_STREAM}
  {$ifdef MSWINDOWS} // avoid link to zlib1.dll
    {$define USEPASZLIB}
  {$endif}
{$else}
  {$ifdef Win32}
    {$define USEINLINEASM}
    // if defined, we use a special inlined asm version for uncompress:
    // seems 50% faster than BC++ generated .obj, and is 3KB smaller in code size
  {$else}
    {$define USEZLIB}
    {$define USEZ_STREAM}
  {$endif}
{$endif}

...

line 293

  {$ifdef USEZ_STREAM}
  TZStream = z_stream;
  {$else}
  TZStream =  record
    next_in : PAnsiChar;
    avail_in : cardinal;
    total_in : cardinal;
    next_out : PAnsiChar;
    avail_out : cardinal;
    total_out : cardinal;
    msg : PAnsiChar;
    state : pointer;
    zalloc : pointer;
    zfree : pointer;
    opaque : pointer;
    data_type: integer;
    adler : cardinal;
    reserved : cardinal;
  end;
  {$endif}

ab · 2014-12-20 10:10:46

Should be fixed by http://synopse.info/fossil/info/02916111fa

Thanks for the feedback!

itSDS · 2014-12-20 10:16:48

tyvm work's

mORMot Open Source

#1 2014-12-19 15:36:24

Compiler error in SynZIP on 64Bit XE7

#2 2014-12-20 10:08:32

Re: Compiler error in SynZIP on 64Bit XE7

#3 2014-12-20 10:10:46

Re: Compiler error in SynZIP on 64Bit XE7

#4 2014-12-20 10:16:48

Re: Compiler error in SynZIP on 64Bit XE7

Board footer