From: Johan Rydberg <johan.rydberg@netinsight.se>
To: Ben Elliston <bje@redhat.com>
Cc: "Frank Ch. Eigler" <fche@redhat.com>, cgen@sources.redhat.com
Subject: Re: enums
Date: Wed, 06 Dec 2000 03:38:00 -0000 [thread overview]
Message-ID: <3A2E2584.FA57F7B6@netinsight.se> (raw)
In-Reply-To: <Pine.LNX.4.30.0012062234210.12267-100000@moshpit.cygnus.com>
Ben Elliston wrote:
> In other contexts, an enum value can be:
>
> (values "RESET" "BUSERR" "DPF" ..)
>
> Does that work?
No, and here's the backtrace:
ERROR: In procedure caar:
ERROR: Wrong type argument in position 1: ()
Backtrace:
0 (begin (apply display-error #f ...) (save-stack) ...)
1* (if (= (length args) 5) (begin (apply display-error #f ...) (save-stack) ...))
2* [#<procedure args> wrong-type-arg "caar" ...]
3* [caar (() (prefix E_) (values "RESET" "BUSERR" ...))]
4 (let ((arg #) (elm-name #)) (case elm-name (# #) ...) ...)
5 (if (null? arg-list) nil ...)
6 [#<procedure (arg-list)> (() (prefix E_) (values "RESET" "BUSERR" ...))]
7 (let ((arg #) (elm-name #)) (case elm-name (# #) ...) ...)
8 (if (null? arg-list) nil ...)
9 [#<procedure (arg-list)> ((comment "exception vectors") () (prefix E_) ...)]
10 (let ((arg #) (elm-name #)) (case elm-name (# #) ...) ...)
11 (if (null? arg-list) nil ...)
12 [#<procedure (arg-list)> ((name e-exception) (comment "exception vectors") () ...)]
13* (letrec ((loop #)) (loop arg-list))
14 (let ((name nil) (comment "") (attrs nil) ...) (letrec (#) (loop arg-list)) ...)
15 [-enum-read "define-enum" (name e-exception) ...]
16* [apply #<procedure -enum-read (errtxt . arg-list)> ("define-enum" (name e-exception) (comment "exception vectors") ...)]
17 (let ((e #)) (current-enum-add! e) ...)
18 [define-enum (name e-exception) (comment "exception vectors") ...]
19 [apply #<procedure define-enum arg-list> ((name e-exception) (comment "exception vectors") () ...)]
20 (if (< (length #) (car num-args)) (reader-error (string-append "Incorrect number of arguments to " # ...) entry ...) ...)
21 (if (cdr num-args) (if (< # #) (reader-error # entry ...) ...) ...)
22 (let* ((handler #) (arg-spec #) (num-args #)) (if (cdr num-args) (if # # ...) ...))
23 (if command (let* (# # #) (if # # ...)) ...)
24* (let ((command #)) (if command (let* # #) ...))
25 [-reader-process-expanded-1 (define-enum (name e-exception) (comment "exception vectors") ...)]
26 (if (eq? (car entry) (quote begin)) (for-each -reader-process-expanded (cdr entry)) ...)
27 [-reader-process-expanded (define-enum (name e-exception) (comment "exception vectors") ...)]
28 (let ((expansion #)) (-reader-process-expanded expansion))
29* [reader-process (define-enum (name e-exception) (comment "exception vectors") ...)]
30 (begin (reader-process entry) (loop (read)))
...
31 (if (eof-object? entry) #t ...)
32 [#<procedure (entry)> (define-isa (name or32) (base-insn-bitsize 32) ...)]
33 (begin (reader-process entry) (loop (read)))
34 (if (eof-object? entry) #t ...)
35 [#<procedure (entry)> (define-arch (name or32) (comment "OpenRISC 1000") ...)]
36 (begin (reader-process entry) (loop (read)))
37 (if (eof-object? entry) #t ...)
38 [#<procedure (entry)> (include "simplify.inc")]
39* (letrec ((loop #)) (loop (read)))
40* [#<procedure ()>]
41 [lazy-catch #t #<procedure ()> ...]
...
42 (let* () (set! srcdir (find-srcdir #)) ...)
43* [cgen-opc ("./../cgen/cgen-opc.scm" "-s" "./../cgen" ...)]
44* [primitive-load "./../cgen/cgen-opc.scm"]
--
Johan Rydberg, Net Insight AB, Sweden, +46-8-685 04 00
$ ON F$ERROR("LANGUAGE","ENGLISH","IN_MESSAGE").GT.F$ERROR("NORMAL") -
THEN EXCUSE/OBJECT=ME
next prev parent reply other threads:[~2000-12-06 3:38 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-12-06 0:30 enums Johan Rydberg
2000-12-06 3:16 ` enums Frank Ch. Eigler
2000-12-06 3:23 ` enums Johan Rydberg
2000-12-06 3:35 ` enums Ben Elliston
2000-12-06 3:38 ` Johan Rydberg [this message]
2000-12-06 8:55 ` enums Doug Evans
2000-12-06 9:06 ` enums Johan Rydberg
2000-12-06 9:28 ` enums Doug Evans
2000-12-07 6:33 ` enums Johan Rydberg
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=3A2E2584.FA57F7B6@netinsight.se \
--to=johan.rydberg@netinsight.se \
--cc=bje@redhat.com \
--cc=cgen@sources.redhat.com \
--cc=fche@redhat.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).