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=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,78b2880bc7e78e39
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-03-17 01:38:52 PST
Path: 
 nntp.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newspeer.clara.net!news.clara.net!news5-gui.server.ntli.net!ntli.net!news2-win.server.ntlworld.com.POSTED!not-for-mail
From: "chris.danx" <chris.danx@ntlworld.com>
Newsgroups: comp.lang.ada
References: <JqQr6.1962$y47.389981@news2-win.server.ntlworld.com>
 <3AAFE967.44BAEDAD@averstar.com>
 <snSr6.2653$y47.570666@news2-win.server.ntlworld.com>
 <fy7y9u8hs24.fsf@whitelion.org>
Subject: Re: RISC
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Message-ID: <xO%r6.3460$y47.806331@news2-win.server.ntlworld.com>
Date: Thu, 15 Mar 2001 09:19:29 -0000
NNTP-Posting-Host: 62.252.136.128
X-Complaints-To: abuse@ntlworld.com
X-Trace: news2-win.server.ntlworld.com 984647965 62.252.136.128 (Thu,
 15 Mar 2001 09:19:25 GMT)
NNTP-Posting-Date: Thu, 15 Mar 2001 09:19:25 GMT
Organization: ntlworld News Service
Xref: nntp.stanford.edu comp.lang.ada:91472
Date: 2001-03-15T09:19:29+00:00
List-Id: <comp.lang.ada>

Thanks for that,
Chris Campbell

"Fraser Wilson" <fraser@whitelion.org> wrote in message
news:fy7y9u8hs24.fsf@whitelion.org...
> "chris.danx" <chris.danx@ntlworld.com> writes:
>
> > *   procedure set_data (reg  : in out register;
> > *                                  data : in word) is
> > *   begin
> > *      -- and this!
> > *      reg.data := ((reg.data / 65536) * 65536) xor long_word(data);
> > *   end set_data;
>
>
> If that's inefficient, what about
>
>     reg.data := (reg.data and 16#FFFF0000) or register_block (data);
>
> > *      -- i've got to improve the efficiency of this;
> > *     reg.data := ((reg.data / 256) * 256 ) xor register_block(data);
>
> Similarly,
>     reg.data := (reg.data and 16#FFFFFF00#) or register_block (data);
>
> Fraser.