(**********************
Return-Path: <rene@cse.ucsc.edu>
Received: by jumbo.pa.dec.com; id AA21805; Fri, 24 Jan 92 13:41:10 -0800
Received: by mts-gw.pa.dec.com; id AA19907; Fri, 24 Jan 92 13:41:24 -0800
Received:  by spica.ucsc.edu (5.65/25-eef)
	id AA29286; Fri, 24 Jan 92 13:40:51 -0800
Date: Fri, 24 Jan 92 13:40:51 -0800
From: Rene J. Dorta <rene@cse.ucsc.edu>
Message-Id: <9201242140.AA29286@spica.ucsc.edu>
To: m3-request
Subject: m3 2.6 compiler bug.
Cc: rene@cse.ucsc.edu

I have not tested this on 2.0, but see what happens in 1.6
when you (mistakenly) define a infinitely recursive type:

***************************)

MODULE bug EXPORTS Main;
   TYPE node = RECORD c: CHAR; next: node END; (* I meant "next: REF node" *)
BEGIN 
END bug.

(**********************************
... now, let us compile:

mizar 30> m3 bug.m3
Program /usr/public/modula3/lib/m3/m3compiler got fatal signal 4.

sendsig: bad signal stack pid=1509, sig=11
sigsp = 0xf77ff690, action = 0xf7732ba0, upc = 0x15d588

mizar 31>

   Thanks for your attention,
--Rene Dorta.
********************************************)