Changeset 6335

Timestamp:

Apr 22, 2007, 5:20:48 AM (18 years ago)

Author:

Gary Byers

Message:

ESTABLISH-FN, XCALL-SUBPRIM.

File:

• branches/x8664-call/ccl/compiler/X86/X8664/x8664-vinsns.lisp (modified) (2 diffs)

branches/x8664-call/ccl/compiler/X86/X8664/x8664-vinsns.lisp

@@ -997 +997 @@
   (jmp (:@ spno))
   :back
+  (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
+
+(define-x8664-vinsn (xcall-subprim :call)  (()
+                                           ((spno :s32const))
+                                           ((entry (:label 1))))
+  (:talign 4)
+  (call (:@ spno))
   (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
 
@@ -4229 +4236 @@
   (xchgq (:%q a) (:%q b)))
 
+(define-x8664-vinsn establish-fn (()
+                                  ()
+                                  ((entry (:label 1))))
+  (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
+                                  
 (queue-fixup
  (fixup-x86-vinsn-templates