1 /* Copyright (C) 2008-2017 Free Software Foundation, Inc.
3 This file is part of GCC.
5 GCC is free software; you can redistribute it and/or modify it under
6 the terms of the GNU General Public License as published by the Free
7 Software Foundation; either version 3, or (at your option) any later
10 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or
12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 You should have received a copy of the GNU General Public License
16 along with GCC; see the file COPYING3. If not see
17 <http://www.gnu.org/licenses/>. */
21 #include "coretypes.h"
24 #include "diagnostic.h"
29 #include "../../libcpp/internal.h"
32 #include "cppbuiltin.h"
35 #ifndef TARGET_SYSTEM_ROOT
36 # define TARGET_SYSTEM_ROOT NULL
39 #ifndef TARGET_CPU_CPP_BUILTINS
40 # define TARGET_CPU_CPP_BUILTINS()
43 #ifndef TARGET_OS_CPP_BUILTINS
44 # define TARGET_OS_CPP_BUILTINS()
47 #ifndef TARGET_OBJFMT_CPP_BUILTINS
48 # define TARGET_OBJFMT_CPP_BUILTINS()
52 /* Holds switches parsed by gfc_cpp_handle_option (), but whose
53 handling is deferred to gfc_cpp_init (). */
59 gfc_cpp_deferred_opt_t
;
62 /* Defined and undefined macros being queued for output with -dU at
64 typedef struct gfc_cpp_macro_queue
66 struct gfc_cpp_macro_queue
*next
; /* Next macro in the list. */
67 char *macro
; /* The name of the macro if not
68 defined, the full definition if
70 } gfc_cpp_macro_queue
;
71 static gfc_cpp_macro_queue
*cpp_define_queue
, *cpp_undefine_queue
;
73 struct gfc_cpp_option_data
75 /* Argument of -cpp, implied by SPEC;
76 if NULL, preprocessing disabled. */
77 const char *temporary_filename
;
79 const char *output_filename
; /* -o <arg> */
80 int preprocess_only
; /* -E */
81 int discard_comments
; /* -C */
82 int discard_comments_in_macro_exp
; /* -CC */
83 int print_include_names
; /* -H */
84 int no_line_commands
; /* -P */
85 char dump_macros
; /* -d[DMNU] */
86 int dump_includes
; /* -dI */
87 int working_directory
; /* -fworking-directory */
88 int no_predefined
; /* -undef */
89 int standard_include_paths
; /* -nostdinc */
92 int deps_skip_system
; /* -MM */
93 const char *deps_filename
; /* -M[M]D */
94 const char *deps_filename_user
; /* -MF <arg> */
95 int deps_missing_are_generated
; /* -MG */
96 int deps_phony
; /* -MP */
97 int warn_date_time
; /* -Wdate-time */
99 const char *multilib
; /* -imultilib <dir> */
100 const char *prefix
; /* -iprefix <dir> */
101 const char *sysroot
; /* -isysroot <dir> */
103 /* Options whose handling needs to be deferred until the
104 appropriate cpp-objects are created:
108 gfc_cpp_deferred_opt_t
*deferred_opt
;
109 int deferred_opt_count
;
113 /* Structures used with libcpp: */
114 static cpp_options
*cpp_option
= NULL
;
115 static cpp_reader
*cpp_in
= NULL
;
117 /* Encapsulates state used to convert a stream of cpp-tokens into
121 FILE *outf
; /* Stream to write to. */
122 const cpp_token
*prev
; /* Previous token. */
123 const cpp_token
*source
; /* Source token for spacing. */
124 int src_line
; /* Line number currently being written. */
125 unsigned char printed
; /* Nonzero if something output at line. */
126 bool first_time
; /* cb_file_change hasn't been called yet. */
129 /* General output routines. */
130 static void scan_translation_unit (cpp_reader
*);
131 static void scan_translation_unit_trad (cpp_reader
*);
133 /* Callback routines for the parser. Most of these are active only
134 in specific modes. */
135 static void cb_file_change (cpp_reader
*, const line_map_ordinary
*);
136 static void cb_line_change (cpp_reader
*, const cpp_token
*, int);
137 static void cb_define (cpp_reader
*, source_location
, cpp_hashnode
*);
138 static void cb_undef (cpp_reader
*, source_location
, cpp_hashnode
*);
139 static void cb_def_pragma (cpp_reader
*, source_location
);
140 static void cb_include (cpp_reader
*, source_location
, const unsigned char *,
141 const char *, int, const cpp_token
**);
142 static void cb_ident (cpp_reader
*, source_location
, const cpp_string
*);
143 static void cb_used_define (cpp_reader
*, source_location
, cpp_hashnode
*);
144 static void cb_used_undef (cpp_reader
*, source_location
, cpp_hashnode
*);
145 static bool cb_cpp_error (cpp_reader
*, int, int, rich_location
*,
146 const char *, va_list *)
147 ATTRIBUTE_GCC_DIAG(5,0);
148 void pp_dir_change (cpp_reader
*, const char *);
150 static int dump_macro (cpp_reader
*, cpp_hashnode
*, void *);
151 static void dump_queued_macros (cpp_reader
*);
155 cpp_define_builtins (cpp_reader
*pfile
)
157 /* Initialize CPP built-ins; '1' corresponds to 'flag_hosted'
158 in C, defines __STDC_HOSTED__?! */
159 cpp_init_builtins (pfile
, 0);
161 /* Initialize GFORTRAN specific builtins.
162 These are documented. */
163 define_language_independent_builtin_macros (pfile
);
164 cpp_define (pfile
, "__GFORTRAN__=1");
165 cpp_define (pfile
, "_LANGUAGE_FORTRAN=1");
168 cpp_define (pfile
, "_OPENACC=201306");
171 cpp_define (pfile
, "_OPENMP=201511");
173 /* The defines below are necessary for the TARGET_* macros.
175 FIXME: Note that builtin_define_std() actually is a function
176 in c-cppbuiltin.c which uses flags undefined for Fortran.
177 Let's skip this for now. If needed, one needs to look into it
180 # define builtin_define(TXT) cpp_define (pfile, TXT)
181 # define builtin_define_std(TXT)
182 # define builtin_assert(TXT) cpp_assert (pfile, TXT)
184 /* FIXME: Pandora's Box
185 Using the macros below results in multiple breakages:
186 - mingw will fail to compile this file as dependent macros
187 assume to be used in c-cppbuiltin.c only. Further, they use
188 flags only valid/defined in C (same as noted above).
189 [config/i386/mingw32.h, config/i386/cygming.h]
190 - other platforms (not as popular) break similarly
191 [grep for 'builtin_define_with_int_value' in gcc/config/]
193 TARGET_CPU_CPP_BUILTINS ();
194 TARGET_OS_CPP_BUILTINS ();
195 TARGET_OBJFMT_CPP_BUILTINS (); */
197 #undef builtin_define
198 #undef builtin_define_std
199 #undef builtin_assert
203 gfc_cpp_enabled (void)
205 return gfc_cpp_option
.temporary_filename
!= NULL
;
209 gfc_cpp_preprocess_only (void)
211 return gfc_cpp_option
.preprocess_only
;
215 gfc_cpp_makedep (void)
217 return gfc_cpp_option
.deps
;
221 gfc_cpp_add_dep (const char *name
, bool system
)
223 if (!gfc_cpp_option
.deps_skip_system
|| !system
)
224 deps_add_dep (cpp_get_deps (cpp_in
), name
);
228 gfc_cpp_add_target (const char *name
)
230 deps_add_target (cpp_get_deps (cpp_in
), name
, 0);
235 gfc_cpp_temporary_file (void)
237 return gfc_cpp_option
.temporary_filename
;
241 gfc_cpp_init_options (unsigned int decoded_options_count
,
242 struct cl_decoded_option
*decoded_options ATTRIBUTE_UNUSED
)
244 /* Do not create any objects from libcpp here. If no
245 preprocessing is requested, this would be wasted
248 See gfc_cpp_post_options() instead. */
250 gfc_cpp_option
.temporary_filename
= NULL
;
251 gfc_cpp_option
.output_filename
= NULL
;
252 gfc_cpp_option
.preprocess_only
= 0;
253 gfc_cpp_option
.discard_comments
= 1;
254 gfc_cpp_option
.discard_comments_in_macro_exp
= 1;
255 gfc_cpp_option
.print_include_names
= 0;
256 gfc_cpp_option
.no_line_commands
= 0;
257 gfc_cpp_option
.dump_macros
= '\0';
258 gfc_cpp_option
.dump_includes
= 0;
259 gfc_cpp_option
.working_directory
= -1;
260 gfc_cpp_option
.no_predefined
= 0;
261 gfc_cpp_option
.standard_include_paths
= 1;
262 gfc_cpp_option
.verbose
= 0;
263 gfc_cpp_option
.warn_date_time
= 0;
264 gfc_cpp_option
.deps
= 0;
265 gfc_cpp_option
.deps_skip_system
= 0;
266 gfc_cpp_option
.deps_phony
= 0;
267 gfc_cpp_option
.deps_missing_are_generated
= 0;
268 gfc_cpp_option
.deps_filename
= NULL
;
269 gfc_cpp_option
.deps_filename_user
= NULL
;
271 gfc_cpp_option
.multilib
= NULL
;
272 gfc_cpp_option
.prefix
= NULL
;
273 gfc_cpp_option
.sysroot
= TARGET_SYSTEM_ROOT
;
275 gfc_cpp_option
.deferred_opt
= XNEWVEC (gfc_cpp_deferred_opt_t
,
276 decoded_options_count
);
277 gfc_cpp_option
.deferred_opt_count
= 0;
281 gfc_cpp_handle_option (size_t scode
, const char *arg
, int value ATTRIBUTE_UNUSED
)
284 enum opt_code code
= (enum opt_code
) scode
;
293 gfc_cpp_option
.temporary_filename
= arg
;
297 gfc_cpp_option
.temporary_filename
= 0L;
308 gfc_cpp_option
.dump_macros
= *arg
;
312 gfc_cpp_option
.dump_includes
= 1;
317 case OPT_fworking_directory
:
318 gfc_cpp_option
.working_directory
= value
;
322 gfc_cpp_add_include_path_after (xstrdup(arg
), true);
326 gfc_cpp_option
.multilib
= arg
;
330 gfc_cpp_option
.prefix
= arg
;
334 gfc_cpp_option
.sysroot
= arg
;
339 gfc_cpp_add_include_path (xstrdup(arg
), true);
343 gfc_cpp_option
.standard_include_paths
= value
;
347 if (!gfc_cpp_option
.output_filename
)
348 gfc_cpp_option
.output_filename
= arg
;
350 gfc_fatal_error ("output filename specified twice");
354 gfc_cpp_option
.no_predefined
= value
;
358 gfc_cpp_option
.verbose
= value
;
362 gfc_cpp_option
.warn_date_time
= value
;
368 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].code
= code
;
369 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].arg
= arg
;
370 gfc_cpp_option
.deferred_opt_count
++;
374 gfc_cpp_option
.discard_comments
= 0;
378 gfc_cpp_option
.discard_comments
= 0;
379 gfc_cpp_option
.discard_comments_in_macro_exp
= 0;
383 gfc_cpp_option
.preprocess_only
= 1;
387 gfc_cpp_option
.print_include_names
= 1;
391 gfc_cpp_option
.deps_skip_system
= 1;
395 gfc_cpp_option
.deps
= 1;
399 gfc_cpp_option
.deps_skip_system
= 1;
403 gfc_cpp_option
.deps
= 1;
404 gfc_cpp_option
.deps_filename
= arg
;
408 /* If specified multiple times, last one wins. */
409 gfc_cpp_option
.deps_filename_user
= arg
;
413 gfc_cpp_option
.deps_missing_are_generated
= 1;
417 gfc_cpp_option
.deps_phony
= 1;
422 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].code
= code
;
423 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].arg
= arg
;
424 gfc_cpp_option
.deferred_opt_count
++;
428 gfc_cpp_option
.no_line_commands
= 1;
437 gfc_cpp_post_options (void)
439 /* Any preprocessing-related option without '-cpp' is considered
441 if (!gfc_cpp_enabled ()
442 && (gfc_cpp_preprocess_only ()
443 || gfc_cpp_makedep ()
444 || !gfc_cpp_option
.discard_comments
445 || !gfc_cpp_option
.discard_comments_in_macro_exp
446 || gfc_cpp_option
.print_include_names
447 || gfc_cpp_option
.no_line_commands
448 || gfc_cpp_option
.dump_macros
449 || gfc_cpp_option
.dump_includes
))
450 gfc_fatal_error ("To enable preprocessing, use %<-cpp%>");
452 if (!gfc_cpp_enabled ())
455 cpp_in
= cpp_create_reader (CLK_GNUC89
, NULL
, line_table
);
458 /* The cpp_options-structure defines far more flags than those set here.
459 If any other is implemented, see c-opt.c (sanitize_cpp_opts) for
460 inter-option dependencies that may need to be enforced. */
461 cpp_option
= cpp_get_options (cpp_in
);
462 gcc_assert (cpp_option
);
464 /* TODO: allow non-traditional modes, e.g. by -cpp-std=...? */
465 cpp_option
->traditional
= 1;
466 cpp_option
->cplusplus_comments
= 0;
468 cpp_option
->cpp_pedantic
= pedantic
;
470 cpp_option
->dollars_in_ident
= flag_dollar_ok
;
471 cpp_option
->discard_comments
= gfc_cpp_option
.discard_comments
;
472 cpp_option
->discard_comments_in_macro_exp
= gfc_cpp_option
.discard_comments_in_macro_exp
;
473 cpp_option
->print_include_names
= gfc_cpp_option
.print_include_names
;
474 cpp_option
->preprocessed
= gfc_option
.flag_preprocessed
;
475 cpp_option
->warn_date_time
= gfc_cpp_option
.warn_date_time
;
477 if (gfc_cpp_makedep ())
479 cpp_option
->deps
.style
= DEPS_USER
;
480 cpp_option
->deps
.phony_targets
= gfc_cpp_option
.deps_phony
;
481 cpp_option
->deps
.missing_files
= gfc_cpp_option
.deps_missing_are_generated
;
483 /* -MF <arg> overrides -M[M]D. */
484 if (gfc_cpp_option
.deps_filename_user
)
485 gfc_cpp_option
.deps_filename
= gfc_cpp_option
.deps_filename_user
;
488 if (gfc_cpp_option
.working_directory
== -1)
489 gfc_cpp_option
.working_directory
= (debug_info_level
!= DINFO_LEVEL_NONE
);
491 cpp_post_options (cpp_in
);
493 gfc_cpp_register_include_paths ();
498 gfc_cpp_init_0 (void)
500 struct cpp_callbacks
*cb
;
502 cb
= cpp_get_callbacks (cpp_in
);
503 cb
->file_change
= cb_file_change
;
504 cb
->line_change
= cb_line_change
;
505 cb
->ident
= cb_ident
;
506 cb
->def_pragma
= cb_def_pragma
;
507 cb
->error
= cb_cpp_error
;
509 if (gfc_cpp_option
.dump_includes
)
510 cb
->include
= cb_include
;
512 if ((gfc_cpp_option
.dump_macros
== 'D')
513 || (gfc_cpp_option
.dump_macros
== 'N'))
515 cb
->define
= cb_define
;
516 cb
->undef
= cb_undef
;
519 if (gfc_cpp_option
.dump_macros
== 'U')
521 cb
->before_define
= dump_queued_macros
;
522 cb
->used_define
= cb_used_define
;
523 cb
->used_undef
= cb_used_undef
;
526 /* Initialize the print structure. Setting print.src_line to -1 here is
527 a trick to guarantee that the first token of the file will cause
528 a linemarker to be output by maybe_print_line. */
532 print
.first_time
= 1;
534 if (gfc_cpp_preprocess_only ())
536 if (gfc_cpp_option
.output_filename
)
538 /* This needs cheating: with "-E -o <file>", the user wants the
539 preprocessed output in <file>. However, if nothing is done
540 about it <file> is also used for assembler output. Hence, it
541 is necessary to redirect assembler output (actually nothing
542 as -E implies -fsyntax-only) to another file, otherwise the
543 output from preprocessing is lost. */
544 asm_file_name
= gfc_cpp_option
.temporary_filename
;
546 print
.outf
= fopen (gfc_cpp_option
.output_filename
, "w");
547 if (print
.outf
== NULL
)
548 gfc_fatal_error ("opening output file %qs: %s",
549 gfc_cpp_option
.output_filename
,
557 print
.outf
= fopen (gfc_cpp_option
.temporary_filename
, "w");
558 if (print
.outf
== NULL
)
559 gfc_fatal_error ("opening output file %qs: %s",
560 gfc_cpp_option
.temporary_filename
, xstrerror (errno
));
564 if (!cpp_read_main_file (cpp_in
, gfc_source_file
))
573 if (gfc_option
.flag_preprocessed
)
576 cpp_change_file (cpp_in
, LC_RENAME
, _("<built-in>"));
577 if (!gfc_cpp_option
.no_predefined
)
579 /* Make sure all of the builtins about to be declared have
580 BUILTINS_LOCATION has their source_location. */
581 source_location builtins_loc
= BUILTINS_LOCATION
;
582 cpp_force_token_locations (cpp_in
, &builtins_loc
);
584 cpp_define_builtins (cpp_in
);
586 cpp_stop_forcing_token_locations (cpp_in
);
589 /* Handle deferred options from command-line. */
590 cpp_change_file (cpp_in
, LC_RENAME
, _("<command-line>"));
592 for (i
= 0; i
< gfc_cpp_option
.deferred_opt_count
; i
++)
594 gfc_cpp_deferred_opt_t
*opt
= &gfc_cpp_option
.deferred_opt
[i
];
596 if (opt
->code
== OPT_D
)
597 cpp_define (cpp_in
, opt
->arg
);
598 else if (opt
->code
== OPT_U
)
599 cpp_undef (cpp_in
, opt
->arg
);
600 else if (opt
->code
== OPT_A
)
602 if (opt
->arg
[0] == '-')
603 cpp_unassert (cpp_in
, opt
->arg
+ 1);
605 cpp_assert (cpp_in
, opt
->arg
);
607 else if (opt
->code
== OPT_MT
|| opt
->code
== OPT_MQ
)
608 deps_add_target (cpp_get_deps (cpp_in
),
609 opt
->arg
, opt
->code
== OPT_MQ
);
612 if (gfc_cpp_option
.working_directory
613 && gfc_cpp_option
.preprocess_only
&& !gfc_cpp_option
.no_line_commands
)
614 pp_dir_change (cpp_in
, get_src_pwd ());
618 gfc_cpp_preprocess (const char *source_file
)
620 if (!gfc_cpp_enabled ())
623 cpp_change_file (cpp_in
, LC_RENAME
, source_file
);
625 if (cpp_option
->traditional
)
626 scan_translation_unit_trad (cpp_in
);
628 scan_translation_unit (cpp_in
);
630 /* -dM command line option. */
631 if (gfc_cpp_preprocess_only () &&
632 gfc_cpp_option
.dump_macros
== 'M')
634 putc ('\n', print
.outf
);
635 cpp_forall_identifiers (cpp_in
, dump_macro
, NULL
);
638 putc ('\n', print
.outf
);
640 if (!gfc_cpp_preprocess_only ()
641 || (gfc_cpp_preprocess_only () && gfc_cpp_option
.output_filename
))
650 if (!gfc_cpp_enabled ())
655 if (gfc_cpp_makedep ())
657 if (gfc_cpp_option
.deps_filename
)
659 FILE *f
= fopen (gfc_cpp_option
.deps_filename
, "w");
662 cpp_finish (cpp_in
, f
);
666 gfc_fatal_error ("opening output file %qs: %s",
667 gfc_cpp_option
.deps_filename
,
671 cpp_finish (cpp_in
, stdout
);
674 cpp_undef_all (cpp_in
);
675 cpp_clear_file_cache (cpp_in
);
678 /* PATH must be malloc-ed and NULL-terminated. */
680 gfc_cpp_add_include_path (char *path
, bool user_supplied
)
682 /* CHAIN sets cpp_dir->sysp which differs from 0 if PATH is a system
683 include path. Fortran does not define any system include paths. */
686 add_path (path
, BRACKET
, cxx_aware
, user_supplied
);
690 gfc_cpp_add_include_path_after (char *path
, bool user_supplied
)
693 add_path (path
, AFTER
, cxx_aware
, user_supplied
);
697 gfc_cpp_register_include_paths (void)
700 register_include_chains (cpp_in
, gfc_cpp_option
.sysroot
,
701 gfc_cpp_option
.prefix
, gfc_cpp_option
.multilib
,
702 gfc_cpp_option
.standard_include_paths
, cxx_stdinc
,
703 gfc_cpp_option
.verbose
);
708 static void scan_translation_unit_trad (cpp_reader
*);
709 static void account_for_newlines (const unsigned char *, size_t);
710 static int dump_macro (cpp_reader
*, cpp_hashnode
*, void *);
712 static void print_line (source_location
, const char *);
713 static void maybe_print_line (source_location
);
716 /* Writes out the preprocessed file, handling spacing and paste
719 scan_translation_unit (cpp_reader
*pfile
)
721 bool avoid_paste
= false;
726 const cpp_token
*token
= cpp_get_token (pfile
);
728 if (token
->type
== CPP_PADDING
)
731 if (print
.source
== NULL
732 || (!(print
.source
->flags
& PREV_WHITE
)
733 && token
->val
.source
== NULL
))
734 print
.source
= token
->val
.source
;
738 if (token
->type
== CPP_EOF
)
741 /* Subtle logic to output a space if and only if necessary. */
744 if (print
.source
== NULL
)
745 print
.source
= token
;
746 if (print
.source
->flags
& PREV_WHITE
748 && cpp_avoid_paste (pfile
, print
.prev
, token
))
749 || (print
.prev
== NULL
&& token
->type
== CPP_HASH
))
750 putc (' ', print
.outf
);
752 else if (token
->flags
& PREV_WHITE
)
753 putc (' ', print
.outf
);
758 cpp_output_token (token
, print
.outf
);
760 if (token
->type
== CPP_COMMENT
)
761 account_for_newlines (token
->val
.str
.text
, token
->val
.str
.len
);
765 /* Adjust print.src_line for newlines embedded in output. */
767 account_for_newlines (const unsigned char *str
, size_t len
)
774 /* Writes out a traditionally preprocessed file. */
776 scan_translation_unit_trad (cpp_reader
*pfile
)
778 while (_cpp_read_logical_line_trad (pfile
))
780 size_t len
= pfile
->out
.cur
- pfile
->out
.base
;
781 maybe_print_line (pfile
->out
.first_line
);
782 fwrite (pfile
->out
.base
, 1, len
, print
.outf
);
784 if (!CPP_OPTION (pfile
, discard_comments
))
785 account_for_newlines (pfile
->out
.base
, len
);
789 /* If the token read on logical line LINE needs to be output on a
790 different line to the current one, output the required newlines or
793 maybe_print_line (source_location src_loc
)
795 const line_map_ordinary
*map
796 = linemap_check_ordinary (linemap_lookup (line_table
, src_loc
));
797 int src_line
= SOURCE_LINE (map
, src_loc
);
799 /* End the previous line of text. */
802 putc ('\n', print
.outf
);
807 if (src_line
>= print
.src_line
&& src_line
< print
.src_line
+ 8)
809 while (src_line
> print
.src_line
)
811 putc ('\n', print
.outf
);
816 print_line (src_loc
, "");
819 /* Output a line marker for logical line LINE. Special flags are "1"
820 or "2" indicating entering or leaving a file. */
822 print_line (source_location src_loc
, const char *special_flags
)
824 /* End any previous line of text. */
826 putc ('\n', print
.outf
);
829 if (!gfc_cpp_option
.no_line_commands
)
831 expanded_location loc
;
833 unsigned char *to_file_quoted
;
837 loc
= expand_location (src_loc
);
838 to_file_len
= strlen (loc
.file
);
839 to_file_quoted
= (unsigned char *) alloca (to_file_len
* 4 + 1);
841 print
.src_line
= loc
.line
;
843 /* cpp_quote_string does not nul-terminate, so we have to do it
845 p
= cpp_quote_string (to_file_quoted
,
846 (const unsigned char *) loc
.file
, to_file_len
);
848 fprintf (print
.outf
, "# %u \"%s\"%s",
849 print
.src_line
== 0 ? 1 : print
.src_line
,
850 to_file_quoted
, special_flags
);
852 sysp
= in_system_header_at (src_loc
);
854 fputs (" 3 4", print
.outf
);
856 fputs (" 3", print
.outf
);
858 putc ('\n', print
.outf
);
863 cb_file_change (cpp_reader
* ARG_UNUSED (pfile
), const line_map_ordinary
*map
)
865 const char *flags
= "";
867 if (gfc_cpp_option
.no_line_commands
)
873 if (print
.first_time
)
875 /* Avoid printing foo.i when the main file is foo.c. */
876 if (!cpp_get_options (cpp_in
)->preprocessed
)
877 print_line (map
->start_location
, flags
);
878 print
.first_time
= 0;
882 /* Bring current file to correct line when entering a new file. */
883 if (map
->reason
== LC_ENTER
)
885 const line_map_ordinary
*from
= INCLUDED_FROM (line_table
, map
);
886 maybe_print_line (LAST_SOURCE_LINE_LOCATION (from
));
888 if (map
->reason
== LC_ENTER
)
890 else if (map
->reason
== LC_LEAVE
)
892 print_line (map
->start_location
, flags
);
897 /* Called when a line of output is started. TOKEN is the first token
898 of the line, and at end of file will be CPP_EOF. */
900 cb_line_change (cpp_reader
*pfile
, const cpp_token
*token
,
903 source_location src_loc
= token
->src_loc
;
905 if (token
->type
== CPP_EOF
|| parsing_args
)
908 maybe_print_line (src_loc
);
912 /* Supply enough spaces to put this token in its original column,
913 one space per column greater than 2, since scan_translation_unit
914 will provide a space if PREV_WHITE. Don't bother trying to
915 reconstruct tabs; we can't get it right in general, and nothing
916 ought to care. Some things do care; the fault lies with them. */
917 if (!CPP_OPTION (pfile
, traditional
))
919 const line_map_ordinary
*map
920 = linemap_check_ordinary (linemap_lookup (line_table
, src_loc
));
921 int spaces
= SOURCE_COLUMN (map
, src_loc
) - 2;
924 while (-- spaces
>= 0)
925 putc (' ', print
.outf
);
930 cb_ident (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
931 const cpp_string
*str
)
933 maybe_print_line (line
);
934 fprintf (print
.outf
, "#ident %s\n", str
->text
);
939 cb_define (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
940 cpp_hashnode
*node ATTRIBUTE_UNUSED
)
942 maybe_print_line (line
);
943 fputs ("#define ", print
.outf
);
945 /* 'D' is whole definition; 'N' is name only. */
946 if (gfc_cpp_option
.dump_macros
== 'D')
947 fputs ((const char *) cpp_macro_definition (pfile
, node
),
950 fputs ((const char *) NODE_NAME (node
), print
.outf
);
952 putc ('\n', print
.outf
);
953 if (LOCATION_LINE (line
) != 0)
958 cb_undef (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
961 maybe_print_line (line
);
962 fprintf (print
.outf
, "#undef %s\n", NODE_NAME (node
));
967 cb_include (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
968 const unsigned char *dir
, const char *header
, int angle_brackets
,
969 const cpp_token
**comments
)
971 maybe_print_line (line
);
973 fprintf (print
.outf
, "#%s <%s>", dir
, header
);
975 fprintf (print
.outf
, "#%s \"%s\"", dir
, header
);
977 if (comments
!= NULL
)
979 while (*comments
!= NULL
)
981 if ((*comments
)->flags
& PREV_WHITE
)
982 putc (' ', print
.outf
);
983 cpp_output_token (*comments
, print
.outf
);
988 putc ('\n', print
.outf
);
992 /* Dump out the hash table. */
994 dump_macro (cpp_reader
*pfile
, cpp_hashnode
*node
, void *v ATTRIBUTE_UNUSED
)
996 if (node
->type
== NT_MACRO
&& !(node
->flags
& NODE_BUILTIN
))
998 fputs ("#define ", print
.outf
);
999 fputs ((const char *) cpp_macro_definition (pfile
, node
),
1001 putc ('\n', print
.outf
);
1009 cb_used_define (cpp_reader
*pfile
, source_location line ATTRIBUTE_UNUSED
,
1012 gfc_cpp_macro_queue
*q
;
1013 q
= XNEW (gfc_cpp_macro_queue
);
1014 q
->macro
= xstrdup ((const char *) cpp_macro_definition (pfile
, node
));
1015 q
->next
= cpp_define_queue
;
1016 cpp_define_queue
= q
;
1019 /* Callback from cpp_error for PFILE to print diagnostics from the
1020 preprocessor. The diagnostic is of type LEVEL, with REASON set
1021 to the reason code if LEVEL is represents a warning, at location
1022 RICHLOC; MSG is the translated message and AP the arguments.
1023 Returns true if a diagnostic was emitted, false otherwise. */
1026 cb_cpp_error (cpp_reader
*pfile ATTRIBUTE_UNUSED
, int level
, int reason
,
1027 rich_location
*richloc
,
1028 const char *msg
, va_list *ap
)
1030 diagnostic_info diagnostic
;
1031 diagnostic_t dlevel
;
1032 bool save_warn_system_headers
= global_dc
->dc_warn_system_headers
;
1037 case CPP_DL_WARNING_SYSHDR
:
1038 global_dc
->dc_warn_system_headers
= 1;
1040 case CPP_DL_WARNING
:
1041 dlevel
= DK_WARNING
;
1043 case CPP_DL_PEDWARN
:
1044 dlevel
= DK_PEDWARN
;
1061 diagnostic_set_info_translated (&diagnostic
, msg
, ap
,
1063 if (reason
== CPP_W_WARNING_DIRECTIVE
)
1064 diagnostic_override_option_index (&diagnostic
, OPT_Wcpp
);
1065 ret
= diagnostic_report_diagnostic (global_dc
, &diagnostic
);
1066 if (level
== CPP_DL_WARNING_SYSHDR
)
1067 global_dc
->dc_warn_system_headers
= save_warn_system_headers
;
1071 /* Callback called when -fworking-director and -E to emit working
1072 directory in cpp output file. */
1075 pp_dir_change (cpp_reader
*pfile ATTRIBUTE_UNUSED
, const char *dir
)
1077 size_t to_file_len
= strlen (dir
);
1078 unsigned char *to_file_quoted
=
1079 (unsigned char *) alloca (to_file_len
* 4 + 1);
1082 /* cpp_quote_string does not nul-terminate, so we have to do it ourselves. */
1083 p
= cpp_quote_string (to_file_quoted
, (const unsigned char *) dir
, to_file_len
);
1085 fprintf (print
.outf
, "# 1 \"%s//\"\n", to_file_quoted
);
1088 /* Copy a #pragma directive to the preprocessed output. */
1090 cb_def_pragma (cpp_reader
*pfile
, source_location line
)
1092 maybe_print_line (line
);
1093 fputs ("#pragma ", print
.outf
);
1094 cpp_output_line (pfile
, print
.outf
);
1099 cb_used_undef (cpp_reader
*pfile ATTRIBUTE_UNUSED
,
1100 source_location line ATTRIBUTE_UNUSED
,
1103 gfc_cpp_macro_queue
*q
;
1104 q
= XNEW (gfc_cpp_macro_queue
);
1105 q
->macro
= xstrdup ((const char *) NODE_NAME (node
));
1106 q
->next
= cpp_undefine_queue
;
1107 cpp_undefine_queue
= q
;
1111 dump_queued_macros (cpp_reader
*pfile ATTRIBUTE_UNUSED
)
1113 gfc_cpp_macro_queue
*q
;
1115 /* End the previous line of text. */
1118 putc ('\n', print
.outf
);
1123 for (q
= cpp_define_queue
; q
;)
1125 gfc_cpp_macro_queue
*oq
;
1126 fputs ("#define ", print
.outf
);
1127 fputs (q
->macro
, print
.outf
);
1128 putc ('\n', print
.outf
);
1135 cpp_define_queue
= NULL
;
1136 for (q
= cpp_undefine_queue
; q
;)
1138 gfc_cpp_macro_queue
*oq
;
1139 fprintf (print
.outf
, "#undef %s\n", q
->macro
);
1146 cpp_undefine_queue
= NULL
;