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

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

diff --git a/cgen/sim.scm b/cgen/sim.scm
index 7c4b7b6..77c2169 100644 (file)
--- a/cgen/sim.scm
+++ b/cgen/sim.scm
@@ -949,7 +949,7 @@
         (error "hw-index:cxmake-get: result needs a mode" self))
      (cx:make (if (mode:host? mode)
                  ; FIXME: Temporary hack to generate same code as before.
-                 (let ((xmode (object-copy-top mode)))
+                 (let ((xmode (object-copy mode)))
                    (obj-cons-attr! xmode (bool-attr-make 'FORCE-C #t))
                    xmode)
                  mode)