VM has "builtins": primitives addressable by emitted RTL code

[bpt/guile.git] / module / language / cps / compile-rtl.scm

diff --git a/module/language/cps/compile-rtl.scm b/module/language/cps/compile-rtl.scm
index 341b715..26aa87b 100644 (file)
--- a/module/language/cps/compile-rtl.scm
+++ b/module/language/cps/compile-rtl.scm
@@ -211,6 +211,8 @@
                   (emit-constant-vector-ref asm dst (slot vector) index)))
             (else
              (emit-vector-ref asm dst (slot vector) (slot index)))))
+          (($ $primcall 'builtin-ref (name))
+           (emit-builtin-ref asm dst (constant name)))
           (($ $primcall name args)
            ;; FIXME: Inline all the cases.
            (let ((inst (prim-rtl-instruction name)))