Changeset 14346

Timestamp:

Oct 8, 2010, 1:02:04 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Look for SVN_REVISION macro, and by means of ridiculous C preprocessor
macros, set kernel_svn_revision from it if it is defined. (It is
expected to be defined from the lisp kernel makefiles).

Add a kernel debugger command to print out this version information.
Look for the symbol *OPENMCL-VERSION* by grovelling the lisp heap and
print out its value also.

File:

• trunk/source/lisp-kernel/lisp-debug.c (modified) (3 diffs)

trunk/source/lisp-kernel/lisp-debug.c

@@ -46 +46 @@
 } debug_command_return;
 
+#ifdef SVN_REVISION
+#define xstr(s) str(s)
+#define str(s) #s
+char *kernel_svn_revision = xstr(SVN_REVISION);
+#undef xstr
+#undef str
+#else
+char *kernel_svn_revision = "unknown";
+#endif
 
 Boolean
@@ -855 +864 @@
 
 debug_command_return
+debug_show_lisp_version(ExceptionInformation *xp, siginfo_t *info, int arg)
+{
+  extern void *plsym(ExceptionInformation *,char*);
+
+  fprintf(dbgout, "Lisp kernel svn revision: %s\n", kernel_svn_revision);
+  plsym(xp, "*OPENMCL-VERSION*");
+  return debug_continue;
+}
+
+debug_command_return
 debug_thread_info(ExceptionInformation *xp, siginfo_t *info, int arg)
 {
@@ -1259 +1278 @@
    NULL,
    'K'},
+  {debug_show_lisp_version,
+   "Show Subversion revision information",
+   0,
+   NULL,
+   'V'},
   {debug_help,
    "Show this help",