Changeset 13802

Timestamp:

Jun 9, 2010, 9:17:14 PM (14 years ago)

Author:

Gary Byers

Message:

Preliminary ARM GPR display in kernel debugger.

File:

• branches/arm/lisp-kernel/lisp-debug.c (modified) (4 diffs)

branches/arm/lisp-kernel/lisp-debug.c

@@ -285 +285 @@
   }
 #endif
-
+#ifdef ARM
+  fprintf(dbgout, "r%02d (%s) = %s\n", r, label, print_lisp_object(val));
+#endif
 }
 
@@ -525 +527 @@
       show_lisp_register(xp, "temp2/nfn", temp2);
       show_lisp_register(xp, "temp3/fname", temp3);
-      /*    show_lisp_register(xp, "new_fn", new_fn); */
+
       show_lisp_register(xp, "save0", save0);
       show_lisp_register(xp, "save1", save1);
@@ -570 +572 @@
     fprintf(dbgout,"%%edx (nargs) = %d (maybe)\n", unbox_fixnum(xpGPR(xp,Inargs)));
   }
+#endif
+#ifdef ARM
+    TCR *xpcontext = (TCR *)ptr_from_lispobj(xpGPR(xp, rcontext));
+
+    fprintf(dbgout, "rcontext = 0x%lX ", xpcontext);
+    if (!active_tcr_p(xpcontext)) {
+      fprintf(dbgout, "(INVALID)\n");
+    } else {
+      fprintf(dbgout, "\nnargs = %d\n", xpGPR(xp, nargs) >> fixnumshift);
+      show_lisp_register(xp, "fn", fn);
+      show_lisp_register(xp, "arg_z", arg_z);
+      show_lisp_register(xp, "arg_y", arg_y);
+      show_lisp_register(xp, "arg_x", arg_x);
+      show_lisp_register(xp, "temp0", temp0);
+      show_lisp_register(xp, "temp1/fname/next_method_context", temp1);
+      show_lisp_register(xp, "temp2/nfn", temp2);
+    }
 #endif
   }
@@ -846 +865 @@
 #endif
 
+#ifdef ARM
+  int a, b;
+  for (a = 0, b = 8; a < 8; a++, b++) {
+    fprintf(dbgout,"r%02d = 0x%08lX    r%02d = 0x%08lX\n",
+            a, xpGPR(xp, a),
+            b, xpGPR(xp, b));
+  }
+#endif
+
   return debug_continue;
 }