Changeset 7752 for branches

Timestamp:

Nov 26, 2007, 3:32:34 AM (17 years ago)

Author:

Gary Byers

Message:

T kernel debugger command shows thread stack areas.

File:

• branches/working-0711/ccl/lisp-kernel/lisp-debug.c (modified) (2 diffs)

branches/working-0711/ccl/lisp-kernel/lisp-debug.c

@@ -503 +503 @@
 }
 
+debug_command_return
+debug_thread_info(ExceptionInformation *xp, siginfo_t *info, int arg)
+{
+  TCR * tcr = get_tcr(false);
+  
+  if (tcr) {
+    area *vs_area = tcr->vs_area, *cs_area = tcr->cs_area;
+
+    fprintf(stderr, "Current Thread Context Record (tcr) = 0x%lx\n", tcr);
+    fprintf(stderr, "Control (C) stack area:  low = 0x%lx, high = 0x%lx\n",
+            cs_area->low, cs_area->high);
+    fprintf(stderr, "Value (lisp) stack area: low = 0x%lx, high = 0x%lx\n",
+            vs_area->low, vs_area->high);
+    fprintf(stderr, "Exception stack pointer = 0x%lx\n",
+#ifdef PPC
+            xpGPR(xp,1)
+#endif
+#ifdef X86
+            xpGPR(xp,Isp)
+#endif
+            );
+  }
+  return debug_continue;
+}
       
 
@@ -719 +743 @@
    NULL,
    'B'},
+  {debug_thread_info,
+   "Show info about current thread",
+   0,
+   NULL,
+   'T'},
   {debug_win,
    "Exit from this debugger, asserting that any exception was handled",