Ticket #993: x86-exceptions.c.diff

File x86-exceptions.c.diff, 765 bytes (added by uchida, 20 months ago)
  • ccl/lisp-kernel/x86-exceptions.c

    old new  
    27992799  int result; 
    28002800  signed_natural inhibit; 
    28012801 
     2802  int debug993_flag = 0; 
     2803 
     2804 
    28022805  suspend_other_threads(true); 
    28032806  inhibit = (signed_natural)(lisp_global(GC_INHIBIT_COUNT)); 
    2804   if (inhibit != 0) { 
     2807 
     2808  for (other_tcr = TCR_AUX(tcr)->next; other_tcr != tcr; 
     2809       other_tcr = TCR_AUX(other_tcr)->next) { 
     2810    if (TCR_AUX(other_tcr)->debug993) { 
     2811      printf("debug993=%d\n", TCR_AUX(other_tcr)->debug993); 
     2812      debug993_flag = 1; 
     2813      break; 
     2814    } 
     2815  } 
     2816 
     2817  if (inhibit != 0 || debug993_flag) { 
    28052818    if (inhibit > 0) { 
    28062819      lisp_global(GC_INHIBIT_COUNT) = (LispObj)(-inhibit); 
    28072820    }