Changeset 10892


Ignore:
Timestamp:
Sep 26, 2008, 2:02:17 PM (11 years ago)
Author:
gb
Message:

Use the new format-string convention.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-gc.c

    r10814 r10892  
    5555  case fulltag_nil:
    5656    if (n != lisp_nil) {
    57       Bug(NULL,"Object tagged as nil, not nil : 0x%08x", n);
     57      Bug(NULL,"Object tagged as nil, not nil : " LISP, n);
    5858    }
    5959    return;
     
    7171  case fulltag_immheader_2:
    7272#endif
    73     Bug(NULL, "Header not expected : 0x%lx", n);
     73    Bug(NULL, "Header not expected : 0x" LISP, n);
    7474    return;
    7575
     
    8686      if ((n > (ptr_to_lispobj(a->active))) &&
    8787          (n < (ptr_to_lispobj(a->high)))) {
    88         Bug(NULL, "TRA points to heap free space: 0x%lx", n);
     88        Bug(NULL, "TRA points to heap free space: 0x" LISP, n);
    8989      }
    9090      return;
     
    102102         (header_subtag(header_of(fun)) != subtag_function) ||
    103103         (heap_area_containing((BytePtr)ptr_from_lispobj(fun)) != a)) {
    104         Bug(NULL, "TRA at 0x%x has bad function address 0x%x\n", n, fun);
     104        Bug(NULL, "TRA at 0x" LISP " has bad function address 0x" LISP "\n", n, fun);
    105105      }
    106106      n = fun;
     
    120120          (fulltag_of(n) != fulltag_function) ||
    121121          (heap_area_containing((BytePtr)ptr_from_lispobj(n)) != a)) {
    122         Bug(NULL, "TRA at 0x%lx has bad displacement %d\n", n, disp);
     122        Bug(NULL, "TRA at 0x" LISP " has bad displacement %d\n", n, disp);
    123123      }
    124124    }
     
    143143      if ((n > (ptr_to_lispobj(a->active))) &&
    144144          (n < (ptr_to_lispobj(a->high)))) {
    145         Bug(NULL, "Node points to heap free space: 0x%lx", n);
     145        Bug(NULL, "Node points to heap free space: 0x" LISP, n);
    146146      }
    147147      return;
     
    155155    if ((nodeheader_tag_p(header_tag)) ||
    156156        (immheader_tag_p(header_tag))) {
    157       Bug(NULL, "Cons cell at 0x%lx has bogus header : 0x%lx", n, header);
     157      Bug(NULL, "Cons cell at 0x" LISP " has bogus header : 0x" LISP, n, header);
    158158    }
    159159    return;
     
    162162  if ((!nodeheader_tag_p(header_tag)) &&
    163163      (!immheader_tag_p(header_tag))) {
    164     Bug(NULL,"Vector at 0x%lx has bogus header : 0x%lx", n, header);
     164    Bug(NULL,"Vector at 0x" LISP " has bogus header : 0x" LISP, n, header);
    165165  }
    166166  return;
     
    189189    if (immheader_tag_p(tag)) {
    190190      if (! header_allowed) {
    191         Bug(NULL, "Header not expected at 0x%lx\n", prev);
     191        Bug(NULL, "Header not expected at 0x" LISP "\n", prev);
    192192      }
    193193      current = (LispObj *)skip_over_ivector((natural)prev, node);
    194194    } else if (nodeheader_tag_p(tag)) {
    195195      if (! header_allowed) {
    196         Bug(NULL, "Header not expected at 0x%lx\n", prev);
     196        Bug(NULL, "Header not expected at 0x" LISP "\n", prev);
    197197      }
    198198      elements = header_element_count(node) | 1;
     
    434434#endif
    435435        if (prefix_nodes > element_count) {
    436           Bug(NULL, "Function 0x%lx trashed",n);
     436          Bug(NULL, "Function 0x" LISP " trashed",n);
    437437        }
    438438      }
     
    636636#endif
    637637        if (code_words >= nmark) {
    638           Bug(NULL,"Bad function at 0x%lx",n);
     638          Bug(NULL,"Bad function at 0x" LISP,n);
    639639        }
    640640        nmark -= code_words;
     
    12781278
    12791279#if 0
    1280   fprintf(stderr, "mark VSP range: 0x%lx:0x%lx\n", start, end);
     1280  fprintf(stderr, "mark VSP range: 0x" LISP ":0x" LISP "\n", start, end);
    12811281#endif
    12821282  mark_headerless_area_range(start, end);
     
    18261826        if (GCDebug) {
    18271827          if (dest != ptr_from_lispobj(locative_forwarding_address(ptr_to_lispobj(src)))) {
    1828             Bug(NULL, "Out of synch in heap compaction.  Forwarding from 0x%lx to 0x%lx,\n expected to go to 0x%lx\n",
     1828            Bug(NULL, "Out of synch in heap compaction.  Forwarding from 0x" LISP " to 0x" LISP ",\n expected to go to 0x" LISP "\n",
    18291829                src, dest, locative_forwarding_address(ptr_to_lispobj(src)));
    18301830          }
Note: See TracChangeset for help on using the changeset viewer.