anchor.diff:  type
     PWavPackStream = ^TWavPackStream;
     TWavPackStream = record
  -  	HasPushedByte: Boolean;
  -  	PushedByte: Byte;
  -  	Stream: TStream;
  +    HasPushedByte: Boolean;
  +    PushedByte: Byte;
  +    Stream: TStream;
     end;
   { -------------------------------------------------------------------------- }
   function TWavPackStream_read_bytes(id, data: Pointer; bcount: int32_t): int32_t; cdecl;
  
positive.code:         PWord(dst)^ := sample;
        end;
        3: begin
          dst^ := sample;
          (dst + 1)^ := sample shr 8;
          (dst + 2)^ := sample shr 16;
        end;
        4: begin
          PLongWord(dst)^ := sample;
  
negative.code: //
  // Based on wvunpack.c::format_samples.
  // Conversions simplified since we only support little-endian processors
  function FormatSamples(bps: Integer; dst, src: PByte; samcnt: uint32_t): PByte;
  var
    sample: LongWord;
  begin
  