* operand.scm (op-nub): Delete.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 245ab9f..a41c591 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,5 +1,7 @@
 2009-11-21  Doug Evans  <dje@sebabeach.org>
 
+       * operand.scm (op-nub): Delete.
+
        * dev-utils.scm: New file.
        * dev.scm (srcdir, load-doc, load-opc, load-gtest, load-sid,
        load-sim, load-stest, load-testsuite): Moved to dev-utils.scm.

diff --git a/cgen/operand.scm b/cgen/operand.scm
index 2cd5ccb..0e70430 100644 (file)
--- a/cgen/operand.scm
+++ b/cgen/operand.scm
@@ -1565,12 +1565,6 @@
 
 (define (op:length operand) (send operand 'field-length))
 
-; Return the nub of a list of operands, base on their names.
-
-(define (op-nub op-list)
-  (nub op-list obj:name)
-)
-
 ; Return a sorted list of operand lists.
 ; Each element in the inner list is an operand with the same name, but for
 ; whatever reason were defined separately.
@@ -1624,7 +1618,7 @@
              (builtin-location) 'pc "program counter"
              (atlist-parse (make-prefix-context "make! of pc")
                            '(SEM-ONLY) "cgen_operand")
-             'h-pc
+             'h-pc ;; FIXME: keep name h-pc hardwired?
              'DFLT
              ;;(hw-index-scalar) ;; FIXME: change to this
              (make <hw-index> 'anonymous