--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Fri Aug  5 07:18:49 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA15341; Fri, 5 Aug 1994 07:18:49 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 0551; Fri, 05 Aug 94 07:18:52 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BRONSTEI.NOTE.YKTVMV.4249.Aug.05.07:18:52.-0400>
--*           for asbugs@watson; Fri, 05 Aug 94 07:18:52 -0400
--* Received: from inf.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Fri, 05 Aug 94 07:18:52 EDT
--* Received: from vinci.inf.ethz.ch (bronstei@vinci.inf.ethz.ch [129.132.12.46]) by inf.ethz.ch (8.6.9/8.6.9) with ESMTP id NAA07152 for <asbugs@watson.ibm.com>; Fri, 5 Aug 1994 13:18:46 +0200
--* From: Manuel Bronstein <bronstei@inf.ethz.ch>
--* Received: (bronstei@localhost) by vinci.inf.ethz.ch (8.6.8/8.6.6) id NAA02464 for asbugs@watson.ibm.com; Fri, 5 Aug 1994 13:18:46 +0200
--* Date: Fri, 5 Aug 1994 13:18:46 +0200
--* Message-Id: <199408051118.NAA02464@vinci.inf.ethz.ch>
--* To: asbugs@watson.ibm.com
--* Subject: [3] compile time seg fault [segfault.as][0.36.0]

--@ Fixed  by:  SSD   Tue Aug 9 10:18:54 EDT 1994 
--@ Tested by:  none 
--@ Summary:    gen0RecFieldName now handling anonymous record fields 

------------------------------- segfault.as ----------------------------------
--
-- vinci.inf.ethz.ch{bronstei} 109: asharp segfault.as
-- #1 (Error) Program fault (segmentation violation).
--

#include "aslib.as"

NilRecord(T:Tuple Type): with {
	nil: %;
	nil?: % -> Boolean;
	coerce: Record T -> %;
} == add {
	macro Rep == Pointer;

	import from Rep;
	nil?(r:%):Boolean	== nil? rep r;
	nil:%			== per(nil$Pointer);

-- the following coerce causes the seg fault
	coerce(r:Record T):%	== per(r pretend Pointer);
}