diff options
author | pommicket <pommicket@gmail.com> | 2022-02-17 13:22:13 -0500 |
---|---|---|
committer | pommicket <pommicket@gmail.com> | 2022-02-17 13:22:13 -0500 |
commit | e900dd8d6f2ff7cef66fbd31898d375b71ef53d6 (patch) | |
tree | ae732e8f5d6163acb78355ae4e5ca69d6e0c995e /05/parse.b | |
parent | 6e1158f49aa014b801b171b358c47389e7f9964e (diff) |
procuding a (non-working) executable for tcc
Diffstat (limited to '05/parse.b')
-rw-r--r-- | 05/parse.b | 25 |
1 files changed, 18 insertions, 7 deletions
@@ -344,13 +344,20 @@ function parse_toplevel_declaration ident_list_add(functions_required_stack_space, f_name, curr_function_stack_space) - ; ENABLE/DISABLE PARSING DEBUG OUTPUT: - if G_DEBUG == 0 goto skip_print_statement - print_statement(out0) - :skip_print_statement + debug_puts(.str_parsed) + debug_putsln(f_name) + + ;PARSING DEBUG OUTPUT: + ;if G_DEBUG == 0 goto skip_print_statement + ;print_statement(out0) + ;:skip_print_statement goto parse_tld_ret + :str_parsed + string Parsed + byte 32 + byte 0 :function_no_param_name token_error(base_type, .str_function_no_param_name) :str_function_no_param_name @@ -2127,7 +2134,7 @@ function parse_base_type goto base_type_normal_loop :base_type_flag_long c = flags & PARSETYPE_FLAG_LONG - if c != 0 goto repeated_base_type + ;if c != 0 goto repeated_base_type ; allow "long long" ...and also "long long long" i guess flags |= PARSETYPE_FLAG_LONG goto base_type_normal_loop :base_type_flag_unsigned @@ -3299,9 +3306,13 @@ function parse_expression return out :undeclared_variable ; @NONSTANDARD: C89 allows calling functions without declaring them - token_error(in, .str_undeclared_variable) + print_token_location(in) + puts(.str_undeclared_variable) + putsln(a) + exit(1) :str_undeclared_variable - string Undeclared variable. + string : Undeclared variable: + byte 32 byte 0 :found_local_variable |