Changeset 13802


Ignore:
Timestamp:
Jun 10, 2010, 4:17:14 AM (9 years ago)
Author:
gb
Message:

Preliminary ARM GPR display in kernel debugger.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/lisp-debug.c

    r13729 r13802  
    285285  }
    286286#endif
    287 
     287#ifdef ARM
     288  fprintf(dbgout, "r%02d (%s) = %s\n", r, label, print_lisp_object(val));
     289#endif
    288290}
    289291
     
    525527      show_lisp_register(xp, "temp2/nfn", temp2);
    526528      show_lisp_register(xp, "temp3/fname", temp3);
    527       /*    show_lisp_register(xp, "new_fn", new_fn); */
     529
    528530      show_lisp_register(xp, "save0", save0);
    529531      show_lisp_register(xp, "save1", save1);
     
    570572    fprintf(dbgout,"%%edx (nargs) = %d (maybe)\n", unbox_fixnum(xpGPR(xp,Inargs)));
    571573  }
     574#endif
     575#ifdef ARM
     576    TCR *xpcontext = (TCR *)ptr_from_lispobj(xpGPR(xp, rcontext));
     577
     578    fprintf(dbgout, "rcontext = 0x%lX ", xpcontext);
     579    if (!active_tcr_p(xpcontext)) {
     580      fprintf(dbgout, "(INVALID)\n");
     581    } else {
     582      fprintf(dbgout, "\nnargs = %d\n", xpGPR(xp, nargs) >> fixnumshift);
     583      show_lisp_register(xp, "fn", fn);
     584      show_lisp_register(xp, "arg_z", arg_z);
     585      show_lisp_register(xp, "arg_y", arg_y);
     586      show_lisp_register(xp, "arg_x", arg_x);
     587      show_lisp_register(xp, "temp0", temp0);
     588      show_lisp_register(xp, "temp1/fname/next_method_context", temp1);
     589      show_lisp_register(xp, "temp2/nfn", temp2);
     590    }
    572591#endif
    573592  }
     
    846865#endif
    847866
     867#ifdef ARM
     868  int a, b;
     869  for (a = 0, b = 8; a < 8; a++, b++) {
     870    fprintf(dbgout,"r%02d = 0x%08lX    r%02d = 0x%08lX\n",
     871            a, xpGPR(xp, a),
     872            b, xpGPR(xp, b));
     873  }
     874#endif
     875
    848876  return debug_continue;
    849877}
Note: See TracChangeset for help on using the changeset viewer.