Changeset 5716

Timestamp:

Jan 18, 2007, 2:55:42 AM (18 years ago)

Author:

Gary Byers

Message:

Get the contents of the register that may hold OS thread context.

File:

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

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

@@ -1010 +1010 @@
   (blr))
 
+;;; r13 contains thread context on Linux/Darwin PPC64.
+;;; That's maintained in r2 on LinuxPPC32, and not maintained
+;;; in a GPR on DarwinPPC32
+(defppclapfunction %get-os-context ()
+  #+ppc64-target (mr arg_z 13)
+  #+linuxppc32-target (mr arg_z 2)
+  #+darinppc32-target (mr arg_z 0)
+  (blr))
+
+
 ; end of ppc-misc.lisp