* @date 11.9.2006
* @version $Id$
*/
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
+#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include "pdeq.h"
#include "irtools.h"
#include "obst.h"
-#include "array.h"
+#include "array_t.h"
#include "be_dbgout_t.h"
#include "beabi.h"
#include "bemodule.h"
* type-walker: generate declaration for simple types,
* put all other types on a wait queue
*/
-static void walk_type(type_or_ent *tore, void *ctx)
+static void walk_type(type_or_ent tore, void *ctx)
{
wenv_t *env = ctx;
ir_type *tp;
- if (get_kind(tore) == k_type) {
- tp = (ir_type *)tore;
+ if (is_type(tore.typ)) {
+ tp = tore.typ;
/* ignore the unknown type */
if (tp == firm_unknown_type)
return;
if (handle->curr_file != fname) {
- /* TODO: escape filename correctly */
- if (handle->curr_file != handle->main_file) {
- be_emit_irprintf("\t.stabs\t\"%s\",%d,0,0,0\n", handle->curr_file,
- N_EINCL);
- be_emit_write_line();
- }
if (fname != handle->main_file) {
be_emit_irprintf("\t.stabs\t\"%s\",%d,0,0,0\n", fname, N_SOL);
be_emit_write_line();
/* Opens a stabs handler */
dbg_handle *be_stabs_open(void) {
- stabs_handle *h = xmalloc(sizeof(*h));
+ stabs_handle *h = XMALLOCZ(stabs_handle);
h->base.ops = &stabs_ops;
- h->cur_ent = NULL;
- h->layout = NULL;
- h->next_type_nr = 0;
h->type_map = pmap_create_ex(64);
- h->main_file = NULL;
- h->curr_file = NULL;
return &h->base;
}