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

   1 /* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe
   2 ** All rights reserved.
   3 **
   4 ** Authors: Martin Trapp, Christian Schaefer
   5 **
   6 */
   7
   8 # include <stdio.h>
   9 # include "ident.h"
  10 # include "firm.h"
  11 # include "mangle.h"
  12 # include "xp_help.h"
  13
  14 void
  15 init_firm (void)
  16 {
  17   /* register the character 'I' as variable for ident outputs. */
  18   xprintf_register ('I', ident_print);
  19   /* register the character 'v' as variable for tarval outputs. */
  20   xprintf_register ('v', tarval_print);
  21   /* register the character 'R' as variable for ir node outputs. */
  22   xprintf_register ('R', ir_node_print);
  23   /* initialize all ident stuff */
  24   id_init ();
  25   /* create an obstack and put alle tarvals in a pdeq */
  26   tarval_init_1 ();
  27   /* initialize all modes an ir node can consist of */
  28   init_mode ();
  29   /* initialize tarvals, and floating point arithmetic */
  30   tarval_init_2 ();
  31   /* kind of obstack initialization */
  32   init_mangle ();
  33   /* initalize all op codes an irnode can consist of */
  34   init_op ();
  35   /* called once for each run of this library, empty at this moment!!! */
  36   init_cons ();
  37 }