1 /* Copyright (C) 2008-2014 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"
30 #include "tm_p.h" /* Target prototypes. */
33 #include "diagnostic.h"
35 #include "../../libcpp/internal.h"
38 #include "cppbuiltin.h"
41 #ifndef TARGET_SYSTEM_ROOT
42 # define TARGET_SYSTEM_ROOT NULL
45 #ifndef TARGET_CPU_CPP_BUILTINS
46 # define TARGET_CPU_CPP_BUILTINS()
49 #ifndef TARGET_OS_CPP_BUILTINS
50 # define TARGET_OS_CPP_BUILTINS()
53 #ifndef TARGET_OBJFMT_CPP_BUILTINS
54 # define TARGET_OBJFMT_CPP_BUILTINS()
58 /* Holds switches parsed by gfc_cpp_handle_option (), but whose
59 handling is deferred to gfc_cpp_init (). */
65 gfc_cpp_deferred_opt_t
;
68 /* Defined and undefined macros being queued for output with -dU at
70 typedef struct gfc_cpp_macro_queue
72 struct gfc_cpp_macro_queue
*next
; /* Next macro in the list. */
73 char *macro
; /* The name of the macro if not
74 defined, the full definition if
76 } gfc_cpp_macro_queue
;
77 static gfc_cpp_macro_queue
*cpp_define_queue
, *cpp_undefine_queue
;
79 struct gfc_cpp_option_data
81 /* Argument of -cpp, implied by SPEC;
82 if NULL, preprocessing disabled. */
83 const char *temporary_filename
;
85 const char *output_filename
; /* -o <arg> */
86 int preprocess_only
; /* -E */
87 int discard_comments
; /* -C */
88 int discard_comments_in_macro_exp
; /* -CC */
89 int print_include_names
; /* -H */
90 int no_line_commands
; /* -P */
91 char dump_macros
; /* -d[DMNU] */
92 int dump_includes
; /* -dI */
93 int working_directory
; /* -fworking-directory */
94 int no_predefined
; /* -undef */
95 int standard_include_paths
; /* -nostdinc */
98 int deps_skip_system
; /* -MM */
99 const char *deps_filename
; /* -M[M]D */
100 const char *deps_filename_user
; /* -MF <arg> */
101 int deps_missing_are_generated
; /* -MG */
102 int deps_phony
; /* -MP */
103 int warn_date_time
; /* -Wdate-time */
105 const char *multilib
; /* -imultilib <dir> */
106 const char *prefix
; /* -iprefix <dir> */
107 const char *sysroot
; /* -isysroot <dir> */
109 /* Options whose handling needs to be deferred until the
110 appropriate cpp-objects are created:
114 gfc_cpp_deferred_opt_t
*deferred_opt
;
115 int deferred_opt_count
;
119 /* Structures used with libcpp: */
120 static cpp_options
*cpp_option
= NULL
;
121 static cpp_reader
*cpp_in
= NULL
;
123 /* Encapsulates state used to convert a stream of cpp-tokens into
127 FILE *outf
; /* Stream to write to. */
128 const cpp_token
*prev
; /* Previous token. */
129 const cpp_token
*source
; /* Source token for spacing. */
130 int src_line
; /* Line number currently being written. */
131 unsigned char printed
; /* Nonzero if something output at line. */
132 bool first_time
; /* cb_file_change hasn't been called yet. */
135 /* General output routines. */
136 static void scan_translation_unit (cpp_reader
*);
137 static void scan_translation_unit_trad (cpp_reader
*);
139 /* Callback routines for the parser. Most of these are active only
140 in specific modes. */
141 static void cb_file_change (cpp_reader
*, const struct line_map
*);
142 static void cb_line_change (cpp_reader
*, const cpp_token
*, int);
143 static void cb_define (cpp_reader
*, source_location
, cpp_hashnode
*);
144 static void cb_undef (cpp_reader
*, source_location
, cpp_hashnode
*);
145 static void cb_def_pragma (cpp_reader
*, source_location
);
146 static void cb_include (cpp_reader
*, source_location
, const unsigned char *,
147 const char *, int, const cpp_token
**);
148 static void cb_ident (cpp_reader
*, source_location
, const cpp_string
*);
149 static void cb_used_define (cpp_reader
*, source_location
, cpp_hashnode
*);
150 static void cb_used_undef (cpp_reader
*, source_location
, cpp_hashnode
*);
151 static bool cb_cpp_error (cpp_reader
*, int, int, location_t
, unsigned int,
152 const char *, va_list *)
153 ATTRIBUTE_GCC_DIAG(6,0);
154 void pp_dir_change (cpp_reader
*, const char *);
156 static int dump_macro (cpp_reader
*, cpp_hashnode
*, void *);
157 static void dump_queued_macros (cpp_reader
*);
161 cpp_define_builtins (cpp_reader
*pfile
)
163 /* Initialize CPP built-ins; '1' corresponds to 'flag_hosted'
164 in C, defines __STDC_HOSTED__?! */
165 cpp_init_builtins (pfile
, 0);
167 /* Initialize GFORTRAN specific builtins.
168 These are documented. */
169 define_language_independent_builtin_macros (pfile
);
170 cpp_define (pfile
, "__GFORTRAN__=1");
171 cpp_define (pfile
, "_LANGUAGE_FORTRAN=1");
173 if (gfc_option
.gfc_flag_openmp
)
174 cpp_define (pfile
, "_OPENMP=201107");
176 /* The defines below are necessary for the TARGET_* macros.
178 FIXME: Note that builtin_define_std() actually is a function
179 in c-cppbuiltin.c which uses flags undefined for Fortran.
180 Let's skip this for now. If needed, one needs to look into it
183 # define builtin_define(TXT) cpp_define (pfile, TXT)
184 # define builtin_define_std(TXT)
185 # define builtin_assert(TXT) cpp_assert (pfile, TXT)
187 /* FIXME: Pandora's Box
188 Using the macros below results in multiple breakages:
189 - mingw will fail to compile this file as dependent macros
190 assume to be used in c-cppbuiltin.c only. Further, they use
191 flags only valid/defined in C (same as noted above).
192 [config/i386/mingw32.h, config/i386/cygming.h]
193 - other platforms (not as popular) break similarly
194 [grep for 'builtin_define_with_int_value' in gcc/config/]
196 TARGET_CPU_CPP_BUILTINS ();
197 TARGET_OS_CPP_BUILTINS ();
198 TARGET_OBJFMT_CPP_BUILTINS (); */
200 #undef builtin_define
201 #undef builtin_define_std
202 #undef builtin_assert
206 gfc_cpp_enabled (void)
208 return gfc_cpp_option
.temporary_filename
!= NULL
;
212 gfc_cpp_preprocess_only (void)
214 return gfc_cpp_option
.preprocess_only
;
218 gfc_cpp_makedep (void)
220 return gfc_cpp_option
.deps
;
224 gfc_cpp_add_dep (const char *name
, bool system
)
226 if (!gfc_cpp_option
.deps_skip_system
|| !system
)
227 deps_add_dep (cpp_get_deps (cpp_in
), name
);
231 gfc_cpp_add_target (const char *name
)
233 deps_add_target (cpp_get_deps (cpp_in
), name
, 0);
238 gfc_cpp_temporary_file (void)
240 return gfc_cpp_option
.temporary_filename
;
244 gfc_cpp_init_options (unsigned int decoded_options_count
,
245 struct cl_decoded_option
*decoded_options ATTRIBUTE_UNUSED
)
247 /* Do not create any objects from libcpp here. If no
248 preprocessing is requested, this would be wasted
251 See gfc_cpp_post_options() instead. */
253 gfc_cpp_option
.temporary_filename
= NULL
;
254 gfc_cpp_option
.output_filename
= NULL
;
255 gfc_cpp_option
.preprocess_only
= 0;
256 gfc_cpp_option
.discard_comments
= 1;
257 gfc_cpp_option
.discard_comments_in_macro_exp
= 1;
258 gfc_cpp_option
.print_include_names
= 0;
259 gfc_cpp_option
.no_line_commands
= 0;
260 gfc_cpp_option
.dump_macros
= '\0';
261 gfc_cpp_option
.dump_includes
= 0;
262 gfc_cpp_option
.working_directory
= -1;
263 gfc_cpp_option
.no_predefined
= 0;
264 gfc_cpp_option
.standard_include_paths
= 1;
265 gfc_cpp_option
.verbose
= 0;
266 gfc_cpp_option
.warn_date_time
= 0;
267 gfc_cpp_option
.deps
= 0;
268 gfc_cpp_option
.deps_skip_system
= 0;
269 gfc_cpp_option
.deps_phony
= 0;
270 gfc_cpp_option
.deps_missing_are_generated
= 0;
271 gfc_cpp_option
.deps_filename
= NULL
;
272 gfc_cpp_option
.deps_filename_user
= NULL
;
274 gfc_cpp_option
.multilib
= NULL
;
275 gfc_cpp_option
.prefix
= NULL
;
276 gfc_cpp_option
.sysroot
= TARGET_SYSTEM_ROOT
;
278 gfc_cpp_option
.deferred_opt
= XNEWVEC (gfc_cpp_deferred_opt_t
,
279 decoded_options_count
);
280 gfc_cpp_option
.deferred_opt_count
= 0;
284 gfc_cpp_handle_option (size_t scode
, const char *arg
, int value ATTRIBUTE_UNUSED
)
287 enum opt_code code
= (enum opt_code
) scode
;
296 gfc_cpp_option
.temporary_filename
= arg
;
300 gfc_cpp_option
.temporary_filename
= 0L;
311 gfc_cpp_option
.dump_macros
= *arg
;
315 gfc_cpp_option
.dump_includes
= 1;
320 case OPT_fworking_directory
:
321 gfc_cpp_option
.working_directory
= value
;
325 gfc_cpp_add_include_path_after (xstrdup(arg
), true);
329 gfc_cpp_option
.multilib
= arg
;
333 gfc_cpp_option
.prefix
= arg
;
337 gfc_cpp_option
.sysroot
= arg
;
342 gfc_cpp_add_include_path (xstrdup(arg
), true);
346 gfc_cpp_option
.standard_include_paths
= value
;
350 if (!gfc_cpp_option
.output_filename
)
351 gfc_cpp_option
.output_filename
= arg
;
353 gfc_fatal_error ("output filename specified twice");
357 gfc_cpp_option
.no_predefined
= value
;
361 gfc_cpp_option
.verbose
= value
;
365 gfc_cpp_option
.warn_date_time
= value
;
370 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].code
= code
;
371 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].arg
= arg
;
372 gfc_cpp_option
.deferred_opt_count
++;
376 gfc_cpp_option
.discard_comments
= 0;
380 gfc_cpp_option
.discard_comments
= 0;
381 gfc_cpp_option
.discard_comments_in_macro_exp
= 0;
385 gfc_cpp_option
.preprocess_only
= 1;
389 gfc_cpp_option
.print_include_names
= 1;
393 gfc_cpp_option
.deps_skip_system
= 1;
397 gfc_cpp_option
.deps
= 1;
401 gfc_cpp_option
.deps_skip_system
= 1;
405 gfc_cpp_option
.deps
= 1;
406 gfc_cpp_option
.deps_filename
= arg
;
410 /* If specified multiple times, last one wins. */
411 gfc_cpp_option
.deps_filename_user
= arg
;
415 gfc_cpp_option
.deps_missing_are_generated
= 1;
419 gfc_cpp_option
.deps_phony
= 1;
424 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].code
= code
;
425 gfc_cpp_option
.deferred_opt
[gfc_cpp_option
.deferred_opt_count
].arg
= arg
;
426 gfc_cpp_option
.deferred_opt_count
++;
430 gfc_cpp_option
.no_line_commands
= 1;
439 gfc_cpp_post_options (void)
441 /* Any preprocessing-related option without '-cpp' is considered
443 if (!gfc_cpp_enabled ()
444 && (gfc_cpp_preprocess_only ()
445 || gfc_cpp_makedep ()
446 || !gfc_cpp_option
.discard_comments
447 || !gfc_cpp_option
.discard_comments_in_macro_exp
448 || gfc_cpp_option
.print_include_names
449 || gfc_cpp_option
.no_line_commands
450 || gfc_cpp_option
.dump_macros
451 || gfc_cpp_option
.dump_includes
))
452 gfc_fatal_error("To enable preprocessing, use -cpp");
454 if (!gfc_cpp_enabled ())
457 cpp_in
= cpp_create_reader (CLK_GNUC89
, NULL
, line_table
);
460 /* The cpp_options-structure defines far more flags than those set here.
461 If any other is implemented, see c-opt.c (sanitize_cpp_opts) for
462 inter-option dependencies that may need to be enforced. */
463 cpp_option
= cpp_get_options (cpp_in
);
464 gcc_assert (cpp_option
);
466 /* TODO: allow non-traditional modes, e.g. by -cpp-std=...? */
467 cpp_option
->traditional
= 1;
468 cpp_option
->cplusplus_comments
= 0;
470 cpp_option
->cpp_pedantic
= pedantic
;
472 cpp_option
->dollars_in_ident
= gfc_option
.flag_dollar_ok
;
473 cpp_option
->discard_comments
= gfc_cpp_option
.discard_comments
;
474 cpp_option
->discard_comments_in_macro_exp
= gfc_cpp_option
.discard_comments_in_macro_exp
;
475 cpp_option
->print_include_names
= gfc_cpp_option
.print_include_names
;
476 cpp_option
->preprocessed
= gfc_option
.flag_preprocessed
;
477 cpp_option
->warn_date_time
= gfc_cpp_option
.warn_date_time
;
479 if (gfc_cpp_makedep ())
481 cpp_option
->deps
.style
= DEPS_USER
;
482 cpp_option
->deps
.phony_targets
= gfc_cpp_option
.deps_phony
;
483 cpp_option
->deps
.missing_files
= gfc_cpp_option
.deps_missing_are_generated
;
485 /* -MF <arg> overrides -M[M]D. */
486 if (gfc_cpp_option
.deps_filename_user
)
487 gfc_cpp_option
.deps_filename
= gfc_cpp_option
.deps_filename_user
;
490 if (gfc_cpp_option
.working_directory
== -1)
491 gfc_cpp_option
.working_directory
= (debug_info_level
!= DINFO_LEVEL_NONE
);
493 cpp_post_options (cpp_in
);
495 gfc_cpp_register_include_paths ();
500 gfc_cpp_init_0 (void)
502 struct cpp_callbacks
*cb
;
504 cb
= cpp_get_callbacks (cpp_in
);
505 cb
->file_change
= cb_file_change
;
506 cb
->line_change
= cb_line_change
;
507 cb
->ident
= cb_ident
;
508 cb
->def_pragma
= cb_def_pragma
;
509 cb
->error
= cb_cpp_error
;
511 if (gfc_cpp_option
.dump_includes
)
512 cb
->include
= cb_include
;
514 if ((gfc_cpp_option
.dump_macros
== 'D')
515 || (gfc_cpp_option
.dump_macros
== 'N'))
517 cb
->define
= cb_define
;
518 cb
->undef
= cb_undef
;
521 if (gfc_cpp_option
.dump_macros
== 'U')
523 cb
->before_define
= dump_queued_macros
;
524 cb
->used_define
= cb_used_define
;
525 cb
->used_undef
= cb_used_undef
;
528 /* Initialize the print structure. Setting print.src_line to -1 here is
529 a trick to guarantee that the first token of the file will cause
530 a linemarker to be output by maybe_print_line. */
534 print
.first_time
= 1;
536 if (gfc_cpp_preprocess_only ())
538 if (gfc_cpp_option
.output_filename
)
540 /* This needs cheating: with "-E -o <file>", the user wants the
541 preprocessed output in <file>. However, if nothing is done
542 about it <file> is also used for assembler output. Hence, it
543 is necessary to redirect assembler output (actually nothing
544 as -E implies -fsyntax-only) to another file, otherwise the
545 output from preprocessing is lost. */
546 asm_file_name
= gfc_cpp_option
.temporary_filename
;
548 print
.outf
= fopen (gfc_cpp_option
.output_filename
, "w");
549 if (print
.outf
== NULL
)
550 gfc_fatal_error ("opening output file %s: %s",
551 gfc_cpp_option
.output_filename
,
559 print
.outf
= fopen (gfc_cpp_option
.temporary_filename
, "w");
560 if (print
.outf
== NULL
)
561 gfc_fatal_error ("opening output file %s: %s",
562 gfc_cpp_option
.temporary_filename
, xstrerror (errno
));
566 if (!cpp_read_main_file (cpp_in
, gfc_source_file
))
575 if (gfc_option
.flag_preprocessed
)
578 if (!gfc_cpp_option
.no_predefined
)
580 /* Make sure all of the builtins about to be declared have
581 BUILTINS_LOCATION has their source_location. */
582 source_location builtins_loc
= BUILTINS_LOCATION
;
583 cpp_force_token_locations (cpp_in
, &builtins_loc
);
585 cpp_define_builtins (cpp_in
);
587 cpp_stop_forcing_token_locations (cpp_in
);
590 /* Handle deferred options from command-line. */
591 cpp_change_file (cpp_in
, LC_RENAME
, _("<command-line>"));
593 for (i
= 0; i
< gfc_cpp_option
.deferred_opt_count
; i
++)
595 gfc_cpp_deferred_opt_t
*opt
= &gfc_cpp_option
.deferred_opt
[i
];
597 if (opt
->code
== OPT_D
)
598 cpp_define (cpp_in
, opt
->arg
);
599 else if (opt
->code
== OPT_U
)
600 cpp_undef (cpp_in
, opt
->arg
);
601 else if (opt
->code
== OPT_A
)
603 if (opt
->arg
[0] == '-')
604 cpp_unassert (cpp_in
, opt
->arg
+ 1);
606 cpp_assert (cpp_in
, opt
->arg
);
608 else if (opt
->code
== OPT_MT
|| opt
->code
== OPT_MQ
)
609 deps_add_target (cpp_get_deps (cpp_in
),
610 opt
->arg
, opt
->code
== OPT_MQ
);
613 if (gfc_cpp_option
.working_directory
614 && gfc_cpp_option
.preprocess_only
&& !gfc_cpp_option
.no_line_commands
)
615 pp_dir_change (cpp_in
, get_src_pwd ());
619 gfc_cpp_preprocess (const char *source_file
)
621 if (!gfc_cpp_enabled ())
624 cpp_change_file (cpp_in
, LC_RENAME
, source_file
);
626 if (cpp_option
->traditional
)
627 scan_translation_unit_trad (cpp_in
);
629 scan_translation_unit (cpp_in
);
631 /* -dM command line option. */
632 if (gfc_cpp_preprocess_only () &&
633 gfc_cpp_option
.dump_macros
== 'M')
635 putc ('\n', print
.outf
);
636 cpp_forall_identifiers (cpp_in
, dump_macro
, NULL
);
639 putc ('\n', print
.outf
);
641 if (!gfc_cpp_preprocess_only ()
642 || (gfc_cpp_preprocess_only () && gfc_cpp_option
.output_filename
))
651 if (!gfc_cpp_enabled ())
656 if (gfc_cpp_makedep ())
658 if (gfc_cpp_option
.deps_filename
)
660 FILE *f
= fopen (gfc_cpp_option
.deps_filename
, "w");
663 cpp_finish (cpp_in
, f
);
667 gfc_fatal_error ("opening output file %s: %s",
668 gfc_cpp_option
.deps_filename
,
672 cpp_finish (cpp_in
, stdout
);
675 cpp_undef_all (cpp_in
);
676 cpp_clear_file_cache (cpp_in
);
679 /* PATH must be malloc-ed and NULL-terminated. */
681 gfc_cpp_add_include_path (char *path
, bool user_supplied
)
683 /* CHAIN sets cpp_dir->sysp which differs from 0 if PATH is a system
684 include path. Fortran does not define any system include paths. */
687 add_path (path
, BRACKET
, cxx_aware
, user_supplied
);
691 gfc_cpp_add_include_path_after (char *path
, bool user_supplied
)
694 add_path (path
, AFTER
, cxx_aware
, user_supplied
);
698 gfc_cpp_register_include_paths (void)
701 register_include_chains (cpp_in
, gfc_cpp_option
.sysroot
,
702 gfc_cpp_option
.prefix
, gfc_cpp_option
.multilib
,
703 gfc_cpp_option
.standard_include_paths
, cxx_stdinc
,
704 gfc_cpp_option
.verbose
);
709 static void scan_translation_unit_trad (cpp_reader
*);
710 static void account_for_newlines (const unsigned char *, size_t);
711 static int dump_macro (cpp_reader
*, cpp_hashnode
*, void *);
713 static void print_line (source_location
, const char *);
714 static void maybe_print_line (source_location
);
717 /* Writes out the preprocessed file, handling spacing and paste
720 scan_translation_unit (cpp_reader
*pfile
)
722 bool avoid_paste
= false;
727 const cpp_token
*token
= cpp_get_token (pfile
);
729 if (token
->type
== CPP_PADDING
)
732 if (print
.source
== NULL
733 || (!(print
.source
->flags
& PREV_WHITE
)
734 && token
->val
.source
== NULL
))
735 print
.source
= token
->val
.source
;
739 if (token
->type
== CPP_EOF
)
742 /* Subtle logic to output a space if and only if necessary. */
745 if (print
.source
== NULL
)
746 print
.source
= token
;
747 if (print
.source
->flags
& PREV_WHITE
749 && cpp_avoid_paste (pfile
, print
.prev
, token
))
750 || (print
.prev
== NULL
&& token
->type
== CPP_HASH
))
751 putc (' ', print
.outf
);
753 else if (token
->flags
& PREV_WHITE
)
754 putc (' ', print
.outf
);
759 cpp_output_token (token
, print
.outf
);
761 if (token
->type
== CPP_COMMENT
)
762 account_for_newlines (token
->val
.str
.text
, token
->val
.str
.len
);
766 /* Adjust print.src_line for newlines embedded in output. */
768 account_for_newlines (const unsigned char *str
, size_t len
)
775 /* Writes out a traditionally preprocessed file. */
777 scan_translation_unit_trad (cpp_reader
*pfile
)
779 while (_cpp_read_logical_line_trad (pfile
))
781 size_t len
= pfile
->out
.cur
- pfile
->out
.base
;
782 maybe_print_line (pfile
->out
.first_line
);
783 fwrite (pfile
->out
.base
, 1, len
, print
.outf
);
785 if (!CPP_OPTION (pfile
, discard_comments
))
786 account_for_newlines (pfile
->out
.base
, len
);
790 /* If the token read on logical line LINE needs to be output on a
791 different line to the current one, output the required newlines or
794 maybe_print_line (source_location src_loc
)
796 const struct line_map
*map
= 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 struct line_map
*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 struct line_map
*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 struct line_map
*map
= linemap_lookup (line_table
, src_loc
);
920 int spaces
= SOURCE_COLUMN (map
, src_loc
) - 2;
923 while (-- spaces
>= 0)
924 putc (' ', print
.outf
);
929 cb_ident (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
930 const cpp_string
*str
)
932 maybe_print_line (line
);
933 fprintf (print
.outf
, "#ident %s\n", str
->text
);
938 cb_define (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
939 cpp_hashnode
*node ATTRIBUTE_UNUSED
)
941 maybe_print_line (line
);
942 fputs ("#define ", print
.outf
);
944 /* 'D' is whole definition; 'N' is name only. */
945 if (gfc_cpp_option
.dump_macros
== 'D')
946 fputs ((const char *) cpp_macro_definition (pfile
, node
),
949 fputs ((const char *) NODE_NAME (node
), print
.outf
);
951 putc ('\n', print
.outf
);
952 if (LOCATION_LINE (line
) != 0)
957 cb_undef (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
960 maybe_print_line (line
);
961 fprintf (print
.outf
, "#undef %s\n", NODE_NAME (node
));
966 cb_include (cpp_reader
*pfile ATTRIBUTE_UNUSED
, source_location line
,
967 const unsigned char *dir
, const char *header
, int angle_brackets
,
968 const cpp_token
**comments
)
970 maybe_print_line (line
);
972 fprintf (print
.outf
, "#%s <%s>", dir
, header
);
974 fprintf (print
.outf
, "#%s \"%s\"", dir
, header
);
976 if (comments
!= NULL
)
978 while (*comments
!= NULL
)
980 if ((*comments
)->flags
& PREV_WHITE
)
981 putc (' ', print
.outf
);
982 cpp_output_token (*comments
, print
.outf
);
987 putc ('\n', print
.outf
);
991 /* Dump out the hash table. */
993 dump_macro (cpp_reader
*pfile
, cpp_hashnode
*node
, void *v ATTRIBUTE_UNUSED
)
995 if (node
->type
== NT_MACRO
&& !(node
->flags
& NODE_BUILTIN
))
997 fputs ("#define ", print
.outf
);
998 fputs ((const char *) cpp_macro_definition (pfile
, node
),
1000 putc ('\n', print
.outf
);
1008 cb_used_define (cpp_reader
*pfile
, source_location line ATTRIBUTE_UNUSED
,
1011 gfc_cpp_macro_queue
*q
;
1012 q
= XNEW (gfc_cpp_macro_queue
);
1013 q
->macro
= xstrdup ((const char *) cpp_macro_definition (pfile
, node
));
1014 q
->next
= cpp_define_queue
;
1015 cpp_define_queue
= q
;
1018 /* Callback from cpp_error for PFILE to print diagnostics from the
1019 preprocessor. The diagnostic is of type LEVEL, with REASON set
1020 to the reason code if LEVEL is represents a warning, at location
1021 LOCATION, with column number possibly overridden by COLUMN_OVERRIDE
1022 if not zero; 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 location_t location
, unsigned int column_override
,
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 (column_override
)
1064 diagnostic_override_column (&diagnostic
, column_override
);
1065 if (reason
== CPP_W_WARNING_DIRECTIVE
)
1066 diagnostic_override_option_index (&diagnostic
, OPT_Wcpp
);
1067 ret
= report_diagnostic (&diagnostic
);
1068 if (level
== CPP_DL_WARNING_SYSHDR
)
1069 global_dc
->dc_warn_system_headers
= save_warn_system_headers
;
1073 /* Callback called when -fworking-director and -E to emit working
1074 directory in cpp output file. */
1077 pp_dir_change (cpp_reader
*pfile ATTRIBUTE_UNUSED
, const char *dir
)
1079 size_t to_file_len
= strlen (dir
);
1080 unsigned char *to_file_quoted
=
1081 (unsigned char *) alloca (to_file_len
* 4 + 1);
1084 /* cpp_quote_string does not nul-terminate, so we have to do it ourselves. */
1085 p
= cpp_quote_string (to_file_quoted
, (const unsigned char *) dir
, to_file_len
);
1087 fprintf (print
.outf
, "# 1 \"%s//\"\n", to_file_quoted
);
1090 /* Copy a #pragma directive to the preprocessed output. */
1092 cb_def_pragma (cpp_reader
*pfile
, source_location line
)
1094 maybe_print_line (line
);
1095 fputs ("#pragma ", print
.outf
);
1096 cpp_output_line (pfile
, print
.outf
);
1101 cb_used_undef (cpp_reader
*pfile ATTRIBUTE_UNUSED
,
1102 source_location line ATTRIBUTE_UNUSED
,
1105 gfc_cpp_macro_queue
*q
;
1106 q
= XNEW (gfc_cpp_macro_queue
);
1107 q
->macro
= xstrdup ((const char *) NODE_NAME (node
));
1108 q
->next
= cpp_undefine_queue
;
1109 cpp_undefine_queue
= q
;
1113 dump_queued_macros (cpp_reader
*pfile ATTRIBUTE_UNUSED
)
1115 gfc_cpp_macro_queue
*q
;
1117 /* End the previous line of text. */
1120 putc ('\n', print
.outf
);
1125 for (q
= cpp_define_queue
; q
;)
1127 gfc_cpp_macro_queue
*oq
;
1128 fputs ("#define ", print
.outf
);
1129 fputs (q
->macro
, print
.outf
);
1130 putc ('\n', print
.outf
);
1137 cpp_define_queue
= NULL
;
1138 for (q
= cpp_undefine_queue
; q
;)
1140 gfc_cpp_macro_queue
*oq
;
1141 fprintf (print
.outf
, "#undef %s\n", q
->macro
);
1148 cpp_undefine_queue
= NULL
;