Changeset 6334 for branches

Timestamp:

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

Author:

Gary Byers

Message:

In mark_xp(), mark rip as function if it looks like rip points to the
initial instruction which will establish fn.

File:

• branches/x8664-call/ccl/lisp-kernel/x86-gc.c (modified) (1 diff)

branches/x8664-call/ccl/lisp-kernel/x86-gc.c

@@ -1494 +1494 @@
       (! ref_bit(GCmarkbits,dnode))) {
     if (tag_of(rip) == tag_tra) {
+      mark_root(rip);
+    } else if ((fulltag_of(rip) == fulltag_function) &&
+               (*((unsigned short *)rip) == RECOVER_FN_FROM_RIP_WORD0) &&
+               (*((unsigned char *)(rip+2)) == RECOVER_FN_FROM_RIP_BYTE2) &&
+               ((*(int *) (rip+3))) == -RECOVER_FN_FROM_RIP_LENGTH) {
       mark_root(rip);
     } else {