#include <stdio.h>
#include <stdlib.h>
+#include <stdbool.h>
#include <errno.h>
#include <string.h>
#include <assert.h>
#include "ast2firm.h"
#include "adt/error.h"
+#ifndef PREPROCESSOR
#define PREPROCESSOR "cpp"
+#endif
+
+#ifndef LINKER
#define LINKER "gcc"
+#endif
#ifdef _WIN32
/* remap some names */
#define pclose(file) _pclose(file)
#endif /* _WIN32 */
-static int verbose;
+static int verbose;
+static bool do_dump;
static const ir_settings_if_conv_t *if_conv_info = NULL;
+static const backend_params *be_params = NULL;
static void initialize_firm(void)
{
be_opt_register();
firm_init_options(NULL, 0, NULL);
- const backend_params *be_params;
firm_parameter_t params;
memset(¶ms, 0, sizeof(params));
/* initialize backend */
be_params = be_init();
- be_set_debug_retrieve(retrieve_dbg);
+ ir_set_debug_retrieve(retrieve_dbg);
params.arch_op_settings = be_params->arch_op_settings;
if_conv_info = be_params->if_conv_info;
static void dump(ir_graph *irg, const char *suffix)
{
-#if 0
- dump_ir_block_graph(irg, suffix);
-#else
- (void)irg, (void)suffix;
-#endif
+ if(do_dump) {
+ dump_ir_block_graph(irg, suffix);
+ }
}
static void get_output_name(char *buf, size_t buflen, const char *inputname,
{
char buf[4096];
- snprintf(buf, sizeof(buf), PREPROCESSOR " %s -o -",in);
+ snprintf(buf, sizeof(buf), PREPROCESSOR " %s", in);
+
if(verbose) {
puts(buf);
}
optimize_funccalls(0);
- const backend_params *const be_params = be_init();
- create_intrinsic_fkt *const arch_create_intrinsic = be_params->arch_create_intrinsic_fkt;
- void *const create_intrinsic_ctx = be_params->create_intrinsic_ctx;
lwrdw_param_t lwrdw_param = {
1,
1,
def_create_intrinsic_fkt,
NULL
};
- if (arch_create_intrinsic) {
- lwrdw_param.create_intrinsic = arch_create_intrinsic;
- lwrdw_param.ctx = create_intrinsic_ctx;
+ if (be_params->arch_create_intrinsic_fkt) {
+ lwrdw_param.create_intrinsic = be_params->arch_create_intrinsic_fkt;
+ lwrdw_param.ctx = be_params->create_intrinsic_ctx;
}
for(int i = 0; i < get_irp_n_irgs(); ++i) {
ir_graph *irg = get_irp_irg(i);
optimize_graph_df(irg);
- dump(irg, "-localopt");
+ dump(irg, "-01-localopt");
place_code(irg);
- dump(irg, "-place");
+ dump(irg, "-02-place");
optimize_cf(irg);
- dump(irg, "-cf");
+ dump(irg, "-03-cf");
lower_dw_ops(&lwrdw_param);
- dump(irg, "-dw");
+ dump(irg, "-04-dw");
+ optimize_graph_df(irg);
+ dump(irg, "-05-localopt");
+ optimize_cf(irg);
+ dump(irg, "-06-cf");
}
}
init_symbol_table();
init_tokens();
- init_lexer();
init_types();
init_typehash();
+ init_lexer();
init_ast();
init_parser();
init_ast2firm();
mode = PrintAst;
} else if(strcmp(arg, "--print-fluffy") == 0) {
mode = PrintFluffy;
+ } else if(strcmp(arg, "--dump") == 0) {
+ do_dump = true;
} else if(strcmp(arg, "-v") == 0) {
verbose = 1;
+ } else if(arg[0] == '-' && arg[1] == 'f') {
+ const char *opt = &arg[2];
+ if(opt[0] == 0) {
+ ++i;
+ if(i >= argc) {
+ usage(argv[0]);
+ return 1;
+ }
+ opt = argv[i];
+ if(opt[0] == '-') {
+ usage(argv[0]);
+ return 1;
+ }
+ }
+ //firm_option(opt);
+ } else if(arg[0] == '-' && arg[1] == 'b') {
+ const char *opt = &arg[2];
+ if(opt[0] == 0) {
+ ++i;
+ if(i >= argc) {
+ usage(argv[0]);
+ return 1;
+ }
+ opt = argv[i];
+ if(opt[0] == '-') {
+ usage(argv[0]);
+ return 1;
+ }
+ }
+ //firm_be_option(opt);
} else if(arg[0] == '-') {
if (arg[1] == 'D' ||
arg[1] == 'O' ||
- arg[1] == 'f') {
+ arg[1] == 'f' ||
+ strncmp(arg + 1, "std=", 4) == 0) {
fprintf(stderr, "Warning: Ignoring option '%s'\n", arg);
} else {
usage(argv[0]);
exit_ast2firm();
exit_parser();
exit_ast();
+ exit_lexer();
exit_typehash();
exit_types();
- exit_lexer();
exit_tokens();
exit_symbol_table();
return 0;