* hardware.scm (hw-pc?): New function.

[pf3gnuchains/pf3gnuchains4x.git] / cgen / iformat.scm

diff --git a/cgen/iformat.scm b/cgen/iformat.scm
index 82ba13f..9fda636 100644 (file)
--- a/cgen/iformat.scm
+++ b/cgen/iformat.scm
@@ -98,7 +98,7 @@
           (map isa-base-insn-bitsize
                (map current-isa-lookup
                     (collect (lambda (ifld) 
-                               (bitset-attr->list (atlist-attr-value (obj-atlist ifld) 'ISA #f)))
+                               (atlist-attr-value (obj-atlist ifld) 'ISA #f))
                              fld-list))))))
     (if (= 1 (length isa-base-bitsizes))
        (min (car isa-base-bitsizes) (compute-insn-length fld-list))
@@ -390,12 +390,12 @@
 ; Attributes derivable from the semantics are also computed.
 ; This is all done at the same time to minimize the number of times the
 ; semantic code is traversed.
-; The semantics of INSN must already be compiled and stored in
-; compiled-semantics.
+; The semantics of INSN must already be canonicalized and stored in
+; canonical-semantics.
 ;
-; The result is (descriptor attrs).
-; `descriptor' is #f for insns with an empty field list
-; (this happens for virtual insns).
+; The result is (descriptor compiled-semantics attrs).
+; `descriptor' and `compiled-semantics' are #f for insns with an empty
+; field list.  This happens for virtual insns.
 ; `attrs' is an <attr-list> object of attributes derived from the semantics.
 ;
 ; ??? We never traverse the semantics of virtual insns.
@@ -432,7 +432,7 @@
                (out-ops (csem-outputs sem-ops))
                (attrs (csem-attrs sem-ops))
                (cti? (or (atlist-cti? (csem-attrs sem-ops))
-                         (insn-cti? insn))))
+                         (insn-cti-attr? insn))))
 
            (list (make <fmt-desc>
                    cti? sorted-ifields in-ops out-ops