Changeset 14346


Ignore:
Timestamp:
Oct 8, 2010, 8:02:04 PM (9 years ago)
Author:
rme
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/lisp-debug.c

    r14295 r14346  
    4646} debug_command_return;
    4747
     48#ifdef SVN_REVISION
     49#define xstr(s) str(s)
     50#define str(s) #s
     51char *kernel_svn_revision = xstr(SVN_REVISION);
     52#undef xstr
     53#undef str
     54#else
     55char *kernel_svn_revision = "unknown";
     56#endif
    4857
    4958Boolean
     
    855864
    856865debug_command_return
     866debug_show_lisp_version(ExceptionInformation *xp, siginfo_t *info, int arg)
     867{
     868  extern void *plsym(ExceptionInformation *,char*);
     869
     870  fprintf(dbgout, "Lisp kernel svn revision: %s\n", kernel_svn_revision);
     871  plsym(xp, "*OPENMCL-VERSION*");
     872  return debug_continue;
     873}
     874
     875debug_command_return
    857876debug_thread_info(ExceptionInformation *xp, siginfo_t *info, int arg)
    858877{
     
    12591278   NULL,
    12601279   'K'},
     1280  {debug_show_lisp_version,
     1281   "Show Subversion revision information",
     1282   0,
     1283   NULL,
     1284   'V'},
    12611285  {debug_help,
    12621286   "Show this help",
Note: See TracChangeset for help on using the changeset viewer.