home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PACKOBJ / TPUNPACK.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-07  |  419b  |  22 lines
  1. { TPUNPACK.PAS - Fast decompression routine (c) Wilbert van Leijen 1991-92 }
  2.  
  3. Unit TpUnpack;
  4.  
  5. Interface
  6.  
  7. Function Unpack(Var InBuffer, OutBuffer; CompressedSize : Word) : Word;
  8.  
  9. Implementation
  10.  
  11. {$S- }
  12.  
  13. Procedure StackOverflow;
  14.  
  15. Begin
  16.   RunError(202);                       { Unpack requires 29kB stack space }
  17. end;  { StackOverflow }
  18.  
  19. Function Unpack; External;
  20. {$L UNPACK.OBJ }
  21.  
  22. end.  { TpUnpack }