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-14 15:03:24 PST
Path: 
 supernews.google.com!sn-xit-02!sn-post-02!sn-post-01!supernews.com!corp.supernews.com!not-for-mail
From: Fraser Wilson <fraser@whitelion.org>
Newsgroups: comp.lang.ada
Subject: Re: RISC
Date: 14 Mar 2001 15:03:15 -0800
Organization: Posted via Supernews, http://www.supernews.com
Message-ID: <fy7y9u8hs24.fsf@whitelion.org>
Sender: fraser@icarus
References: <JqQr6.1962$y47.389981@news2-win.server.ntlworld.com>
 <3AAFE967.44BAEDAD@averstar.com>
 <snSr6.2653$y47.570666@news2-win.server.ntlworld.com>
X-Newsreader: Gnus v5.5/XEmacs 20.4 - "Emerald"
X-Complaints-To: newsabuse@supernews.com
Xref: supernews.google.com comp.lang.ada:5743
Date: 2001-03-14T15:03:15-08:00
List-Id: <comp.lang.ada>

"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.