OpenE2K/qemu-e2k
13
4
Fork 0
Code Issues 4 Pull Requests Projects 2 Releases Activity

debug output: write helper names

Browse Source 
git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@4529 c046a42c-6fe2-441c-8c8c-71466251a162
This commit is contained in:
bellard 2008-05-22 16:08:32 +00:00
parent 39cf05d322
commit 4dc81f2822
2 changed files with 35 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
tcg/tcg.c
View File

@ -516,22 +516,11 @@ void tcg_register_helper(void *func, const char *name)
s->helpers = realloc(s->helpers, n * sizeof(TCGHelperInfo));
s->allocated_helpers = n;
}
s->helpers[s->nb_helpers].func = func;
s->helpers[s->nb_helpers].func = (tcg_target_ulong)func;
s->helpers[s->nb_helpers].name = name;
s->nb_helpers++;
}
const char *tcg_helper_get_name(TCGContext *s, void *func)
{
int i;
for(i = 0; i < s->nb_helpers; i++) {
if (s->helpers[i].func == func)
return s->helpers[i].name;
}
return NULL;
}
static inline TCGType tcg_get_base_type(TCGContext *s, TCGv arg)
{
return s->temps[GET_TCGV(arg)].base_type;
@ -718,6 +707,37 @@ char *tcg_get_arg_str(TCGContext *s, char *buf, int buf_size, TCGv arg)
return tcg_get_arg_str_idx(s, buf, buf_size, GET_TCGV(arg));
}
/* find helper definition (XXX: inefficient) */
static TCGHelperInfo *tcg_find_helper(TCGContext *s, tcg_target_ulong val)
{
int i;
for(i = 0; i < s->nb_helpers; i++) {
if (s->helpers[i].func == val)
return &s->helpers[i];
}
return NULL;
}
static const char *tcg_get_helper_str_idx(TCGContext *s, char *buf, int buf_size,
int idx)
{
TCGTemp *ts;
TCGHelperInfo *th;
ts = &s->temps[idx];
if (ts->val_type == TEMP_VAL_CONST) {
/* find helper name (XXX: inefficient) */
th = tcg_find_helper(s, ts->val);
if (th) {
pstrcpy(buf, buf_size, "$");
pstrcat(buf, buf_size, th->name);
return buf;
}
}
return tcg_get_arg_str_idx(s, buf, buf_size, idx);
}
void tcg_dump_ops(TCGContext *s, FILE *outfile)
{
const uint16_t *opc_ptr;
@ -735,6 +755,7 @@ void tcg_dump_ops(TCGContext *s, FILE *outfile)
fprintf(outfile, " %s ", def->name);
if (c == INDEX_op_call) {
TCGArg arg;
/* variable number of arguments */
arg = *args++;
nb_oargs = arg >> 16;
@ -742,9 +763,8 @@ void tcg_dump_ops(TCGContext *s, FILE *outfile)
nb_cargs = def->nb_cargs;
/* function name */
/* XXX: dump helper name for call */
fprintf(outfile, "%s",
tcg_get_arg_str_idx(s, buf, sizeof(buf), args[nb_oargs + nb_iargs - 1]));
tcg_get_helper_str_idx(s, buf, sizeof(buf), args[nb_oargs + nb_iargs - 1]));
/* flags */
fprintf(outfile, ",$0x%" TCG_PRIlx,
args[nb_oargs + nb_iargs]);

2
tcg/tcg.h
View File

@ -192,7 +192,7 @@ typedef struct TCGTemp {
} TCGTemp;
typedef struct TCGHelperInfo {
void *func;
tcg_target_ulong func;
const char *name;
} TCGHelperInfo;