Changeset 7654


Ignore:
Timestamp:
Nov 16, 2007, 12:23:07 AM (13 years ago)
Author:
gb
Message:

lisp_Debugger takes an "in_foreign_code" arg, rather than trying to set
a bit in a (possibly signed) integer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/lisp-debug.c

    r7282 r7654  
    817817              siginfo_t *info,
    818818              int why,
     819              Boolean in_foreign_code,
    819820              char *message,
    820821              ...)
     
    822823  va_list args;
    823824  debug_command_return state = debug_continue;
    824   int in_foreign_code = (why & debug_foreign_exception);
    825825
    826826  if (threads_initialized) {
     
    834834  if (in_foreign_code) {
    835835    fprintf(stderr, "Exception occurred while executing foreign code\n");
    836     why = (why & ~debug_foreign_exception);
    837836  }
    838837
     
    876875  vsnprintf(s, sizeof(s),format, args);
    877876  va_end(args);
    878   lisp_Debugger(xp, NULL, debug_entry_bug, s);
     877  lisp_Debugger(xp, NULL, debug_entry_bug, false, s);
    879878
    880879}
     
    889888  vsnprintf(s, sizeof(s),format, args);
    890889  va_end(args);
    891   lisp_Debugger(xp, NULL, debug_entry_bug | debug_foreign_exception , s);
     890  lisp_Debugger(xp, NULL, debug_entry_bug, true, s);
    892891
    893892}
Note: See TracChangeset for help on using the changeset viewer.