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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,57eeeab2c16b68f8,start
X-Google-Attributes: gid103376,public
From: Magnus Ericsson <Magnus.Ericson@emw.ericsson.se>
Subject: the 'small attribute and Ada95
Date: 1996/11/12
Message-ID: <32889629.1C01@emw.ericsson.se>#1/1
X-Deja-AN: 196012332
content-type: text/plain; charset=us-ascii
organization: Ericsson
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 3.0 (WinNT; I)
Date: 1996-11-12T00:00:00+00:00
List-Id: <comp.lang.ada>


I am trying to port some numeric legacy code from Ada 83 to Ada 95. 

Unfortunatly I am not the author of the original code, nor am I a
numerics expert!

The original code is using the construct:

  function Is_Zero(The_Number : in Number_T) return Boolean is
  begin
    return abs The_Number < Number_T'Small;
  end Is_Zero;

When I compile this with the Ada 95 compiler (ObjectAda) I get a 
message indicating that 'Small only is allowed for Fixed point types
(not for floating point that is used in the original Ada 83 code).

Is there a way to modify the code, making it portable between Ada 83
and Ada 95? If not, what is the best way of solving the problem
in an Ada 95 specific version?

Regards
Magnus



There are also other similar uses of 'Small 
        

-- 
Magnus Ericson M.Sc, Ericsson Microwave Systems
Torshamnsgatan 32C, S-164 84 STOCKHOLM
Tel: +46 8 757 35 38 Fax: +46 8 750 74 42
Disclaimer: "The opinions expressed here are my own,
             and not those of my employer."