- if(strcmp(arg, "-o") == 0) {
- ++i;
- if(i >= argc) {
- usage(argv[0]);
- return 1;
- }
- outname = argv[i];
- } else if(strcmp(arg, "-c") == 0) {
- mode = CompileAssemble;
- } else if(strcmp(arg, "-S") == 0) {
- mode = Compile;
- } else if(strcmp(arg, "--lextest") == 0) {
- mode = LexTest;
- } else if(strcmp(arg, "--print-ast") == 0) {
- mode = PrintAst;
- } else if(strcmp(arg, "--print-fluffy") == 0) {
- mode = PrintFluffy;
- } else if(strcmp(arg, "--dump") == 0) {
- do_dump = true;
- } else if(strcmp(arg, "--dump-function") == 0) {
- ++i;
- if(i >= argc) {
- usage(argv[0]);
- return 1;
- }
- dumpfunction = argv[i];
- mode = CompileDump;
- } 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;
+ if(arg[0] != '-')
+ continue;
+
+ const char *option = &arg[1];
+ if(option[0] == 'O') {
+ sscanf(&option[1], "%d", &opt_level);
+ }
+ }
+
+ /* apply optimisation level */
+ switch(opt_level) {
+ case 0:
+ firm_option("no-opt");
+ break;
+ case 1:
+ firm_option("no-inline");
+ break;
+ default:
+ case 4:
+ firm_option("strict-aliasing");
+ /* fallthrough */
+ case 3:
+ firm_option("cond-eval");
+ firm_option("if-conv");
+ /* fallthrough */
+ case 2:
+ firm_option("inline");
+ firm_option("deconv");
+ firm_be_option("omitfp");
+ break;
+ }
+
+ /* parse rest of options */
+ bool help_displayed = false;
+ bool argument_errors = false;
+ for(int i = 1; i < argc; ++i) {
+ const char *arg = argv[i];
+ if(arg[0] == '-') {
+ /* an option */
+ const char *option = &arg[1];
+ if(option[0] == 'o') {
+ GET_ARG_AFTER(outname, "-o");
+ } else if(option[0] == 'g') {
+ firm_be_option("stabs=yes");
+ firm_be_option("omitfp=no");
+ firm_be_option("ia32-nooptcc=yes");
+ } else if(SINGLE_OPTION('c')) {
+ mode = CompileAssemble;
+ } else if(SINGLE_OPTION('S')) {
+ mode = Compile;
+ } else if(option[0] == 'O') {
+ continue;
+ } else if(option[0] == 'I') {
+ const char *opt;
+ GET_ARG_AFTER(opt, "-I");
+ obstack_printf(&cppflags_obst, " -I%s", opt);
+ } else if(option[0] == 'D') {
+ const char *opt;
+ GET_ARG_AFTER(opt, "-D");
+ obstack_printf(&cppflags_obst, " -D%s", opt);
+ } else if(option[0] == 'U') {
+ const char *opt;
+ GET_ARG_AFTER(opt, "-U");
+ obstack_printf(&cppflags_obst, " -U%s", opt);
+ } else if(option[0] == 'l') {
+ const char *opt;
+ GET_ARG_AFTER(opt, "-l");
+ obstack_printf(&ldflags_obst, " -l%s", opt);
+ } else if(option[0] == 'L') {
+ const char *opt;
+ GET_ARG_AFTER(opt, "-L");
+ obstack_printf(&ldflags_obst, " -L%s", opt);
+ } else if(SINGLE_OPTION('v')) {
+ verbose = 1;
+ } else if(SINGLE_OPTION('w')) {
+ inhibit_all_warnings = true;
+ } else if(option[0] == 'f') {
+ const char *opt;
+ GET_ARG_AFTER(opt, "-f");
+
+ if(strcmp(opt, "syntax-only") == 0) {
+ mode = ParseOnly;
+ } else if(strcmp(opt, "omit-frame-pointer") == 0) {
+ firm_be_option("omitfp");
+ } else if(strcmp(opt, "no-omit-frame-pointer") == 0) {
+ firm_be_option("omitfp=no");
+ } else {
+ int res = firm_option(opt);
+ if (res == 0) {
+ fprintf(stderr, "error: unknown Firm option '-f %s'\n",
+ opt);
+ argument_errors = true;
+ continue;
+ } else if (res == -1) {
+ help_displayed = true;
+ }