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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a37:e408:: with SMTP id y8mr7299633qkf.39.1579949063287;
        Sat, 25 Jan 2020 02:44:23 -0800 (PST)
X-Received: by 2002:a54:4713:: with SMTP id k19mr2037267oik.113.1579949062921;
 Sat, 25 Jan 2020 02:44:22 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!aioe.org!peer03.am4!peer.am4.highwinds-media.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!g89no9104667qtd.0!news-out.google.com!w29ni365qtc.0!nntp.google.com!g89no9104661qtd.0!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 25 Jan 2020 02:44:22 -0800 (PST)
In-Reply-To: <01f6b6cc-9ce6-43b8-9c67-5595fa960381@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=47.136.24.151;
 posting-account=o_Y23woAAACPYGlDsFV1OivhygPNSoRn
NNTP-Posting-Host: 47.136.24.151
References: <f531cd40-6734-46cb-967e-638cf1004426@googlegroups.com>
 <01f6b6cc-9ce6-43b8-9c67-5595fa960381@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <766d3741-124a-4022-95d0-cada2b716053@googlegroups.com>
Subject: Re: Creating several types from a base type and conversion
From: Ken Roberts <alisonken1@gmail.com>
Injection-Date: Sat, 25 Jan 2020 10:44:23 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1837
X-Received-Body-CRC: 3645932878
Xref: reader01.eternal-september.org comp.lang.ada:57943
Date: 2020-01-25T02:44:22-08:00
List-Id: <comp.lang.ada>

On Saturday, January 25, 2020 at 2:37:17 AM UTC-8, Ken Roberts wrote:
<snip>

Before I get nitpicked:
> 
> For the double-register shift
> 
> <code>
> 
> -- Circular left shift double register
> procedure double_shift_left_logical (R1 : <> Word'Class, 
>                                      R2 : <> Word'Class,
>                                      Count : in Integer) is

<snip>

>     end shift_left_logical;

> 
> </code>

Yes - this should be

     end double_shift_left_logical;

C&P w/memory fart