Changeset 8235

Timestamp:

Jan 22, 2008, 1:12:12 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Update sprint_lisp_object() and sprint_tra() for x8632.

File:

• branches/ia32/lisp-kernel/x86_print.c (modified) (4 diffs)

branches/ia32/lisp-kernel/x86_print.c

@@ -338 +338 @@
     sprint_unsigned_hex(o);
   }
+#else
+  LispObj f = 0;
+  unsigned disp = 0;
+
+  if (*(unsigned char *)o == RECOVER_FN_OPCODE) {
+    f = (LispObj)(*((natural *)(o + 1)));
+    disp = o - f;
+  }
+
+  if (f && header_subtag(header_of(f)) == subtag_function) {
+    add_c_string("tagged return address: ");
+    sprint_function(f, depth);
+    add_c_string(" + ");
+    sprint_unsigned_decimal(disp);
+  } else {
+    add_c_string("(tra ?) : ");
+    sprint_unsigned_hex(o);
+  }
 #endif
 }
@@ -476 +494 @@
     case fulltag_nodeheader_1:
 #else
+    case fulltag_immheader:
+    case fulltag_nodeheader:
 #endif      
       add_c_string("#<header ? ");
@@ -486 +506 @@
     case fulltag_imm_1:
 #else
+    case fulltag_imm:
 #endif
       if (o == unbound) {
@@ -534 +555 @@
       sprint_function(o, depth);
       break;
-
+#endif
+
+#ifdef X8664
     case fulltag_tra_0:
     case fulltag_tra_1:
+#else
+    case fulltag_tra:
+#endif
       sprint_tra(o,depth);
       break;
-#endif
     }
   }