nsz Git - libfirm/blob - ir/be/bedbgout.c

   1 /*
   2  * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
   3  *
   4  * This file is part of libFirm.
   5  *
   6  * This file may be distributed and/or modified under the terms of the
   7  * GNU General Public License version 2 as published by the Free Software
   8  * Foundation and appearing in the file LICENSE.GPL included in the
   9  * packaging of this file.
  10  *
  11  * Licensees holding valid libFirm Professional Edition licenses may use
  12  * this file in accordance with the libFirm Commercial License.
  13  * Agreement provided with the Software.
  14  *
  15  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
  16  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE.
  18  */
  19
  20 /**
  21  * @file
  22  * @brief   Stabs support.
  23  * @author  Michael Beck
  24  * @date    11.9.2006
  25  * @version $Id: bestabs.c 17143 2008-01-02 20:56:33Z beck $
  26  */
  27 #include "config.h"
  28
  29 #include "be_dbgout_t.h"
  30 #include "bemodule.h"
  31 #include "irtools.h"
  32
  33 static dbg_handle *handle = NULL;
  34
  35 void be_dbg_close(void) {
  36         if (handle->ops->close)
  37                 handle->ops->close(handle);
  38 }
  39
  40 void be_dbg_so(const char *filename) {
  41         if (handle->ops->so)
  42                 handle->ops->so(handle, filename);
  43 }
  44
  45 void be_dbg_main_program(void) {
  46         if (handle->ops->main_program)
  47                 handle->ops->main_program(handle);
  48 }
  49
  50 void be_dbg_method_begin(ir_entity *ent, const be_stack_layout_t *layout) {
  51         if (handle->ops->method_begin)
  52                 handle->ops->method_begin(handle, ent, layout);
  53 }
  54
  55 void be_dbg_method_end(void) {
  56         if (handle->ops->method_end)
  57                 handle->ops->method_end(handle);
  58 }
  59
  60 void be_dbg_types(void) {
  61         if (handle->ops->types)
  62                 handle->ops->types(handle);
  63 }
  64
  65 void be_dbg_variable(ir_entity *ent) {
  66         if (handle->ops->variable)
  67                 handle->ops->variable(handle, ent);
  68 }
  69
  70 void be_dbg_set_dbg_info(dbg_info *dbgi) {
  71         if (handle->ops->set_dbg_info)
  72                 handle->ops->set_dbg_info(handle, dbgi);
  73 }
  74
  75 static be_module_list_entry_t       *dbgout_modules         = NULL;
  76 static be_create_dbgout_module_func  selected_dbgout_module = NULL;
  77
  78 void be_dbg_open(void) {
  79         handle = selected_dbgout_module();
  80 }
  81
  82 void be_register_dbgout_module(const char *name,
  83                                be_create_dbgout_module_func func)
  84 {
  85         if (selected_dbgout_module == NULL)
  86                 selected_dbgout_module = func;
  87         be_add_module_to_list(&dbgout_modules, name, func);
  88 }
  89
  90 static dbg_handle *create_null_dbgout_module(void)
  91 {
  92         static const debug_ops null_ops;
  93         static dbg_handle null_handle = { &null_ops };
  94         return &null_handle;
  95 }
  96
  97 void be_init_dbgout(void) {
  98         lc_opt_entry_t *be_grp = lc_opt_get_grp(firm_opt_get_root(), "be");
  99
 100         be_add_module_list_opt(be_grp, "debuginfo", "debug info format",
 101                                &dbgout_modules, (void**) &selected_dbgout_module);
 102         be_register_dbgout_module("none", create_null_dbgout_module);
 103 }
 104
 105 BE_REGISTER_MODULE_CONSTRUCTOR(be_init_dbgout);