From mboxrd@z Thu Jan  1 00:00:00 1970
From: Doug Evans <dje@transmeta.com>
To: Johan Rydberg <johan.rydberg@netinsight.se>
Cc: "Frank Ch. Eigler" <fche@redhat.com>, cgen@sources.redhat.com
Subject: Re: enums
Date: Wed, 06 Dec 2000 08:55:00 -0000
Message-id: <14894.28509.515261.442423@casey.transmeta.com>
References: <3A2DF94D.908E4C45@netinsight.se> <20001206061648.A1107@redhat.com> <3A2E21F0.A5A0C5FE@netinsight.se>
X-SW-Source: 2000-q4/msg00241.html

Johan Rydberg writes:
 > Ofcouse, here's the result:
 > 
 > ERROR: In procedure caar:
 > ERROR: Wrong type argument in position 1: ()

cgen needs to be more robust with bad input.
One might construct an argument that () should just be ignored
instead of flagged as an error.  dunno.

Take the line with () out.

 (define-enum
   (name e-exception)
   (comment "exception vectors")
>  ()
   (prefix E_)
   (values ("RESET") ("BUSERR" -) ("DPF" -) ("IPF" -) 
           ("EXTINT" -) ("ALIGN" -) ("ILLEGAL" -) ("PEINT" -)
           ("DTLBMISS" -) ("ITLBMISS" -) ("RRANGE" -) 
           ("SYSCALL" -) ("BREAK" -) ("RESERVED" -))
 )