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=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,55d12b9409d3b4cd
X-Google-Attributes: gid103376,public
Path: 
 controlnews3.google.com!news2.google.com!news.maxwell.syr.edu!newshosting.com!nx01.iad01.newshosting.com!diablo.voicenet.com!216.196.98.140.MISMATCH!border1.nntp.ash.giganews.com!nntp.giganews.com!local1.nntp.ash.giganews.com!nntp.comcast.com!news.comcast.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 05 May 2004 18:25:58 -0500
Date: Wed, 05 May 2004 19:25:58 -0400
From: "Robert I. Eachus" <rieachus@comcast.net>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
 rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Newbie Question: Casting Issue
References: <c77nbu$5f0$1@e3k.asi.ansaldo.it>
 <TMKdnQkt1-IG7gTdRVn-jA@comcast.com>
In-Reply-To: <TMKdnQkt1-IG7gTdRVn-jA@comcast.com>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <vfWdnY3Qq_ib5QTdRVn-sA@comcast.com>
NNTP-Posting-Host: 24.147.90.114
X-Trace: 
 sv3-DMH43Hz5iGABaDd3EvhukL4D+clRLnyw8VDOZJ8k1rLjUwdM7JOagWDopq0ZOEjXDKRy6QBDsgj126B!bHYfDrmEhl2ymNMC2DvXAncymLXSX+krQdmiMNMppC9rOrr+CuqSBpKGUaZlKQ==
X-Complaints-To: abuse@comcast.net
X-DMCA-Complaints-To: dmca@comcast.net
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.1
Xref: controlnews3.google.com comp.lang.ada:297
Date: 2004-05-05T19:25:58-04:00
List-Id: <comp.lang.ada>

Robert I. Eachus wrote:

Ooops!
> if FLOAT_VAR > FLOAT_POINT_TYPE(FIX_POINT_TYPE'FIRST)
>  and FLOAT_VAR < FLOAT_POINT_TYPE(FIX_POINT_TYPE'LAST)
> then
>   FIX_VAR := FLOAT_VAR.
> else
>   ...

  if FLOAT_VAR > FLOAT_POINT_TYPE(FIX_POINT_TYPE'FIRST)
    and FLOAT_VAR < FLOAT_POINT_TYPE(FIX_POINT_TYPE'LAST)
  then
    FIX_VAR := FIX_POINT_TYPE(FLOAT_VAR);
  else
    ...

The problems of creating code using cut and paste...

-- 

                                           Robert I. Eachus

"The terrorist enemy holds no territory, defends no population, is 
unconstrained by rules of warfare, and respects no law of morality. Such 
an enemy cannot be deterred, contained, appeased or negotiated with. It 
can only be destroyed--and that, ladies and gentlemen, is the business 
at hand."  -- Dick Cheney