mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:08:30 +02:00
20 lines
414 B
ObjectPascal
20 lines
414 B
ObjectPascal
unit tb0497b;
|
|
|
|
interface
|
|
|
|
function compress (dest : Pbyte;
|
|
var destLen : cardinal;
|
|
const source : array of byte;
|
|
sourceLen : cardinal) : integer;
|
|
|
|
implementation
|
|
|
|
function compress (dest : Pbyte;
|
|
var destLen : cardinal;
|
|
const source : array of byte;
|
|
sourceLen : cardinal) : integer;
|
|
begin
|
|
end;
|
|
|
|
|
|
end. |