#include "irmode_t.h"
#include "tv_t.h"
#include "irloop_t.h"
-#include "irextbb_t.h"
#include "irprog_t.h"
#include "compound_path_t.h"
#include "tpop_t.h"
OutputDebugString(buf);
va_end(ap);
-} /* debug */
+}
/**
* return the size of a firm object
return sizeof(tarval);
case k_ir_loop: /* a loop */
return sizeof(ir_loop);
- case k_ir_compound_graph_path: /* a compound graph path, see entity.h */
- return sizeof(compound_graph_path);
- case k_ir_extblk: /* an extended block */
- return sizeof(ir_extblk);
case k_ir_prog: /* a program representation (irp) */
return sizeof(ir_prog);
default:
return 0;
}
-} /* get_firm_object_size */
+}
/**
* returns the string length of a string in debuggee space
return i;
}
return i;
-} /* strlen_debuggee */
+}
/**
* Format an ident
_tcsncpy(pResult, (const char *)data->dptr, max);
return S_OK;
-} /* format_ident */
+}
/**
* Format a tp_op
}
#undef X
#undef Y
-} /* format_tp_op */
+}
/**
* Checks whether a type is the global type
*flag = tp.flags & tf_global_type;
return S_OK;
-} /* is_global_type */
+}
/**
* format an entity
_tcsncat(pResult, name, max);
return S_OK;
-} /* format_entity */
+}
/**
* format an ir_mode
if (format_ident(pHelper, mode.name, pResult, max) != S_OK)
return E_FAIL;
return S_OK;
-} /* format_mode */
+}
/**
* format a type
_tcsncat(pResult, name, max);
return S_OK;
-} /* format_type */
+}
/**
* format an irg
}
_tcsncat(pResult, name, max);
return S_OK;
-} /* format_irg */
+}
/**
* format an ir_op
if (format_ident(pHelper, op.name, pResult, max) != S_OK)
return E_FAIL;
return S_OK;
-} /* format_op */
+}
/** get a temporary string */
#define get_string(str) \
}
}
return S_OK;
-} /* format_tarval */
+}
/**
* format an ir_node
_tcsncat(pResult, name, max);
return S_OK;
-} /* format_node */
+}
/**
* format a loop
if (copy_from_debuggee(addr, pHelper, &loop, sizeof(loop)) != S_OK)
return E_FAIL;
return E_FAIL;
-} /* format_loop */
+}
/**
* Get an array descriptor
return E_FAIL;
return S_OK;
-} /* get_array_desc */
-
-/**
- * format an extended block
- */
-static HRESULT format_extblk(DEBUGHELPER *pHelper, int nBase, const void *addr, char *pResult, size_t max)
-{
- ir_extblk extbb;
- ir_arr_descr blocks;
- ir_node *blks = NULL;
- char name[256];
- int len;
-
- if (copy_from_debuggee(addr, pHelper, &extbb, sizeof(extbb)) != S_OK)
- return E_FAIL;
- if (extbb.blks == NULL)
- return E_FAIL;
-
- if (get_array_desc(pHelper, extbb.blks, &blocks) != S_OK)
- return E_FAIL;
-
- len = ARR_LEN(&blocks.v.elts);
-
- if (len > 0) {
- if (copy_from_debuggee(extbb.blks, pHelper, &blks, sizeof(blks)) != S_OK)
- return E_FAIL;
- }
-
- if (blks) {
- switch (nBase) {
- case 16:
- _snprintf(name, sizeof(name), "0x%x 0x%x blocks", blks->node_nr, len);
- break;
- case 8:
- _snprintf(name, sizeof(name), "0%o 0%o blocks", blks->node_nr, len);
- break;
- default:
- _snprintf(name, sizeof(name), "%d %d blocks", blks->node_nr, len);
- }
- _tcsncpy(pResult, name, max);
- }
- else
- _tcsncpy(pResult, "<EMPTY>", max);
- return S_OK;
-} /* format_extblk */
-
+}
/**
* format a ir_prog
_tcsncpy(pResult, name, max);
return S_OK;
-} /* format_prog */
+}
/*
* Format an array descriptor
_tcsncat(pResult, name, max);
return S_OK;
-} /* format_arr_descr */
+}
/*
* format a firm object
return format_tarval(pHelper, nBase, addr, pResult, max);
case k_ir_loop: /* a loop */
return format_loop(pHelper, addr, pResult, max);
- case k_ir_compound_graph_path: /* a compound graph path, see entity.h */
- return E_FAIL;
- case k_ir_extblk: /* an extended block */
- return format_extblk(pHelper, nBase, addr, pResult, max);
case k_ir_prog: /* a program representation (irp) */
return format_prog(pHelper, nBase, addr, pResult, max);
default:
return E_FAIL;
}
-} /* FormatFirmObject */
+}
#define SEGMENT_SIZE_SHIFT 8
#define SEGMENT_SIZE (1 << SEGMENT_SIZE_SHIFT)
*lenght = max_len;
*size = dyns;
return S_OK;
-} /* find_longest_pset_chain */
+}
/**
* Find the longest chain of a set
*lenght = max_len;
*size = dyns;
return S_OK;
-} /* find_longest_set_chain */
+}
/*
* Format a pset
_tcsncpy(pResult, name, max);
return S_OK;
-} /* format_pset */
+}
/*
* Format a set
_tcsncpy(pResult, name, max);
return S_OK;
-} /* format_set */
+}
struct pdeq {
unsigned magic; /**< debug magic, only available in DEBUG builds */
};
return n;
-} /* get_pdeq_len */
+}
/*
* Format a pdeq
_tcsncpy(pResult, name, max);
return S_OK;
-} /* format_pdeq */
+}
/** show the first 2 units */
static HRESULT fill_bits(DEBUGHELPER *pHelper, bitset_t *bs, char *pResult)
}
sprintf(pResult + l, "}");
return S_OK;
-} /* fill_bits */
+}
/*
* Format a bitset
_tcsncpy(pResult, name, max);
return S_OK;
-} /* format_bitset */
+}