Changeset 7912


Ignore:
Timestamp:
Dec 15, 2007, 12:07:47 AM (13 years ago)
Author:
gz
Message:

update from trunk to rev 7911

Location:
branches/event-ide/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/level-1/l1-readloop.lisp

    r7699 r7912  
    124124
    125125
    126 (defglobal *quitting* nil)
     126(defloadvar *quitting* nil)
    127127
    128128
  • branches/event-ide/ccl/lisp-kernel/lisp-debug.c

    r7779 r7912  
    866866    fprintf(stderr, "Exception occurred while executing foreign code\n");
    867867  }
    868 
    869868  if (lisp_global(BATCH_FLAG)) {
    870869    abort();
    871870  }
     871#ifdef DARWIN
     872#ifdef X8664
     873  if (xp) {
     874    extern void *_sigtramp();
     875    extern int os_major_version;
     876
     877    if (xpPC(xp) == (natural)_sigtramp) {
     878      xp = (ExceptionInformation *) xpGPR(xp,os_major_version < 9 ? REG_RSI :REG_RCX);
     879      fprintf(stderr, "Exception raised at _sigtramp; using context passed to _sigtramp.  Raw register values (R) may be more interesting then lisp values or lisp backtrace\n");
     880    }
     881  }
     882#endif
     883#endif
     884
     885
    872886  if (xp) {
    873887    if (why > debug_entry_exception) {
  • branches/event-ide/ccl/lisp-kernel/pmcl-kernel.c

    r7137 r7912  
    12861286#endif
    12871287
     1288int
     1289os_major_version = 0;
     1290
    12881291void
    12891292check_os_version(char *progname)
     
    12961299    exit(1);
    12971300  }
     1301  sscanf(uts.release,"%d",&os_major_version);
     1302
    12981303#ifdef PPC
    12991304#ifdef DARWIN
Note: See TracChangeset for help on using the changeset viewer.