Lines Matching refs:comprLen
56 procedure test_compress(compr: Pointer; comprLen: LongInt;
63 err := compress(compr, comprLen, hello, len);
68 err := uncompress(uncompr, uncomprLen, compr, comprLen);
184 procedure test_deflate(compr: Pointer; comprLen: LongInt);
202 (c_stream.total_out < comprLen) do
229 procedure test_inflate(compr: Pointer; comprLen : LongInt;
248 (d_stream.total_in < comprLen) do
272 procedure test_large_deflate(compr: Pointer; comprLen: LongInt;
285 c_stream.avail_out := Integer(comprLen);
300 c_stream.avail_in := Integer(comprLen div 2);
324 procedure test_large_inflate(compr: Pointer; comprLen: LongInt;
336 d_stream.avail_in := Integer(comprLen);
354 if d_stream.total_out <> 2 * uncomprLen + comprLen div 2 then
368 procedure test_flush(compr: Pointer; var comprLen : LongInt);
385 c_stream.avail_out := Integer(comprLen);
399 comprLen := c_stream.total_out;
407 procedure test_sync(compr: Pointer; comprLen: LongInt;
430 d_stream.avail_in := Integer(comprLen-2); (* read all compressed data *)
450 procedure test_dict_deflate(compr: Pointer; comprLen: LongInt);
466 c_stream.avail_out := Integer(comprLen);
484 procedure test_dict_inflate(compr: Pointer; comprLen: LongInt;
496 d_stream.avail_in := Integer(comprLen);
529 comprLen, uncomprLen: LongInt;
538 comprLen := 10000 * SizeOf(Integer); (* don't overflow on MSDOS *)
539 uncomprLen := comprLen;
540 GetMem(compr, comprLen);
547 FillChar(compr^, comprLen, 0);
552 test_compress(compr, comprLen, uncompr, uncomprLen);
565 test_deflate(compr, comprLen);
569 test_inflate(compr, comprLen, uncompr, uncomprLen);
574 test_large_deflate(compr, comprLen, uncompr, uncomprLen);
578 test_large_inflate(compr, comprLen, uncompr, uncomprLen);
583 test_flush(compr, comprLen);
587 test_sync(compr, comprLen, uncompr, uncomprLen);
589 comprLen := uncomprLen;
593 test_dict_deflate(compr, comprLen);
594 test_dict_inflate(compr, comprLen, uncompr, uncomprLen);
597 FreeMem(compr, comprLen);