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=2.3 required=5.0 tests=BAYES_00,HK_RANDOM_FROM,
	INVALID_MSGID,MSGID_RANDY autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bfa3bd0e1081a777
X-Google-Attributes: gid103376,public
From: czgrr <czgrr@my-deja.com>
Subject: Another OA bug ? (was Re: OA bug ?)
Date: 1999/06/22
Message-ID: <7knvo6$7kc$1@nnrp1.deja.com>#1/1
X-Deja-AN: 492474940
References: <929984465.815.34@news.remarQ.com>
 <376EA582.418CEDC3@averstar.com>
X-Http-Proxy: 1.0 x23.deja.com:80 (Squid/1.1.22) for client 193.192.234.4
Organization: Deja.com - Share what you know. Learn what you don't.
X-Article-Creation-Date: Tue Jun 22 12:32:06 1999 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
Date: 1999-06-22T00:00:00+00:00
List-Id: <comp.lang.ada>

Hi, all.

Is there also a fix going for this bug. I did email
adasupport@aonix.com but never got a reply...

--
-- SOURCE CODE.
-- OPTION 1: Uncomment only line 1 of main procedure.
-- OPTION 2: Uncomment only line 2 of main procedure.
--
PROCEDURE main IS

  TYPE a_type IS DIGITS 15 ;
  TYPE b_type IS DIGITS 15 ;

  a : a_type ;
  b : b_type := 1.0 ;

  FUNCTION "*" ( l : IN a_type ; r : IN b_type ) RETURN b_type IS
  BEGIN
    RETURN 0.0 ;
  END ;

  FUNCTION "/" ( l, r : IN b_type ) RETURN a_type IS
  BEGIN
    RETURN 0.0 ;
  END ;

BEGIN
  -- a := 1.0 * b / 1.0 ;
  -- a := 1.0 * b_type'( 1.0 ) / 1.0 ;

END main ;


--
-- COMPILER VERSION.
--
-- ObjectAda for Windows
-- V7.1.1.352 (professional edition)
--
-- Achieved by installing CD labelled "PRO71" (Version 7.1)
-- Followed by CD labelled "OAOPE71" (OpenPack),
-- Followed by CD labelled "OA711" (Version 7.1.1 Update, Ref:
A1102.7.1.1).


--
-- COMPILER OUTPUT.
--

-- OPTION 1:
--------------------Target: Win32 (Intel) Debug--------------------
-- Assertion failed: subtype_is_scalar(scalar_subtype) ||
(subtype_is_private(scalar_subtype) && (subtype_ili_slot(scalar_subtype)
>0)), file \\efreeti\d-drive\adamagic\src\ccomp\subtype.c, line 8599
--
-- abnormal program termination
-- main.ada: Internal: line 25 col 22 Fatal internal assertion failure.
--
-- Tool execution failed.

-- OPTION 2:
--------------------Target: Win32 (Intel) Debug--------------------
-- Assertion failed: value!=NULL_UR_PTR, file \\efreeti\d-
drive\adamagic\src\ccomp\tree_build.c, line 2733
--
-- abnormal program termination
-- main.ada: Internal: line 26 col 35 Fatal internal assertion failure.
--
-- Tool execution failed.

Cheers,
czgrr

--
No email, please - reply to the newsgroup.
My opinions are not necessarily those of my
employer.
Use any suggestions at your own risk.


Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.