* html.scm (doc-analyze!): Provide defualt IDOC attribute if missing.

diff --git a/ChangeLog b/ChangeLog
index 8f81996da50e94a375f5325fed43f159e3dec732..ac69658671764a802e0ba34043371f3baf94fee4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2009-06-18  Doug Evans  <dje@sebabeach.org>
 
+       * html.scm (doc-analyze!): Provide defualt IDOC attribute if missing.
+
        * dev.scm (cload): Change #:arch argument to take the path to the
        .cpu file instead of just the name of the architecture.
        * read.scm (arch-path): Remove trailing '/'.

diff --git a/html.scm b/html.scm
index 9509be868d0695a497a34efa1e1f06a0a5fec2a1..f91fc19d6a998bd60fb556ab2bee983204f76d67 100644 (file)
--- a/html.scm
+++ b/html.scm
@@ -955,7 +955,7 @@ See the input .cpu file(s) for copyright information.
 \f
 ; Documentation init,finish,analyzer support.
 
-; Initialize any opcodes specific things before loading the .cpu file.
+; Initialize any doc specific things before loading the .cpu file.
 
 (define (doc-init!)
   (desc-init!)
@@ -963,7 +963,7 @@ See the input .cpu file(s) for copyright information.
   *UNSPECIFIED*
 )
 
-; Finish any opcodes specific things after loading the .cpu file.
+; Finish any doc specific things after loading the .cpu file.
 ; This is separate from analyze-data! as cpu-load performs some
 ; consistency checks in between.
 
@@ -979,6 +979,21 @@ See the input .cpu file(s) for copyright information.
 (define (doc-analyze!)
   (desc-analyze!)
 
+  ; If the IDOC attribute isn't defined, provide a default one.
+  (if (not (current-attr-lookup 'IDOC))
+      (define-attr
+       '(for insn)
+       '(type enum)
+       '(name IDOC)
+       '(comment "insn kind for documentation")
+       '(attrs META)
+       '(values
+         (MEM - () "Memory")
+         (ALU - () "ALU")
+         (FPU - () "FPU")
+         (BR - () "Branch")
+         (MISC - () "Miscellaneous"))))
+
   ; Initialize the rtl->c translator.
   (rtl-c-config!)