* utils-cgen.scm (<location>): Define using new define-class.

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

diff --git a/cgen/model.scm b/cgen/model.scm
index 5a14e75..a8d6f2a 100644 (file)
--- a/cgen/model.scm
+++ b/cgen/model.scm
@@ -61,7 +61,7 @@
 ; FIXME: No longer used.
 
 (define (unit:make-insn-timing u issue done)
-  (let ((result (object-copy-top u)))
+  (let ((result (object-copy u)))
     (elm-xset! result 'issue issue)
     (elm-xset! result 'done done)
     result)