Changeset 10886


Ignore:
Timestamp:
Sep 26, 2008, 1:56:34 PM (11 years ago)
Author:
gb
Message:

Try to use new format-string constants.

File:
1 edited

Legend:

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

    r10724 r10886  
    613613    area *vs_area = tcr->vs_area, *cs_area = tcr->cs_area;
    614614
    615     fprintf(stderr, "Current Thread Context Record (tcr) = %p\n", (u64_t)(natural)tcr);
    616     fprintf(stderr, "Control (C) stack area:  low = 0x%llx, high = 0x%llx\n",
    617             (u64_t)(natural)(cs_area->low), (u64_t)(natural)(cs_area->high));
    618     fprintf(stderr, "Value (lisp) stack area: low = 0x%llx, high = 0x%llx\n",
     615    fprintf(stderr, "Current Thread Context Record (tcr) = 0x" LISP "\n", tcr);
     616    fprintf(stderr, "Control (C) stack area:  low = 0x" LISP ", high = 0x" LISP "\n",
     617            (cs_area->low), (cs_area->high));
     618    fprintf(stderr, "Value (lisp) stack area: low = 0x" LISP ", high = 0x" LISP "\n",
    619619            (u64_t)(natural)(vs_area->low), (u64_t)(natural)vs_area->high);
    620     fprintf(stderr, "Exception stack pointer = 0x%llx\n",
     620    fprintf(stderr, "Exception stack pointer = 0x" LISP "\n",
    621621#ifdef PPC
    622622            (u64_t) (natural)(xpGPR(xp,1))
     
    681681
    682682#ifdef X8664
    683   fprintf(stderr,"%%rax = 0x%016llx      %%r8  = 0x%016llx\n", xpGPR(xp,REG_RAX),xpGPR(xp,REG_R8));
    684   fprintf(stderr,"%%rcx = 0x%016llx      %%r9  = 0x%016llx\n", xpGPR(xp,REG_RCX),xpGPR(xp,REG_R9));
    685   fprintf(stderr,"%%rdx = 0x%016llx      %%r10 = 0x%016llx\n", xpGPR(xp,REG_RDX),xpGPR(xp,REG_R10));
    686   fprintf(stderr,"%%rbx = 0x%016llx      %%r11 = 0x%016llx\n", xpGPR(xp,REG_RBX),xpGPR(xp,REG_R11));
    687   fprintf(stderr,"%%rsp = 0x%016llx      %%r12 = 0x%016llx\n", xpGPR(xp,REG_RSP),xpGPR(xp,REG_R12));
    688   fprintf(stderr,"%%rbp = 0x%016llx      %%r13 = 0x%016llx\n", xpGPR(xp,REG_RBP),xpGPR(xp,REG_R13));
    689   fprintf(stderr,"%%rsi = 0x%016llx      %%r14 = 0x%016llx\n", xpGPR(xp,REG_RSI),xpGPR(xp,REG_R14));
    690   fprintf(stderr,"%%rdi = 0x%016llx      %%r15 = 0x%016llx\n", xpGPR(xp,REG_RDI),xpGPR(xp,REG_R15));
    691   fprintf(stderr,"%%rip = 0x%016llx   %%rflags = 0x%016llx\n",
     683  fprintf(stderr,"%%rax = 0x" ZLISP "      %%r8  = 0x" ZLISP "\n", xpGPR(xp,REG_RAX),xpGPR(xp,REG_R8));
     684  fprintf(stderr,"%%rcx = 0x" ZLISP "      %%r9  = 0x" ZLISP "\n", xpGPR(xp,REG_RCX),xpGPR(xp,REG_R9));
     685  fprintf(stderr,"%%rdx = 0x" ZLISP "      %%r10 = 0x" ZLISP "\n", xpGPR(xp,REG_RDX),xpGPR(xp,REG_R10));
     686  fprintf(stderr,"%%rbx = 0x" ZLISP "      %%r11 = 0x" ZLISP "\n", xpGPR(xp,REG_RBX),xpGPR(xp,REG_R11));
     687  fprintf(stderr,"%%rsp = 0x" ZLISP "      %%r12 = 0x" ZLISP "\n", xpGPR(xp,REG_RSP),xpGPR(xp,REG_R12));
     688  fprintf(stderr,"%%rbp = 0x" ZLISP "      %%r13 = 0x" ZLISP "\n", xpGPR(xp,REG_RBP),xpGPR(xp,REG_R13));
     689  fprintf(stderr,"%%rsi = 0x" ZLISP "      %%r14 = 0x" ZLISP "\n", xpGPR(xp,REG_RSI),xpGPR(xp,REG_R14));
     690  fprintf(stderr,"%%rdi = 0x" ZLISP "      %%r15 = 0x" ZLISP "\n", xpGPR(xp,REG_RDI),xpGPR(xp,REG_R15));
     691  fprintf(stderr,"%%rip = 0x" ZLISP "   %%rflags = 0x%08lx\n",
    692692          xpGPR(xp, Iip), eflags_register(xp));
    693693#endif
    694694
    695695#ifdef X8632
    696   fprintf(stderr, "%%eax = 0x%08X\n", xpGPR(xp, REG_EAX));
    697   fprintf(stderr, "%%ecx = 0x%08X\n", xpGPR(xp, REG_ECX));
    698   fprintf(stderr, "%%edx = 0x%08X\n", xpGPR(xp, REG_EDX));
    699   fprintf(stderr, "%%ebx = 0x%08X\n", xpGPR(xp, REG_EBX));
    700   fprintf(stderr, "%%esp = 0x%08X\n", xpGPR(xp, REG_ESP));
    701   fprintf(stderr, "%%ebp = 0x%08X\n", xpGPR(xp, REG_EBP));
    702   fprintf(stderr, "%%esi = 0x%08X\n", xpGPR(xp, REG_ESI));
    703   fprintf(stderr, "%%edi = 0x%08X\n", xpGPR(xp, REG_EDI));
    704   fprintf(stderr, "%%eip = 0x%08X\n", xpGPR(xp, REG_EIP));
    705   fprintf(stderr, "%%eflags = 0x%08X\n", xpGPR(xp, REG_EFL));
     696  fprintf(stderr, "%%eax = 0x" ZLISP "\n", xpGPR(xp, REG_EAX));
     697  fprintf(stderr, "%%ecx = 0x" ZLISP "\n", xpGPR(xp, REG_ECX));
     698  fprintf(stderr, "%%edx = 0x" ZLISP "\n", xpGPR(xp, REG_EDX));
     699  fprintf(stderr, "%%ebx = 0x" ZLISP "\n", xpGPR(xp, REG_EBX));
     700  fprintf(stderr, "%%esp = 0x" ZLISP "\n", xpGPR(xp, REG_ESP));
     701  fprintf(stderr, "%%ebp = 0x" ZLISP "\n", xpGPR(xp, REG_EBP));
     702  fprintf(stderr, "%%esi = 0x" ZLISP "\n", xpGPR(xp, REG_ESI));
     703  fprintf(stderr, "%%edi = 0x" ZLISP "\n", xpGPR(xp, REG_EDI));
     704  fprintf(stderr, "%%eip = 0x" ZLISP "\n", xpGPR(xp, REG_EIP));
     705  fprintf(stderr, "%%eflags = 0x" ZLISP "\n", xpGPR(xp, REG_EFL));
    706706#endif
    707707
     
    987987      natural where = (natural)xpPC(xp);
    988988
    989       fprintf(stderr, " In foreign code at address 0x%08lx\n", where);
     989      fprintf(stderr, " In foreign code at address 0x" ZLISP "\n", where);
    990990      foreign_name = foreign_name_and_offset(where, &disp);
    991991      if (foreign_name) {
Note: See TracChangeset for help on using the changeset viewer.