Ignore:
Timestamp:
Oct 10, 2009, 2:09:34 PM (10 years ago)
Author:
gz
Message:

Cosmetic changes (r12644)

File:
1 edited

Legend:

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

    r12198 r12988  
    138138
    139139void
    140 plbt_sp(LispObj currentRBP)
     140plbt_sp(LispObj current_fp)
    141141{
    142142  area *vs_area, *cs_area;
    143  
    144 {
    145     TCR *tcr = (TCR *)get_tcr(true);
    146     char *ilevel = interrupt_level_description(tcr);
    147     vs_area = tcr->vs_area;
    148     cs_area = tcr->cs_area;
    149     if ((((LispObj) ptr_to_lispobj(vs_area->low)) > currentRBP) ||
    150         (((LispObj) ptr_to_lispobj(vs_area->high)) < currentRBP)) {
    151 #ifdef X8664
    152       currentRBP = (LispObj) (tcr->save_rbp);
    153 #else
    154       currentRBP = (LispObj) (tcr->save_ebp);
    155 #endif
    156     }
    157     if ((((LispObj) ptr_to_lispobj(vs_area->low)) > currentRBP) ||
    158         (((LispObj) ptr_to_lispobj(vs_area->high)) < currentRBP)) {
    159       Dprintf("\nFramepointer [#x%lX] in unknown area.", currentRBP);
    160     } else {
    161       fprintf(dbgout, "current thread: tcr = 0x%lx, native thread ID = 0x%lx, interrupts %s\n", tcr, tcr->native_thread_id, ilevel);
    162       walk_stack_frames((lisp_frame *) ptr_from_lispobj(currentRBP), (lisp_frame *) (vs_area->high));
    163       /*      walk_other_areas();*/
    164     }
    165   }
     143  TCR *tcr = (TCR *)get_tcr(true);
     144  char *ilevel = interrupt_level_description(tcr);
     145
     146  vs_area = tcr->vs_area;
     147  cs_area = tcr->cs_area;
     148  if ((((LispObj) ptr_to_lispobj(vs_area->low)) > current_fp) ||
     149      (((LispObj) ptr_to_lispobj(vs_area->high)) < current_fp)) {
     150    current_fp = (LispObj) (tcr->save_fp);
     151  }
     152  if ((((LispObj) ptr_to_lispobj(vs_area->low)) > current_fp) ||
     153      (((LispObj) ptr_to_lispobj(vs_area->high)) < current_fp)) {
     154    Dprintf("\nFrame pointer [#x" LISP "] in unknown area.", current_fp);
     155  } else {
     156    fprintf(dbgout, "current thread: tcr = 0x" LISP ", native thread ID = 0x" LISP ", interrupts %s\n", tcr, tcr->native_thread_id, ilevel);
     157    walk_stack_frames((lisp_frame *) ptr_from_lispobj(current_fp), (lisp_frame *) (vs_area->high));
     158    /*      walk_other_areas();*/
     159  }
    166160}
    167161
Note: See TracChangeset for help on using the changeset viewer.