Changeset 5385

Timestamp:

Oct 19, 2006, 12:48:53 PM (18 years ago)

Author:

Gary Byers

Message:

Reference the source argument - not arg_z - in %safe-get-ptr.

File:

• trunk/ccl/level-0/PPC/ppc-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/PPC/ppc-misc.lisp

@@ -983 +983 @@
 (defppclapfunction %safe-get-ptr ((src arg_y) (dest arg_z))
   (check-nargs 2)
-  (macptr-ptr imm0 arg_z)
+  (macptr-ptr imm0 src)
   (str imm0 target::tcr.safe-ref-address target::rcontext)
   (ldr imm0 0 imm0)                     ; may fault