Changeset 5371

Timestamp:

Oct 18, 2006, 12:43:01 AM (18 years ago)

Author:

Gary Byers

Message:

%safe-get-ptr for x8664.

File:

• trunk/ccl/level-0/X86/x86-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-misc.lisp

@@ -701 +701 @@
   (single-value-return))
 
+(defx86lapfunction %safe-get-ptr ((src arg_y) (dest arg_z))
+  (check-nargs 2)
+  (save-simple-frame)
+  (macptr-ptr src imm0)
+  (leaq (@ (:^ done) (% fn)) (% ra0))
+  (movq (% imm0) (@ (% :rcontext) x8664::tcr.safe-ref-address))
+  (movq (@ (% imm0)) (% imm0))
+  (jmp done)
+  (:tra done)
+  (movq ($ 0) (@ (% :rcontext) x8664::tcr.safe-ref-address))
+  (movq (% imm0) (@ x8664::macptr.address (% dest)))
+  (restore-simple-frame)
+  (single-value-return))
+
 ;;; end of x86-misc.lisp