nsz Git - libfirm/blob - ir/common/firm.c

   1
   2 /* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
   3 * All rights reserved.
   4 *
   5 * Authors: Martin Trapp, Christian Schaefer, Goetz Lindenmaier
   6 *
   7 */
   8
   9 /* $Id$ */
  10
  11 #ifdef HAVE_CONFIG_H
  12 # include <config.h>
  13 #endif
  14
  15 # include <stdio.h>
  16 # include "ident_t.h"
  17 # include "firm.h"
  18 # include "mangle.h"
  19 //# include "xp_help.h"
  20 # include "tv_t.h"
  21 /* init functions are not public */
  22 # include "tpop_t.h"
  23 # include "irnode_t.h"
  24 # include "irmode_t.h"
  25 # include "irgraph_t.h"
  26 # include "type_t.h"
  27
  28 void
  29 init_firm (default_initialize_local_variable_func_t *func)
  30 {
  31   /* initialize all ident stuff */
  32   id_init ();
  33   /* create the type kinds. */
  34   init_tpop ();
  35   /* create an obstack and put all tarvals in a pdeq */
  36   init_tarval_1 ();
  37   /* initialize all modes an ir node can consist of */
  38   init_mode ();
  39   /* initialize tarvals, and floating point arithmetic */
  40   init_tarval_2 ();
  41   /* init graph construction */
  42   init_irgraph();
  43   /* kind of obstack initialization */
  44   init_mangle ();
  45   /* initalize all op codes an irnode can consist of */
  46   init_op ();
  47   /* called once for each run of this library */
  48   init_cons (func);
  49   /* Builds a construct allowing to access all information to be constructed
  50      later. */
  51   init_irprog ();
  52   /* Constructs some idents needed. */
  53   init_type();
  54 }