Home
last modified time | relevance | path

Searched defs:Receive_MTF_Values (Results 1 – 1 of 1) sorted by relevance

/dports/archivers/zip-ada/zip-ada/zip_lib/
H A Dbzip2-decoding.adb314 procedure Receive_MTF_Values is subprogram
316 mtfa_size: constant:= 4096;
317 mtfl_size: constant:= 16;
318 mtfbase: array (0 .. 256 / mtfl_size - 1) of Natural;
319 mtfa: array (0 .. mtfa_size - 1) of Natural;
321 procedure Init_MTF is
333 group_pos, group_no: Integer;
334 gminlen, gsel: Natural;
336 function Get_MTF_Value return Unsigned_32 is
376 begin -- Receive_MTF_Values argument