From 4937acbaf46427461020a68998c714255fce382a Mon Sep 17 00:00:00 2001 From: devans Date: Sat, 21 Nov 2009 09:36:47 +0000 Subject: [PATCH] * operand.scm (op-nub): Delete. --- cgen/ChangeLog | 2 ++ cgen/operand.scm | 8 +------- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/cgen/ChangeLog b/cgen/ChangeLog index 245ab9f96f..a41c591ff7 100644 --- a/cgen/ChangeLog +++ b/cgen/ChangeLog @@ -1,5 +1,7 @@ 2009-11-21 Doug Evans + * 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 2cd5ccb60e..0e70430e1e 100644 --- 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 'anonymous -- 2.11.0