Re: [Gm2] Here I go, again... O:) TestCase18, I think.

[Gaius Mulley]

<address@hidden> writes:

> I am sorry I did not have time before 1.0 for this, but better now
> than never... There are interesting variations around this issue, ones
> I walked through/around while pruning my code to make this example as
> clear as possible... But first things first.
>
> % cat TestCase18.mod
> MODULE TestCase18;
>
> TYPE
>  Where = PROCEDURE(): BOOLEAN;
>
> CONST
>  True = TrueBolan;
>
> PROCEDURE TrueBolan (): BOOLEAN;
>  BEGIN
>    RETURN TRUE;
>  END TrueBolan;
>
> PROCEDURE DoSeq(while: Where);
>  BEGIN
>  END DoSeq;
>
> BEGIN
>    DoSeq(True);
> END TestCase18.
>
> % gm2 -I../../gm2.lib0 -c -fiso TestCase18.mod
> TestCase18.mod:20:5:*** fatal error ***
> ../../gcc-4.1.2+gm2-20101211/gcc/gm2/gm2-compiler/SymbolTable.mod:950:1:***
> internal error *** symbol out of bounds
> Internal error: Aborted
> Please report this crash to the GNU Modula-2 mailing list
> <address@hidden>

Hi,

now fixed in the latest cvs, thanks for the test code and bug report,

regards,
Gaius