From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Path: eternal-september.org!reader02.eternal-september.org!aioe.org!pBWEO6hi52oGFheO/GY5ag.user.gioia.aioe.org.POSTED!not-for-mail
From: Stephen Leake <stephen_leake@stephe-leake.org>
Newsgroups: comp.lang.ada
Subject: Re: Performance of records with variant parts
Date: Fri, 26 Mar 2021 08:38:16 -0700
Organization: Aioe.org NNTP Server
Message-ID: <86h7kyapsn.fsf@stephe-leake.org>
References: <07a56dcc-9e17-49b2-a980-3a5a2d265cedn@googlegroups.com>
	<s3akbl$dg3$1@dont-email.me>
	<23dcce3e-0db1-4417-a5d1-a05f03f74464n@googlegroups.com>
	<s3arav$3mf$1@dont-email.me>
	<302c2e86-2379-46e0-b1f7-d69e7e14f9cfn@googlegroups.com>
	<s3ccgm$4j7$1@dont-email.me>
	<b962cd83-c15a-4285-9754-48008e685c49n@googlegroups.com>
	<s3dtgn$r48$1@dont-email.me>
NNTP-Posting-Host: pBWEO6hi52oGFheO/GY5ag.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (windows-nt)
X-Notice: Filtered by postfilter v. 0.9.2
Cancel-Lock: sha1:QoRY30kO16yu/g/Bk0qJdKbckZE=
Xref: reader02.eternal-september.org comp.lang.ada:61656
List-Id: <comp.lang.ada>

"Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org> writes:

> On 3/24/21 12:00 AM, John Perry wrote:
>> |              if denom <= 0.0 then
>> |                 [constraint_error when
>> |                   objects__thing_typeD3 (obj.kind)
>> |                   "discriminant check failed"]
>> |                 [constraint_error when
>> |                   objects__thing_typeD3 (obj.kind)
>> |                   "discriminant check failed"]
>> |                 return (vectors__vector_dot (obj.norm, ray.start) +
>> |                   obj.offset) / (-denom);
>> Am I right in thinking this is a bug? It shouldn't even check it,
>> let alone check it twice.

As a workaround, you can suppress checks in that block of code:

pragma Suppress (Discriminant_Check);


-- 
-- Stephe