Changeset 4951

Timestamp:

Aug 18, 2006, 8:23:01 AM (18 years ago)

Author:

Gary Byers

Message:

Changes in purify_xp().

File:

• trunk/ccl/lisp-kernel/x86-gc.c (modified) (1 diff)

trunk/ccl/lisp-kernel/x86-gc.c

@@ -2982 +2982 @@
 purify_xp(ExceptionInformation *xp, BytePtr low, BytePtr high, area *to, int what)
 {
-  unsigned long *regs = (unsigned long *) xpGPRvector(xp);
-
-#ifdef PPC
-  int r;
-
-  /* registers >= fn should be treated as roots.
-     The PC, LR, loc_pc, and CTR should be treated as "locatives".
-   */
-
-  for (r = fn; r < 32; r++) {
-    copy_ivector_reference((LispObj*) (&(regs[r])), low, high, to, what);
-  };
-
-  purify_locref((LispObj*) (&(regs[loc_pc])), low, high, to, what);
-
-  purify_locref((LispObj*) (&(xpPC(xp))), low, high, to, what);
-  purify_locref((LispObj*) (&(xpLR(xp))), low, high, to, what);
-  purify_locref((LispObj*) (&(xpCTR(xp))), low, high, to, what);
-#endif
+  natural *regs = (natural *) xpGPRvector(xp);
+
 
 #ifdef X86