All pastes #14520 Raw Edit

Untitled

public text v1 · immutable
#14520 ·published 2005-06-14 16:25 UTC
rendered paste body
unit genPackedInt;

interface

  {----------------------------------------------------------------------------}
  { methods to support reading data out of packed integers and to create       }
  { masks to facilite bounding of input and output data                        }
  {----------------------------------------------------------------------------}

  procedure genBitWriteRL08(data : PByte; aValue, aIndex, aCount : Integer);
  procedure genBitWriteLRC08(data : PByte; aValue, aIndex, aCount : Integer);
  procedure genBitReadRL08(data: PByte; aIndex, aCount : Integer; var result : Cardinal);
  procedure genBitReadLRC08(data: PByte; aIndex, aCount : Integer; var result : Cardinal);

  procedure genBitWriteRL32(data : PCardinal; aValue, aIndex, aCount : Integer);
  procedure genBitWriteLRC32(data : PCardinal; aValue, aIndex, aCount : Integer);
  procedure genBitReadRL32(data: PCardinal; aIndex, aCount : Integer; var result : Cardinal); overload;
  function genBitReadRL32(data: PCardinal; aIndex, aCount : Integer): Integer; overload;
  procedure genBitReadLRC32(data: PCardinal; aIndex, aCount : Integer; var result : Cardinal); overload;
  function genBitReadLRC32(data: PCardinal; aIndex, aCount : Integer): Integer; overloa