Home
last modified time | relevance | path

Searched refs:gfc_source_file (Results 1 – 20 of 20) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Doptions.cc143 gfc_source_file = NULL; in gfc_init_options()
325 gfc_source_file = gfc_read_orig_filename (filename, &canon_source_file); in gfc_post_options()
326 if (gfc_source_file == NULL) in gfc_post_options()
327 gfc_source_file = filename; in gfc_post_options()
329 *pfilename = gfc_source_file; in gfc_post_options()
332 gfc_source_file = filename; in gfc_post_options()
335 canon_source_file = gfc_source_file; in gfc_post_options()
350 bool warn = gfc_option.flag_preprocessed && gfc_source_file != filename; in gfc_post_options()
356 if (canon_source_file != gfc_source_file) in gfc_post_options()
H A Dscanner.cc71 const char *gfc_source_file; variable
609 (*debug_hooks->start_source_file) (0, gfc_source_file); in gfc_start_source_files()
2774 gfc_cpp_preprocess (gfc_source_file); in gfc_new_file()
2776 load_file (gfc_cpp_temporary_file (), gfc_source_file, true); in gfc_new_file()
2779 load_file (gfc_source_file, NULL, true); in gfc_new_file()
H A Dcpp.cc596 if (!cpp_read_main_file (cpp_in, gfc_source_file)) in gfc_cpp_init_0()
H A DChangeLog-20051859 (gfc_source_file): Make 'const char *'.
1860 * f95-lang.c (gfc_init): Use gfc_source_file instead of
1865 * options.c (gfc_init_options): Initialize gfc_source_file instead
1869 (gfc_post_options): Set gfc_source_file. Determine source form.
1871 * scanner.c (gfc_source_file): Constify.
1877 gfc_source_file, don't determine source form.
1878 * trans-const.c (gfc_init_constants): Use gfc_source_file instead
H A Df95-lang.cc248 linemap_add (line_table, LC_ENTER, false, gfc_source_file, 1); in gfc_init()
H A DChangeLog-20042325 (gfc_current_form, gfc_source_file): New global variables.
2328 * module.c (gfc_dump_module): Use gfc_source_file when printing
2335 gfc_current_locus1, gfc_source_file): New global variables.
2356 gfc_source_form and gfc_source_file where appropriate.
H A Dtrans.cc576 gfc_source_file, LOCATION_LINE (input_location) + 1); in trans_runtime_error_vararg()
H A Dgfortran.h3208 extern const char *gfc_source_file;
H A Ddump-parse-tree.cc3557 gfc_source_file, pkgversion_string, version_string); in gfc_dump_external_c_prototypes()
H A Dparse.cc3067 gfc_error ("Unexpected end of file in %qs", gfc_source_file); in unexpected_eof()
H A Dmodule.cc6501 MOD_VERSION, lbasename (gfc_source_file)); in dump_module()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Doptions.c143 gfc_source_file = NULL; in gfc_init_options()
316 gfc_source_file = gfc_read_orig_filename (filename, &canon_source_file); in gfc_post_options()
317 if (gfc_source_file == NULL) in gfc_post_options()
318 gfc_source_file = filename; in gfc_post_options()
320 *pfilename = gfc_source_file; in gfc_post_options()
323 gfc_source_file = filename; in gfc_post_options()
326 canon_source_file = gfc_source_file; in gfc_post_options()
344 if (canon_source_file != gfc_source_file) in gfc_post_options()
H A Dscanner.c70 const char *gfc_source_file; variable
561 (*debug_hooks->start_source_file) (0, gfc_source_file); in gfc_start_source_files()
2742 result = gfc_cpp_preprocess (gfc_source_file); in gfc_new_file()
2744 result = load_file (gfc_cpp_temporary_file (), gfc_source_file, true); in gfc_new_file()
2747 result = load_file (gfc_source_file, NULL, true); in gfc_new_file()
H A Df95-lang.c242 linemap_add (line_table, LC_ENTER, false, gfc_source_file, 1); in gfc_init()
257 fatal_error (input_location, "cannot open input file: %s", gfc_source_file); in gfc_init()
H A Dcpp.c565 if (!cpp_read_main_file (cpp_in, gfc_source_file)) in gfc_cpp_init_0()
H A Dtrans.c502 gfc_source_file, LOCATION_LINE (input_location) + 1); in trans_runtime_error_vararg()
H A Dgfortran.h2923 extern const char *gfc_source_file;
H A Ddump-parse-tree.c3223 gfc_source_file, pkgversion_string, version_string); in gfc_dump_external_c_prototypes()
H A Dparse.c2817 gfc_error ("Unexpected end of file in %qs", gfc_source_file); in unexpected_eof()
H A Dmodule.c6290 MOD_VERSION, lbasename (gfc_source_file)); in dump_module()