From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!gandalf.srv.welterde.de!news.jacob-sparre.dk!loke.jacob-sparre.dk!pnx.dk!.POSTED!not-for-mail
From: "Randy Brukardt" <randy@rrsoftware.com>
Newsgroups: comp.lang.ada
Subject: Re: Length-Limited Huffman Coding
Date: Thu, 11 Feb 2016 16:08:55 -0600
Organization: JSA Research & Innovation
Message-ID: <n9j0po$rkk$1@loke.gir.dk>
References: <dbe61aeb-91f9-4105-91d5-2bbe74e31ae0@googlegroups.com>
 <7ce6d977-8656-4676-9e66-391473251513@googlegroups.com>
 <3353c34e-b11d-42fe-83d2-85781276c0e2@googlegroups.com>
 <n9gpui$h7e$1@loke.gir.dk>
 <2bdea64f-0f90-4f89-93d8-fafe2e93e3a9@googlegroups.com>
 <n9ikpb$ma8$1@loke.gir.dk>
NNTP-Posting-Host: rrsoftware.com
X-Trace: loke.gir.dk 1455228536 28308 24.196.82.226 (11 Feb 2016 22:08:56 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Thu, 11 Feb 2016 22:08:56 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Response
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157
Xref: news.eternal-september.org comp.lang.ada:29500
Date: 2016-02-11T16:08:55-06:00
List-Id: <comp.lang.ada>

"Tero Koskinen" <tero.koskinen@iki.fi> wrote in message 
news:n9ikpb$ma8$1@loke.gir.dk...
> 11.2.2016, 11.48, gautier_niouzes@hotmail.com wrote:
...
> I am not Randy, but I tested the code with Janus/Ada 3.1.2c
> (on Windows 10) and it compiled and ran fine:

Thanks. Of course, the MS-DOS Ada 83 compiler, with the 640K memory limit 
and weaker representation clause support, might be a different story.

...
> Although, Janus/Ada gave one warning:
> In File C:\Work\gautier\llhc\LENGTH_LIMITED_HUFFMAN_CODE_LENGTHS.ADB at 
> line 54
> --------------
>    53:    type Index_pair is array(Index_type'(0)..1) of Index_type;
>    54:    lists: array(0..Index_type(max_bits-1)) of Index_pair;
> -----------------------------------------------------^
> *WARNING* This component has a non-simple type (6.5.2)

That just means that the implementation of that type is likely to be 
expensive. It should work (as it does), but if you have a performance 
concern you, one might want to try to get rid of the warning. I presume this 
is in a generic unit, though, so that's probably impossible. (This is one of 
the warnings that I'm contemplating moving to a new category of 
"informations", which could then be turned on/off separately; leaving 
warnings for things that a programmer really ought to consider changing.)

                         Randy.