Changeset 5274

Timestamp:

Sep 27, 2006, 4:41:23 AM (18 years ago)

Author:

Gary Byers

Message:

Decode and handle UUO_ERROR_DEBUG_TRAP_WITH_STRING.

Location:

trunk/ccl/lisp-kernel

Files:

• x86-exceptions.c (modified) (2 diffs)
• x86-exceptions.h (modified) (1 diff)

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

@@ -628 +628 @@
 
 #endif
+
+void
+get_lisp_string(LispObj lisp_string, char *c_string, natural max)
+{
+  lisp_char_code *src = (lisp_char_code *)  (ptr_from_lispobj(lisp_string + misc_data_offset));
+  natural i, n = header_element_count(header_of(lisp_string));
+
+  if (n > max) {
+    n = max;
+  }
+
+  for (i = 0; i < n; i++) {
+    c_string[i] = 0xff & (src[i]);
+  }
+  c_string[n] = 0;
+}
 
 Boolean
@@ -661 +677 @@
           xpPC(context) = (natural) (program_counter+1);
           lisp_Debugger(context, info, debug_entry_dbg, "Lisp Breakpoint");
+          return true;
+
+        case UUO_DEBUG_TRAP_WITH_STRING:
+          xpPC(context) = (natural) (program_counter+1);
+          {
+            char msg[512];
+
+            get_lisp_string(xpGPR(context,Iarg_z),msg, sizeof(msg)-1);
+            lisp_Debugger(context, info, debug_entry_dbg, msg);
+          }
           return true;
           

trunk/ccl/lisp-kernel/x86-exceptions.h

@@ -92 +92 @@
 #define UUO_ALLOC_TRAP 0xc5
 #define UUO_DEBUG_TRAP 0xca
+#define UUO_DEBUG_TRAP_WITH_STRING 0xcd
 
 #define XUUO_OPCODE_0 0x0f