Changeset 8809


Ignore:
Timestamp:
Mar 17, 2008, 7:15:48 AM (12 years ago)
Author:
gb
Message:

Use ll (long long) format spec more often.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lisp-kernel/xlbt.c

    r6910 r8809  
    4141    if (fulltag_of(fun) == fulltag_function) {
    4242      delta = pc - fun;
    43       Dprintf("(#x%016lX) #x%016lX : %s + %d", frame, pc, print_lisp_object(fun), delta);
     43      Dprintf("(#x%016llX) #x%016llX : %s + %d", frame, pc, print_lisp_object(fun), delta);
    4444      return;
    4545    }
     
    4747  if (pc == 0) {
    4848    fun = ((xcf *)frame)->nominal_function;
    49     Dprintf("(#x%016lX) #x%016lX : %s + ??", frame, pc, print_lisp_object(fun));
     49    Dprintf("(#x%016l;X) #x%016llX : %s + ??", frame, pc, print_lisp_object(fun));
    5050    return;
    5151  }
     
    108108    }
    109109    if (next < start) {
    110       fprintf(stderr, "Bad frame! (%x < %x)\n", next, start);
     110      fprintf(stderr, "Bad frame! (%llx < %lx)\n", next, start);
    111111      break;
    112112    }
     
    142142    if ((((LispObj) ptr_to_lispobj(vs_area->low)) > currentRBP) ||
    143143        (((LispObj) ptr_to_lispobj(vs_area->high)) < currentRBP)) {
    144       Dprintf("\nFramepointer [#x%lX] in unknown area.", currentRBP);
     144      Dprintf("\nFramepointer [#x%llX] in unknown area.", currentRBP);
    145145    } else {
    146       fprintf(stderr, "current thread: tcr = 0x%lx, native thread ID = 0x%lx, interrupts %s\n", tcr, tcr->native_thread_id, ilevel);
     146      fprintf(stderr, "current thread: tcr = 0x%llx, native thread ID = 0x%llx, interrupts %s\n", tcr, tcr->native_thread_id, ilevel);
    147147      walk_stack_frames((lisp_frame *) ptr_from_lispobj(currentRBP), (lisp_frame *) (vs_area->high));
    148148      /*      walk_other_areas();*/
Note: See TracChangeset for help on using the changeset viewer.