1 /* Copyright (C) 2008-2018 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
*, location_t
, cpp_hashnode
*);
138 static void cb_undef (cpp_reader
*, location_t
, cpp_hashnode
*);
139 static void cb_def_pragma (cpp_reader
*, location_t
);
140 static void cb_include (cpp_reader
*, location_t
, const unsigned char *,
141 const char *, int, const cpp_token
**);
142 static void cb_ident (cpp_reader
*, location_t
, const cpp_string
*);
143 static void cb_used_define (cpp_reader
*, location_t
, cpp_hashnode
*);
144 static void cb_used_undef (cpp_reader
*, location_t
, cpp_hashnode
*);
145 static bool cb_cpp_diagnostic (cpp_reader
*, enum cpp_diagnostic_level
,
146 enum cpp_warning_reason
, rich_location
*,
147 const char *, va_list *)
148 ATTRIBUTE_GCC_DIAG(5,0);
149 void pp_dir_change (cpp_reader
*, const char *);
151 static int dump_macro (cpp_reader
*, cpp_hashnode
*, void *);
152 static void dump_queued_macros (cpp_reader
*);
156 cpp_define_builtins (cpp_reader
*pfile
)
158 /* Initialize CPP built-ins; '1' corresponds to 'flag_hosted'
159 in C, defines __STDC_HOSTED__?! */
160 cpp_init_builtins (pfile
, 0);
162 /* Initialize GFORTRAN specific builtins.
163 These are documented. */
164 define_language_independent_builtin_macros (pfile
);
165 cpp_define (pfile
, "__GFORTRAN__=1");
166 cpp_define (pfile
, "_LANGUAGE_FORTRAN=1");
169 cpp_define (pfile
, "_OPENACC=201306");
172 cpp_define (pfile
, "_OPENMP=201511");
174 /* The defines below are necessary for the TARGET_* macros.
176 FIXME: Note that builtin_define_std() actually is a function
177 in c-cppbuiltin.c which uses flags undefined for Fortran.
178 Let's skip this for now. If needed, one needs to look into it
181 # define builtin_define(TXT) cpp_define (pfile, TXT)
182 # define builtin_define_std(TXT)
183 # define builtin_assert(TXT) cpp_assert (pfile, TXT)
185 /* FIXME: Pandora's Box
186 Using the macros below results in multiple breakages:
187 - mingw will fail to compile this file as dependent macros
188 assume to be used in c-cppbuiltin.c only. Further, they use
189 flags only valid/defined in C (same as noted above).
190 [config/i386/mingw32.h, config/i386/cygming.h]
191 - other platforms (not as popular) break similarly
192 [grep for 'builtin_define_with_int_value' in gcc/config/]
194 TARGET_CPU_CPP_BUILTINS ();
195 TARGET_OS_CPP_BUILTINS ();
196 TARGET_OBJFMT_CPP_BUILTINS (); */
198 #undef builtin_define
199 #undef builtin_define_std
200 #undef builtin_assert
204 gfc_cpp_enabled (void)
206 return gfc_cpp_option
.temporary_filename
!= NULL
;
210 gfc_cpp_preprocess_only (void)
212 return gfc_cpp_option
.preprocess_only
;
216 gfc_cpp_makedep (void)
218 return gfc_cpp_option
.deps
;
222 gfc_cpp_add_dep (const char *name
, bool system
)
224 if (!gfc_cpp_option
.deps_skip_system
|| !system
)
225 deps_add_dep (cpp_get_deps (cpp_in
), name
);
229 gfc_cpp_add_target (const char *name
)
231 deps_add_target (cpp_get_deps (cpp_in
), name
, 0);
236 gfc_cpp_temporary_file (void)
238 return gfc_cpp_option
.temporary_filename
;
242 gfc_cpp_init_options (unsigned int decoded_options_count
,
243 struct cl_decoded_option
*decoded_options ATTRIBUTE_UNUSED
)
245 /* Do not create any objects from libcpp here. If no
246 preprocessing is requested, this would be wasted
249 See gfc_cpp_post_options() instead. */
251 gfc_cpp_option
.temporary_filename
= NULL
;
252 gfc_cpp_option
.output_filename
= NULL
;
253 gfc_cpp_option
.preprocess_only
= 0;
254 gfc_cpp_option
.discard_comments
= 1;
255 gfc_cpp_option
.discard_comments_in_macro_exp
= 1;
256 gfc_cpp_option
.print_include_names
= 0;
257 gfc_cpp_option
.no_line_commands
= 0;
258 gfc_cpp_option
.dump_macros
= '\0';
259 gfc_cpp_option
.dump_includes
= 0;
260 gfc_cpp_option
.working_directory
= -1;
261 gfc_cpp_option
.no_predefined
= 0;
262 gfc_cpp_option
.standard_include_paths
= 1;
263 gfc_cpp_option
.verbose
= 0;
264 gfc_cpp_option
.warn_date_time
= 0;
265 gfc_cpp_option
.deps
= 0;
266 gfc_cpp_option
.deps_skip_system
= 0;
267 gfc_cpp_option
.deps_phony
= 0;
268 gfc_cpp_option
.deps_missing_are_generated
= 0;
269 gfc_cpp_option
.deps_filename
= NULL
;
270 gfc_cpp_option
.deps_filename_user
= NULL
;
272 gfc_cpp_option
.multilib
= NULL
;
273 gfc_cpp_option
.prefix
= NULL
;
274 gfc_cpp_option
.sysroot
= TARGET_SYSTEM_ROOT
;
276 gfc_cpp_option
.deferred_opt
= XNEWVEC (gfc_cpp_deferred_opt_t
,
277 decoded_options_count
);
278 gfc_cpp_option
.deferred_opt_count
= 0;
282 gfc_cpp_handle_option (size_t scode
, const char *arg
, int value ATTRIBUTE_UNUSED
)
285 enum opt_code code
= (enum opt_code
) scode
;
294 gfc_cpp_option
.temporary_filename
= arg
;
298 gfc_cpp_option
.temporary_filename
= 0L;
309 gfc_cpp_option
.dump_macros
= *arg
;
313 gfc_cpp_option
.dump_includes
= 1;
318 case OPT_fworking_directory
:
319 gfc_cpp_option
.working_directory
= value
;
323 gfc_cpp_add_include_path_after (xstrdup(arg
), true);
327 gfc_cpp_option
.multilib
= arg
;
331 gfc_cpp_option
.prefix
= arg
;
335 gfc_cpp_option
.sysroot
= arg
;
340 gfc_cpp_add_include_path (xstrdup(arg
), true);
344 gfc_cpp_option
.standard_include_paths
= value
;
348 if (!gfc_cpp_option
.output_filename
)
349 gfc_cpp_option
.output_filename
= arg
;
351 gfc_fatal_error ("output filename specified twice");
355 gfc_cpp_option
.no_predefined
= value
;
359 gfc_cpp_option
.verbose
= value
;
363 gfc_cpp_option
.warn_date_time
= value
;
369 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].code
= code
;
370 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].arg
= arg
;
371 gfc_cpp_option
.deferred_opt_count
++;
375 gfc_cpp_option
.discard_comments
= 0;
379 gfc_cpp_option
.discard_comments
= 0;
380 gfc_cpp_option
.discard_comments_in_macro_exp
= 0;
384 gfc_cpp_option
.preprocess_only
= 1;
388 gfc_cpp_option
.print_include_names
= 1;
392 gfc_cpp_option
.deps_skip_system
= 1;
396 gfc_cpp_option
.deps
= 1;
400 gfc_cpp_option
.deps_skip_system
= 1;
404 gfc_cpp_option
.deps
= 1;
405 gfc_cpp_option
.deps_filename
= arg
;
409 /* If specified multiple times, last one wins. */
410 gfc_cpp_option
.deps_filename_user
= arg
;
414 gfc_cpp_option
.deps_missing_are_generated
= 1;
418 gfc_cpp_option
.deps_phony
= 1;
423 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].code
= code
;
424 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].arg
= arg
;
425 gfc_cpp_option
.deferred_opt_count
++;
429 gfc_cpp_option
.no_line_commands
= 1;
438 gfc_cpp_post_options (void)
440 /* Any preprocessing-related option without '-cpp' is considered
442 if (!gfc_cpp_enabled ()
443 && (gfc_cpp_preprocess_only ()
444 || gfc_cpp_makedep ()
445 || !gfc_cpp_option
.discard_comments
446 || !gfc_cpp_option
.discard_comments_in_macro_exp
447 || gfc_cpp_option
.print_include_names
448 || gfc_cpp_option
.no_line_commands
449 || gfc_cpp_option
.dump_macros
450 || gfc_cpp_option
.dump_includes
))
451 gfc_fatal_error ("To enable preprocessing, use %<-cpp%>");
453 if (!gfc_cpp_enabled ())
456 cpp_in
= cpp_create_reader (CLK_GNUC89
, NULL
, line_table
);
459 /* The cpp_options-structure defines far more flags than those set here.
460 If any other is implemented, see c-opt.c (sanitize_cpp_opts) for
461 inter-option dependencies that may need to be enforced. */
462 cpp_option
= cpp_get_options (cpp_in
);
463 gcc_assert (cpp_option
);
465 /* TODO: allow non-traditional modes, e.g. by -cpp-std=...? */
466 cpp_option
->traditional
= 1;
467 cpp_option
->cplusplus_comments
= 0;
469 cpp_option
->cpp_pedantic
= pedantic
;
471 cpp_option
->dollars_in_ident
= flag_dollar_ok
;
472 cpp_option
->discard_comments
= gfc_cpp_option
.discard_comments
;
473 cpp_option
->discard_comments_in_macro_exp
= gfc_cpp_option
.discard_comments_in_macro_exp
;
474 cpp_option
->print_include_names
= gfc_cpp_option
.print_include_names
;
475 cpp_option
->preprocessed
= gfc_option
.flag_preprocessed
;
476 cpp_option
->warn_date_time
= gfc_cpp_option
.warn_date_time
;
478 if (gfc_cpp_makedep ())
480 cpp_option
->deps
.style
= DEPS_USER
;
481 cpp_option
->deps
.phony_targets
= gfc_cpp_option
.deps_phony
;
482 cpp_option
->deps
.missing_files
= gfc_cpp_option
.deps_missing_are_generated
;
484 /* -MF <arg> overrides -M[M]D. */
485 if (gfc_cpp_option
.deps_filename_user
)
486 gfc_cpp_option
.deps_filename
= gfc_cpp_option
.deps_filename_user
;
489 if (gfc_cpp_option
.working_directory
== -1)
490 gfc_cpp_option
.working_directory
= (debug_info_level
!= DINFO_LEVEL_NONE
);
492 cpp_post_options (cpp_in
);
494 gfc_cpp_register_include_paths ();
499 gfc_cpp_init_0 (void)
501 struct cpp_callbacks
*cb
;
503 cb
= cpp_get_callbacks (cpp_in
);
504 cb
->file_change
= cb_file_change
;
505 cb
->line_change
= cb_line_change
;
506 cb
->ident
= cb_ident
;
507 cb
->def_pragma
= cb_def_pragma
;
508 cb
->diagnostic
= cb_cpp_diagnostic
;
510 if (gfc_cpp_option
.dump_includes
)
511 cb
->include
= cb_include
;
513 if ((gfc_cpp_option
.dump_macros
== 'D')
514 || (gfc_cpp_option
.dump_macros
== 'N'))
516 cb
->define
= cb_define
;
517 cb
->undef
= cb_undef
;
520 if (gfc_cpp_option
.dump_macros
== 'U')
522 cb
->before_define
= dump_queued_macros
;
523 cb
->used_define
= cb_used_define
;
524 cb
->used_undef
= cb_used_undef
;
527 /* Initialize the print structure. Setting print.src_line to -1 here is
528 a trick to guarantee that the first token of the file will cause
529 a linemarker to be output by maybe_print_line. */
533 print
.first_time
= 1;
535 if (gfc_cpp_preprocess_only ())
537 if (gfc_cpp_option
.output_filename
)
539 /* This needs cheating: with "-E -o <file>", the user wants the
540 preprocessed output in <file>. However, if nothing is done
541 about it <file> is also used for assembler output. Hence, it
542 is necessary to redirect assembler output (actually nothing
543 as -E implies -fsyntax-only) to another file, otherwise the
544 output from preprocessing is lost. */
545 asm_file_name
= gfc_cpp_option
.temporary_filename
;
547 print
.outf
= fopen (gfc_cpp_option
.output_filename
, "w");
548 if (print
.outf
== NULL
)
549 gfc_fatal_error ("opening output file %qs: %s",
550 gfc_cpp_option
.output_filename
,
558 print
.outf
= fopen (gfc_cpp_option
.temporary_filename
, "w");
559 if (print
.outf
== NULL
)
560 gfc_fatal_error ("opening output file %qs: %s",
561 gfc_cpp_option
.temporary_filename
, xstrerror (errno
));
565 if (!cpp_read_main_file (cpp_in
, gfc_source_file
))
574 if (gfc_option
.flag_preprocessed
)
577 cpp_change_file (cpp_in
, LC_RENAME
, _("<built-in>"));
578 if (!gfc_cpp_option
.no_predefined
)
580 /* Make sure all of the builtins about to be declared have
581 BUILTINS_LOCATION has their location_t. */
582 cpp_force_token_locations (cpp_in
, BUILTINS_LOCATION
);
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
, INC_BRACKET
, cxx_aware
, user_supplied
);
690 gfc_cpp_add_include_path_after (char *path
, bool user_supplied
)
693 add_path (path
, INC_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 (location_t
, const char *);
713 static void maybe_print_line (location_t
);
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 (location_t 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 (location_t 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
)
884 maybe_print_line (linemap_included_from (map
));
885 if (map
->reason
== LC_ENTER
)
887 else if (map
->reason
== LC_LEAVE
)
889 print_line (map
->start_location
, flags
);
894 /* Called when a line of output is started. TOKEN is the first token
895 of the line, and at end of file will be CPP_EOF. */
897 cb_line_change (cpp_reader
*pfile
, const cpp_token
*token
,
900 location_t src_loc
= token
->src_loc
;
902 if (token
->type
== CPP_EOF
|| parsing_args
)
905 maybe_print_line (src_loc
);
909 /* Supply enough spaces to put this token in its original column,
910 one space per column greater than 2, since scan_translation_unit
911 will provide a space if PREV_WHITE. Don't bother trying to
912 reconstruct tabs; we can't get it right in general, and nothing
913 ought to care. Some things do care; the fault lies with them. */
914 if (!CPP_OPTION (pfile
, traditional
))
916 const line_map_ordinary
*map
917 = linemap_check_ordinary (linemap_lookup (line_table
, src_loc
));
918 int spaces
= SOURCE_COLUMN (map
, src_loc
) - 2;
921 while (-- spaces
>= 0)
922 putc (' ', print
.outf
);
927 cb_ident (cpp_reader
*pfile ATTRIBUTE_UNUSED
, location_t line
,
928 const cpp_string
*str
)
930 maybe_print_line (line
);
931 fprintf (print
.outf
, "#ident %s\n", str
->text
);
936 cb_define (cpp_reader
*pfile ATTRIBUTE_UNUSED
, location_t line
,
937 cpp_hashnode
*node ATTRIBUTE_UNUSED
)
939 maybe_print_line (line
);
940 fputs ("#define ", print
.outf
);
942 /* 'D' is whole definition; 'N' is name only. */
943 if (gfc_cpp_option
.dump_macros
== 'D')
944 fputs ((const char *) cpp_macro_definition (pfile
, node
),
947 fputs ((const char *) NODE_NAME (node
), print
.outf
);
949 putc ('\n', print
.outf
);
950 if (LOCATION_LINE (line
) != 0)
955 cb_undef (cpp_reader
*pfile ATTRIBUTE_UNUSED
, location_t line
,
958 maybe_print_line (line
);
959 fprintf (print
.outf
, "#undef %s\n", NODE_NAME (node
));
964 cb_include (cpp_reader
*pfile ATTRIBUTE_UNUSED
, location_t line
,
965 const unsigned char *dir
, const char *header
, int angle_brackets
,
966 const cpp_token
**comments
)
968 maybe_print_line (line
);
970 fprintf (print
.outf
, "#%s <%s>", dir
, header
);
972 fprintf (print
.outf
, "#%s \"%s\"", dir
, header
);
974 if (comments
!= NULL
)
976 while (*comments
!= NULL
)
978 if ((*comments
)->flags
& PREV_WHITE
)
979 putc (' ', print
.outf
);
980 cpp_output_token (*comments
, print
.outf
);
985 putc ('\n', print
.outf
);
989 /* Dump out the hash table. */
991 dump_macro (cpp_reader
*pfile
, cpp_hashnode
*node
, void *v ATTRIBUTE_UNUSED
)
993 if (cpp_user_macro_p (node
))
995 fputs ("#define ", print
.outf
);
996 fputs ((const char *) cpp_macro_definition (pfile
, node
),
998 putc ('\n', print
.outf
);
1006 cb_used_define (cpp_reader
*pfile
, location_t line ATTRIBUTE_UNUSED
,
1009 gfc_cpp_macro_queue
*q
;
1010 q
= XNEW (gfc_cpp_macro_queue
);
1011 q
->macro
= xstrdup ((const char *) cpp_macro_definition (pfile
, node
));
1012 q
->next
= cpp_define_queue
;
1013 cpp_define_queue
= q
;
1016 /* Callback from cpp_error for PFILE to print diagnostics from the
1017 preprocessor. The diagnostic is of type LEVEL, with REASON set
1018 to the reason code if LEVEL is represents a warning, at location
1019 RICHLOC; MSG is the translated message and AP the arguments.
1020 Returns true if a diagnostic was emitted, false otherwise. */
1023 cb_cpp_diagnostic (cpp_reader
*pfile ATTRIBUTE_UNUSED
,
1024 enum cpp_diagnostic_level level
,
1025 enum cpp_warning_reason reason
,
1026 rich_location
*richloc
,
1027 const char *msg
, va_list *ap
)
1029 diagnostic_info diagnostic
;
1030 diagnostic_t dlevel
;
1031 bool save_warn_system_headers
= global_dc
->dc_warn_system_headers
;
1036 case CPP_DL_WARNING_SYSHDR
:
1037 global_dc
->dc_warn_system_headers
= 1;
1039 case CPP_DL_WARNING
:
1040 dlevel
= DK_WARNING
;
1042 case CPP_DL_PEDWARN
:
1043 dlevel
= DK_PEDWARN
;
1060 diagnostic_set_info_translated (&diagnostic
, msg
, ap
,
1062 if (reason
== CPP_W_WARNING_DIRECTIVE
)
1063 diagnostic_override_option_index (&diagnostic
, OPT_Wcpp
);
1064 ret
= diagnostic_report_diagnostic (global_dc
, &diagnostic
);
1065 if (level
== CPP_DL_WARNING_SYSHDR
)
1066 global_dc
->dc_warn_system_headers
= save_warn_system_headers
;
1070 /* Callback called when -fworking-director and -E to emit working
1071 directory in cpp output file. */
1074 pp_dir_change (cpp_reader
*pfile ATTRIBUTE_UNUSED
, const char *dir
)
1076 size_t to_file_len
= strlen (dir
);
1077 unsigned char *to_file_quoted
=
1078 (unsigned char *) alloca (to_file_len
* 4 + 1);
1081 /* cpp_quote_string does not nul-terminate, so we have to do it ourselves. */
1082 p
= cpp_quote_string (to_file_quoted
, (const unsigned char *) dir
, to_file_len
);
1084 fprintf (print
.outf
, "# 1 \"%s//\"\n", to_file_quoted
);
1087 /* Copy a #pragma directive to the preprocessed output. */
1089 cb_def_pragma (cpp_reader
*pfile
, location_t line
)
1091 maybe_print_line (line
);
1092 fputs ("#pragma ", print
.outf
);
1093 cpp_output_line (pfile
, print
.outf
);
1098 cb_used_undef (cpp_reader
*pfile ATTRIBUTE_UNUSED
,
1099 location_t line ATTRIBUTE_UNUSED
,
1102 gfc_cpp_macro_queue
*q
;
1103 q
= XNEW (gfc_cpp_macro_queue
);
1104 q
->macro
= xstrdup ((const char *) NODE_NAME (node
));
1105 q
->next
= cpp_undefine_queue
;
1106 cpp_undefine_queue
= q
;
1110 dump_queued_macros (cpp_reader
*pfile ATTRIBUTE_UNUSED
)
1112 gfc_cpp_macro_queue
*q
;
1114 /* End the previous line of text. */
1117 putc ('\n', print
.outf
);
1122 for (q
= cpp_define_queue
; q
;)
1124 gfc_cpp_macro_queue
*oq
;
1125 fputs ("#define ", print
.outf
);
1126 fputs (q
->macro
, print
.outf
);
1127 putc ('\n', print
.outf
);
1134 cpp_define_queue
= NULL
;
1135 for (q
= cpp_undefine_queue
; q
;)
1137 gfc_cpp_macro_queue
*oq
;
1138 fprintf (print
.outf
, "#undef %s\n", q
->macro
);
1145 cpp_undefine_queue
= NULL
;