[Gm2] Problem on HP-UX (BIS)

[john o goyo]

Greetings:

Gaius Mulley wrote:
[...]
> Hi John,
>
> thanks for the report.  I think I'd try editing TimeIO.mod in function
> 'NextSy' and commenting out various lines until you can make the
> compile work and then fail by the addition of a line or construct.
> The function is 8 lines so shouldn't take too long.  You might
> want to change the parameter from VAR to a non var parameter - don't
> worry about the runtime effects (!).  I suspect its something to do
> with nested procedure and var parameter and sets.

Trial and error yielded the following.

=============================================
MODULE hpuxProblem;
(***
  Compiling this module with xgm2 produces the following result.

  ../../../src/gcc-3.3.2-gm2/gcc/gm2/ulm-lib-gm2/std/hpuxProblem.mod: In 
function `_M2_hpuxProblem_init':
  ../../../src/gcc-3.3.2-gm2/gcc/gm2/ulm-lib-gm2/std/hpuxProblem.mod:14: 
error: unrecognizable insn:
  (insn 19 18 20 0 00000000 (set (zero_extract:SI (reg:SI 97)
            (const_int 32 [0x20])
            (const_int 0 [0x0]))
        (const_int 1 [0x1])) -1 (nil)
    (nil))
  ../../../src/gcc-3.3.2-gm2/gcc/gm2/ulm-lib-gm2/std/hpuxProblem.mod:14: 
internal compiler error: in extra
ct_insn, at recog.c:2175
  Please report this crash to the GNU Modula-2 mailing list <address@hidden>

 ***)

TYPE
     CharSet = SET OF CHAR;

VAR
     charset :CharSet;

BEGIN
     charset := CharSet{ 0C };
END hpuxProblem.
=============================================

Gm2 does not seem to support the -ba option of gcc so I am unsure how to 
proceed.  (Incidentally, the build succeeds without the offending code but 
there are problems building gm2.paranoid.   Reports to follow.)

Sincerely,
john

> regards,
> Gaius