diff options
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 7f04b7ca261..4f3b4e1543d 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -145,6 +145,22 @@ static void gfc_expand_function (tree); const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER; +/* APPLE LOCAL begin constant cfstrings */ +enum { blabla } c_language; +const char *constant_string_class_name = "die die"; +int flag_next_runtime = 1; +/* APPLE LOCAL end constant cfstrings */ + +/* APPLE LOCAL disable_typechecking_for_spec_flag */ +int disable_typechecking_for_spec_flag = 0; + +/* APPLE LOCAL begin CW asm blocks */ +/* Dummies needed because we use them from cpplib, yuck. */ +int flag_cw_asm_blocks; +int cw_asm_state; +int cw_asm_in_operands; +/* APPLE LOCAL end CW asm blocks */ + /* A list (chain of TREE_LIST nodes) of all LABEL_DECLs in the function that have names. Here so we can clear out their names' definitions at the end of the function. */ @@ -828,6 +844,12 @@ gfc_init_builtin_functions (void) ftype = build_function_type (long_integer_type_node, tmp); gfc_define_builtin ("__builtin_expect", ftype, BUILT_IN_EXPECT, "__builtin_expect", true); + /* APPLE LOCAL begin lno */ + ftype = build_function_type (void_type_node, void_list_node); + gfc_define_builtin ("__builtin_maybe_infinite_loop", ftype, + BUILT_IN_MAYBE_INFINITE_LOOP, "maybe_infinite_loop", + false); + /* APPLE LOCAL end lno */ build_common_builtin_nodes (); targetm.init_builtins (); |