Meridian Ada Compiler, Code Generator Errors

Meridian Ada Compiler, Code Generator Errors

[Peter N. Pham]

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;