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.8 required=5.0 tests=BAYES_00,INVALID_DATE,
	MSGID_SHORT autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!wuarchive!sdd.hp.com!ucsd!nosc!cod!pham
From: pham@cod.NOSC.MIL (Peter N. Pham)
Newsgroups: comp.lang.ada
Subject: Meridian Ada Compiler, Code Generator Errors
Keywords: BUG
Message-ID: <2342@cod.NOSC.MIL>
Date: 10 Oct 90 23:25:17 GMT
Organization: Naval Ocean Systems Center, San Diego
List-Id: <comp.lang.ada>


Can anyone look at the Ada code below and tell me why the Meridian
AdaVantage Compiler generates these errors :

( Text generated by Meridian AdaVantage Compiler when I compile
  the code below)
Meridian AdaVantage(tm) Compiler [v4.0 Jun 13, 1990] Target 80x86
Subprogram body conversion_test added to library.
43 lines compiled.
No errors detected.
Meridian 80x86 Code Generator [v4.0 Jun 15, 1990] Target 80x86 object
Generating code for conversi
"testconv.ada", line 40: <<error>> ** bad case in gencode:  39 **
"testconv.ada", line 40: <<error>> ** bad case in gencode:  39 **
"testconv.ada", line 42: <<error>>  bad mode in object.memory_byte


( Code starts here )
with UNCHECKED_CONVERSION;
procedure CONVERSION_TEST is

  type BYTE is range 0..255;
  for BYTE'size use 8;

  type WORD is range 0..16#FFFF#;
  for WORD'size use 16;

  type BYTE_ARR2 is array (0..1) of BYTE;

  type AA is
  record
    BYTE1:BYTE;
    BYTE2:BYTE;
    BYTE3:BYTE;
    BYTE4:BYTE;
  end record;
  pragma PACK(AA);

  WORD1 : WORD;
  A     : AA;

  function CONVERT_BYTES is new UNCHECKED_CONVERSION(WORD,BYTE_ARR2);


  procedure CONVERT ( WORD0 : in  WORD;
    BYTE0 : out BYTE;
    BYTE1 : out BYTE) is
    BYTES : BYTE_ARR2;
  begin
    BYTES := CONVERT_BYTES(WORD0);
    BYTE0 := BYTES(0);
    BYTE1 := BYTES(1);
  end CONVERT;


begin

  CONVERT(WORD1, A.BYTE2, A.BYTE3);

end CONVERSION_TEST;