Changeset 9295


Ignore:
Timestamp:
Apr 26, 2008, 7:50:01 PM (11 years ago)
Author:
gb
Message:

Try to suppress some compiler warnings.

File:
1 edited

Legend:

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

    r8809 r9295  
    2121foreign_name_and_offset(void *frame, unsigned *delta)
    2222{
     23  *delta = 0;
     24  return NULL;
    2325}
    2426
     
    5557lisp_frame_p(lisp_frame *f)
    5658{
    57   LispObj fun, ra;
    58   unsigned offset;
    59   int sdisp;
     59  LispObj  ra;
    6060
    6161  if (f) {
     
    6666
    6767    if (tag_of(ra) == tag_tra) {
    68 #if 0
    69       if ((*((unsigned short *)ra) == RECOVER_FN_FROM_RIP_WORD0) &&
    70           (*((unsigned char *)(ra+2)) == RECOVER_FN_FROM_RIP_BYTE2)) {
    71         sdisp = (*(int *) (ra+3));
    72         fun = RECOVER_FN_FROM_RIP_LENGTH+ra+sdisp;
    73       }
    74       if (fulltag_of(fun) == fulltag_function) {
    75         return true;
    76       }
    77 #endif
    7868      return true;
    7969    } else if ((ra == lisp_global(LEXPR_RETURN)) ||
     
    9888    } else {
    9989      if (start->backlink) {
    100         fprintf(stderr, "Bogus  frame %lx\n", start);
     90        fprintf(stderr, "Bogus  frame %llx\n", (natural)start);
    10191      }
    10292      return;
     
    10898    }
    10999    if (next < start) {
    110       fprintf(stderr, "Bad frame! (%llx < %lx)\n", next, start);
     100      fprintf(stderr, "Bad frame! (%llx < %llx)\n", (natural)next, (natural)start);
    111101      break;
    112102    }
     
    144134      Dprintf("\nFramepointer [#x%llX] in unknown area.", currentRBP);
    145135    } else {
    146       fprintf(stderr, "current thread: tcr = 0x%llx, native thread ID = 0x%llx, interrupts %s\n", tcr, tcr->native_thread_id, ilevel);
     136      fprintf(stderr, "current thread: tcr = 0x%llx, native thread ID = 0x%llx, interrupts %s\n", (natural)tcr, (natural)tcr->native_thread_id, ilevel);
    147137      walk_stack_frames((lisp_frame *) ptr_from_lispobj(currentRBP), (lisp_frame *) (vs_area->high));
    148138      /*      walk_other_areas();*/
Note: See TracChangeset for help on using the changeset viewer.