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=-0.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,f9957894e0bdf128 X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news3.google.com!feeder.news-service.com!69.16.177.246.MISMATCH!cyclone03.ams2.highwinds-media.com!news.highwinds-media.com!npeersf01.ams.highwinds-media.com!newsfe25.ams2.POSTED!7564ea0f!not-for-mail Message-ID: From: Mike H Reply-To: Mike Hopkins Sender: Mike-h Newsgroups: comp.lang.ada Subject: Re: How to put 200.0 (is float variable of 32 bits) into an integer sub-type of 10 bits (complete program included) References: <407ae64d-3cb3-4310-b59e-f1bbae9910a5@t39g2000prh.googlegroups.com> <71gqm49eatq868htrvd7eghm3m8su8kcbl@4ax.com> <7b017de2-951a-414a-8290-111353fe02f8@r15g2000prd.googlegroups.com> <3f1f2f67-5d69-4baf-8e8c-0d2b5f68475f@p36g2000prp.googlegroups.com> <8e64f509-f6fe-4d86-ae1a-fe0b1c88555a@v5g2000pre.googlegroups.com> <9fa07f9b-90bf-4a28-bf8e-09c2152bd43f@o40g2000prn.googlegroups.com> <9b117764-7b49-4b76-98b2-f7fee00c8c76@z27g2000prd.googlegroups.com> <496f726e$0$30222$9b4e6d93@newsspool1.arcor-online.net> <09b4a056-688d-49c8-b935-fa0b30f1ae84@w1g2000prk.googlegroups.com> MIME-Version: 1.0 Content-Type: text/plain;charset=us-ascii;format=flowed User-Agent: Turnpike/6.03-U () NNTP-Posting-Host: 83.104.138.185 X-Complaints-To: abuse@demon.net X-Trace: newsfe25.ams2 1232044936 83.104.138.185 (Thu, 15 Jan 2009 18:42:16 UTC) NNTP-Posting-Date: Thu, 15 Jan 2009 18:42:16 UTC Date: Thu, 15 Jan 2009 18:40:57 +0000 Xref: g2news1.google.com comp.lang.ada:3345 Date: 2009-01-15T18:40:57+00:00 List-Id: In message <09b4a056-688d-49c8-b935-fa0b30f1ae84@w1g2000prk.googlegroups.com>, ChristopherL writes >Well since I do not seem to be able to achieve what I want. > >Can someone tell me how to set a high order bit of a 10 number. > >if (arg > 128.0) then > arg := arg - 128.0; > -- set high order bit of arg maintaining all other bits >end if; > >Chris L. type Ten_Bit_Type is array (1..10) of Boolean; for Ten_Bit_Type'Size use 10; Ten_Bits : Ten_Bit_Type; -- use Unchecked_Conversions to convert Arg to Ten Bits Ten_Bits(1) := True; -- use Unchecked_Conversions to convert Ten Bits back to Arg -- Mike Hopkins Project Rheilffordd Eryri WHR