OSDN Git Service

alphabatize irix___restrict
[pf3gnuchains/gcc-fork.git] / gcc / cpphash.h
1 /* Part of CPP library.
2    Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003
3    Free Software Foundation, Inc.
4
5 This program is free software; you can redistribute it and/or modify it
6 under the terms of the GNU General Public License as published by the
7 Free Software Foundation; either version 2, or (at your option) any
8 later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
18
19 /* This header defines all the internal data structures and functions
20    that need to be visible across files.  It's called cpphash.h for
21    historical reasons.  */
22
23 #ifndef GCC_CPPHASH_H
24 #define GCC_CPPHASH_H
25
26 #include "hashtable.h"
27
28 struct directive;               /* Deliberately incomplete.  */
29 struct pending_option;
30 struct op;
31
32 #ifndef HAVE_UCHAR
33 typedef unsigned char uchar;
34 #endif
35 #define U (const uchar *)  /* Intended use: U"string" */
36
37 #define BITS_PER_CPPCHAR_T (CHAR_BIT * sizeof (cppchar_t))
38
39 /* Test if a sign is valid within a preprocessing number.  */
40 #define VALID_SIGN(c, prevc) \
41   (((c) == '+' || (c) == '-') && \
42    ((prevc) == 'e' || (prevc) == 'E' \
43     || (((prevc) == 'p' || (prevc) == 'P') \
44         && CPP_OPTION (pfile, extended_numbers))))
45
46 #define CPP_OPTION(PFILE, OPTION) ((PFILE)->opts.OPTION)
47 #define CPP_BUFFER(PFILE) ((PFILE)->buffer)
48 #define CPP_BUF_COLUMN(BUF, CUR) ((CUR) - (BUF)->line_base + (BUF)->col_adjust)
49 #define CPP_BUF_COL(BUF) CPP_BUF_COLUMN(BUF, (BUF)->cur)
50
51 /* Maximum nesting of cpp_buffers.  We use a static limit, partly for
52    efficiency, and partly to limit runaway recursion.  */
53 #define CPP_STACK_MAX 200
54
55 /* Host alignment handling.  */
56 struct dummy
57 {
58   char c;
59   union
60   {
61     double d;
62     int *p;
63   } u;
64 };
65
66 #define DEFAULT_ALIGNMENT offsetof (struct dummy, u)
67 #define CPP_ALIGN2(size, align) (((size) + ((align) - 1)) & ~((align) - 1))
68 #define CPP_ALIGN(size) CPP_ALIGN2 (size, DEFAULT_ALIGNMENT)
69
70 /* Each macro definition is recorded in a cpp_macro structure.
71    Variadic macros cannot occur with traditional cpp.  */
72 struct cpp_macro
73 {
74   /* Parameters, if any.  */
75   cpp_hashnode **params;
76
77   /* Replacement tokens (ISO) or replacement text (traditional).  See
78      comment at top of cpptrad.c for how traditional function-like
79      macros are encoded.  */
80   union
81   {
82     cpp_token *tokens;
83     const uchar *text;
84   } exp;
85
86   /* Definition line number.  */
87   unsigned int line;
88
89   /* Number of tokens in expansion, or bytes for traditional macros.  */
90   unsigned int count;
91
92   /* Number of parameters.  */
93   unsigned short paramc;
94
95   /* If a function-like macro.  */
96   unsigned int fun_like : 1;
97
98   /* If a variadic macro.  */
99   unsigned int variadic : 1;
100
101   /* If macro defined in system header.  */
102   unsigned int syshdr   : 1;
103
104   /* Nonzero if it has been expanded or had its existence tested.  */
105   unsigned int used     : 1;
106 };
107
108 #define _cpp_mark_macro_used(NODE) do {                                 \
109   if ((NODE)->type == NT_MACRO && !((NODE)->flags & NODE_BUILTIN))      \
110     (NODE)->value.macro->used = 1; } while (0)
111
112 /* A generic memory buffer, and operations on it.  */
113 typedef struct _cpp_buff _cpp_buff;
114 struct _cpp_buff
115 {
116   struct _cpp_buff *next;
117   unsigned char *base, *cur, *limit;
118 };
119
120 extern _cpp_buff *_cpp_get_buff PARAMS ((cpp_reader *, size_t));
121 extern void _cpp_release_buff PARAMS ((cpp_reader *, _cpp_buff *));
122 extern void _cpp_extend_buff PARAMS ((cpp_reader *, _cpp_buff **, size_t));
123 extern _cpp_buff *_cpp_append_extend_buff PARAMS ((cpp_reader *, _cpp_buff *,
124                                                    size_t));
125 extern void _cpp_free_buff PARAMS ((_cpp_buff *));
126 extern unsigned char *_cpp_aligned_alloc PARAMS ((cpp_reader *, size_t));
127 extern unsigned char *_cpp_unaligned_alloc PARAMS ((cpp_reader *, size_t));
128
129 #define BUFF_ROOM(BUFF) (size_t) ((BUFF)->limit - (BUFF)->cur)
130 #define BUFF_FRONT(BUFF) ((BUFF)->cur)
131 #define BUFF_LIMIT(BUFF) ((BUFF)->limit)
132
133 /* #include types.  */
134 enum include_type {IT_INCLUDE, IT_INCLUDE_NEXT, IT_IMPORT, IT_CMDLINE};
135
136 union utoken
137 {
138   const cpp_token *token;
139   const cpp_token **ptoken;
140 };
141
142 /* A "run" of tokens; part of a chain of runs.  */
143 typedef struct tokenrun tokenrun;
144 struct tokenrun
145 {
146   tokenrun *next, *prev;
147   cpp_token *base, *limit;
148 };
149
150 /* Accessor macros for struct cpp_context.  */
151 #define FIRST(c) ((c)->u.iso.first)
152 #define LAST(c) ((c)->u.iso.last)
153 #define CUR(c) ((c)->u.trad.cur)
154 #define RLIMIT(c) ((c)->u.trad.rlimit)
155
156 typedef struct cpp_context cpp_context;
157 struct cpp_context
158 {
159   /* Doubly-linked list.  */
160   cpp_context *next, *prev;
161
162   union
163   {
164     /* For ISO macro expansion.  Contexts other than the base context
165        are contiguous tokens.  e.g. macro expansions, expanded
166        argument tokens.  */
167     struct
168     {
169       union utoken first;
170       union utoken last;
171     } iso;
172
173     /* For traditional macro expansion.  */
174     struct
175     {
176       const uchar *cur;
177       const uchar *rlimit;
178     } trad;
179   } u;
180
181   /* If non-NULL, a buffer used for storage related to this context.
182      When the context is popped, the buffer is released.  */
183   _cpp_buff *buff;
184
185   /* For a macro context, the macro node, otherwise NULL.  */
186   cpp_hashnode *macro;
187
188   /* True if utoken element is token, else ptoken.  */
189   bool direct_p;
190 };
191
192 struct lexer_state
193 {
194   /* Nonzero if first token on line is CPP_HASH.  */
195   unsigned char in_directive;
196
197   /* Nonzero if in a directive that will handle padding tokens itself.
198      #include needs this to avoid problems with computed include and
199      spacing between tokens.  */
200   unsigned char directive_wants_padding;
201
202   /* True if we are skipping a failed conditional group.  */
203   unsigned char skipping;
204
205   /* Nonzero if in a directive that takes angle-bracketed headers.  */
206   unsigned char angled_headers;
207
208   /* Nonzero if in a #if or #elif directive.  */
209   unsigned char in_expression;
210
211   /* Nonzero to save comments.  Turned off if discard_comments, and in
212      all directives apart from #define.  */
213   unsigned char save_comments;
214
215   /* Nonzero if we're mid-comment.  */
216   unsigned char lexing_comment;
217
218   /* Nonzero if lexing __VA_ARGS__ is valid.  */
219   unsigned char va_args_ok;
220
221   /* Nonzero if lexing poisoned identifiers is valid.  */
222   unsigned char poisoned_ok;
223
224   /* Nonzero to prevent macro expansion.  */
225   unsigned char prevent_expansion;
226
227   /* Nonzero when parsing arguments to a function-like macro.  */
228   unsigned char parsing_args;
229
230   /* Nonzero to skip evaluating part of an expression.  */
231   unsigned int skip_eval;
232 };
233
234 /* Special nodes - identifiers with predefined significance.  */
235 struct spec_nodes
236 {
237   cpp_hashnode *n_defined;              /* defined operator */
238   cpp_hashnode *n_true;                 /* C++ keyword true */
239   cpp_hashnode *n_false;                /* C++ keyword false */
240   cpp_hashnode *n__VA_ARGS__;           /* C99 vararg macros */
241 };
242
243 /* Encapsulates state used to convert a stream of tokens into a text
244    file.  */
245 struct printer
246 {
247   FILE *outf;                   /* Stream to write to.  */
248   const struct line_map *map;   /* Logical to physical line mappings.  */
249   const cpp_token *prev;        /* Previous token.  */
250   const cpp_token *source;      /* Source token for spacing.  */
251   unsigned int line;            /* Line currently being written.  */
252   unsigned char printed;        /* Nonzero if something output at line.  */
253 };
254
255 /* Represents the contents of a file cpplib has read in.  */
256 struct cpp_buffer
257 {
258   const unsigned char *cur;      /* current position */
259   const unsigned char *backup_to; /* if peeked character is not wanted */
260   const unsigned char *rlimit; /* end of valid data */
261   const unsigned char *line_base; /* start of current line */
262
263   struct cpp_buffer *prev;
264
265   const unsigned char *buf;      /* Entire character buffer.  */
266
267   /* Pointer into the include table; non-NULL if this is a file
268      buffer.  Used for include_next and to record control macros.  */
269   struct include_file *inc;
270
271   /* Value of if_stack at start of this file.
272      Used to prohibit unmatched #endif (etc) in an include file.  */
273   struct if_stack *if_stack;
274
275   /* Token column position adjustment owing to tabs in whitespace.  */
276   unsigned int col_adjust;
277
278   /* Contains PREV_WHITE and/or AVOID_LPASTE.  */
279   unsigned char saved_flags;
280
281   /* Because of the way the lexer works, -Wtrigraphs can sometimes
282      warn twice for the same trigraph.  This helps prevent that.  */
283   const unsigned char *last_Wtrigraphs;
284
285   /* True if we have already warned about C++ comments in this file.
286      The warning happens only for C89 extended mode with -pedantic on,
287      or for -Wtraditional, and only once per file (otherwise it would
288      be far too noisy).  */
289   unsigned char warned_cplusplus_comments;
290
291   /* True if we don't process trigraphs and escaped newlines.  True
292      for preprocessed input, command line directives, and _Pragma
293      buffers.  */
294   unsigned char from_stage3;
295
296   /* Nonzero means that the directory to start searching for ""
297      include files has been calculated and stored in "dir" below.  */
298   unsigned char search_cached;
299
300   /* At EOF, a buffer is automatically popped.  If RETURN_AT_EOF is
301      true, a CPP_EOF token is then returned.  Otherwise, the next
302      token from the enclosing buffer is returned.  */
303   bool return_at_eof;
304
305   /* The directory of the this buffer's file.  Its NAME member is not
306      allocated, so we don't need to worry about freeing it.  */
307   struct cpp_path dir;
308
309   /* Used for buffer overlays by cpptrad.c.  */
310   const uchar *saved_cur, *saved_rlimit;
311 };
312
313 /* A cpp_reader encapsulates the "state" of a pre-processor run.
314    Applying cpp_get_token repeatedly yields a stream of pre-processor
315    tokens.  Usually, there is only one cpp_reader object active.  */
316 struct cpp_reader
317 {
318   /* Top of buffer stack.  */
319   cpp_buffer *buffer;
320
321   /* Overlaid buffer (can be different after processing #include).  */
322   cpp_buffer *overlaid_buffer;
323
324   /* Lexer state.  */
325   struct lexer_state state;
326
327   /* Source line tracking.  */
328   struct line_maps line_maps;
329   const struct line_map *map;
330   unsigned int line;
331
332   /* The line of the '#' of the current directive.  */
333   unsigned int directive_line;
334
335   /* Memory buffers.  */
336   _cpp_buff *a_buff;            /* Aligned permanent storage.  */
337   _cpp_buff *u_buff;            /* Unaligned permanent storage.  */
338   _cpp_buff *free_buffs;        /* Free buffer chain.  */
339
340   /* Context stack.  */
341   struct cpp_context base_context;
342   struct cpp_context *context;
343
344   /* If in_directive, the directive if known.  */
345   const struct directive *directive;
346
347   /* The next -include-d file; NULL if they all are done.  If it
348      points to NULL, the last one is in progress, and
349      _cpp_maybe_push_include_file has yet to restore the line map.  */
350   struct pending_option **next_include_file;
351
352   /* Search paths for include files.  */
353   struct cpp_path *quote_include;       /* "" */
354   struct cpp_path *bracket_include;     /* <> */
355
356   /* Multiple include optimisation.  */
357   const cpp_hashnode *mi_cmacro;
358   const cpp_hashnode *mi_ind_cmacro;
359   bool mi_valid;
360
361   /* Lexing.  */
362   cpp_token *cur_token;
363   tokenrun base_run, *cur_run;
364   unsigned int lookaheads;
365
366   /* Nonzero prevents the lexer from re-using the token runs.  */
367   unsigned int keep_tokens;
368
369   /* Error counter for exit code.  */
370   unsigned int errors;
371
372   /* Buffer to hold macro definition string.  */
373   unsigned char *macro_buffer;
374   unsigned int macro_buffer_len;
375
376   /* Tree of other included files.  See cppfiles.c.  */
377   struct splay_tree_s *all_include_files;
378
379   /* Current maximum length of directory names in the search path
380      for include files.  (Altered as we get more of them.)  */
381   unsigned int max_include_len;
382
383   /* Macros on or after this line are warned about if unused.  */
384   unsigned int first_unused_line;
385
386   /* Date and time text.  Calculated together if either is requested.  */
387   const uchar *date;
388   const uchar *time;
389
390   /* EOF token, and a token forcing paste avoidance.  */
391   cpp_token avoid_paste;
392   cpp_token eof;
393
394   /* Opaque handle to the dependencies of mkdeps.c.  */
395   struct deps *deps;
396
397   /* Obstack holding all macro hash nodes.  This never shrinks.
398      See cpphash.c */
399   struct obstack hash_ob;
400
401   /* Obstack holding buffer and conditional structures.  This is a
402      real stack.  See cpplib.c.  */
403   struct obstack buffer_ob;
404
405   /* Pragma table - dynamic, because a library user can add to the
406      list of recognized pragmas.  */
407   struct pragma_entry *pragmas;
408
409   /* Call backs.  */
410   struct cpp_callbacks cb;
411
412   /* Identifier hash table.  */
413   struct ht *hash_table;
414
415   /* Expression parser stack.  */
416   struct op *op_stack, *op_limit;
417
418   /* User visible options.  */
419   struct cpp_options opts;
420
421   /* Special nodes - identifiers with predefined significance to the
422      preprocessor.  */
423   struct spec_nodes spec_nodes;
424
425   /* Used when doing preprocessed output.  */
426   struct printer print;
427
428   /* Nonzero means don't look for #include "foo" the source-file
429      directory.  */
430   unsigned char quote_ignores_source_dir;
431
432   /* Whether cpplib owns the hashtable.  */
433   unsigned char our_hashtable;
434
435   /* Traditional preprocessing output buffer (a logical line).  */
436   struct
437   {
438     uchar *base;
439     uchar *limit;
440     uchar *cur;
441     unsigned int first_line;
442   } out;
443
444   /* Used to save the original line number during traditional
445      preprocessing.  */
446   unsigned int saved_line;
447
448   /* A saved list of the defined macros, for dependency checking
449      of precompiled headers.  */
450   struct cpp_savedstate *savedstate;
451 };
452
453 /* Character classes.  Based on the more primitive macros in safe-ctype.h.
454    If the definition of `numchar' looks odd to you, please look up the
455    definition of a pp-number in the C standard [section 6.4.8 of C99].
456
457    In the unlikely event that characters other than \r and \n enter
458    the set is_vspace, the macro handle_newline() in cpplex.c must be
459    updated.  */
460 #define _dollar_ok(x)   ((x) == '$' && CPP_OPTION (pfile, dollars_in_ident))
461
462 #define is_idchar(x)    (ISIDNUM(x) || _dollar_ok(x))
463 #define is_numchar(x)   ISIDNUM(x)
464 #define is_idstart(x)   (ISIDST(x) || _dollar_ok(x))
465 #define is_numstart(x)  ISDIGIT(x)
466 #define is_hspace(x)    ISBLANK(x)
467 #define is_vspace(x)    IS_VSPACE(x)
468 #define is_nvspace(x)   IS_NVSPACE(x)
469 #define is_space(x)     IS_SPACE_OR_NUL(x)
470
471 /* This table is constant if it can be initialized at compile time,
472    which is the case if cpp was compiled with GCC >=2.7, or another
473    compiler that supports C99.  */
474 #if HAVE_DESIGNATED_INITIALIZERS
475 extern const unsigned char _cpp_trigraph_map[UCHAR_MAX + 1];
476 #else
477 extern unsigned char _cpp_trigraph_map[UCHAR_MAX + 1];
478 #endif
479
480 /* Macros.  */
481
482 #define CPP_IN_SYSTEM_HEADER(PFILE) ((PFILE)->map && (PFILE)->map->sysp)
483 #define CPP_PEDANTIC(PF) CPP_OPTION (PF, pedantic)
484 #define CPP_WTRADITIONAL(PF) CPP_OPTION (PF, warn_traditional)
485
486 /* In cpperror.c  */
487 extern int _cpp_begin_message PARAMS ((cpp_reader *, int,
488                                        unsigned int, unsigned int));
489
490 /* In cppmacro.c */
491 extern void _cpp_free_definition        PARAMS ((cpp_hashnode *));
492 extern bool _cpp_create_definition      PARAMS ((cpp_reader *, cpp_hashnode *));
493 extern void _cpp_pop_context            PARAMS ((cpp_reader *));
494 extern void _cpp_push_text_context      PARAMS ((cpp_reader *, cpp_hashnode *,
495                                                  const uchar *, size_t));
496 extern bool _cpp_save_parameter         PARAMS ((cpp_reader *, cpp_macro *,
497                                                  cpp_hashnode *));
498 extern bool _cpp_arguments_ok           PARAMS ((cpp_reader *, cpp_macro *,
499                                                  const cpp_hashnode *,
500                                                  unsigned int));
501 extern const uchar *_cpp_builtin_macro_text PARAMS ((cpp_reader *,
502                                                      cpp_hashnode *));
503 int _cpp_warn_if_unused_macro           PARAMS ((cpp_reader *, cpp_hashnode *,
504                                                  void *));
505 /* In cpphash.c */
506 extern void _cpp_init_hashtable         PARAMS ((cpp_reader *, hash_table *));
507 extern void _cpp_destroy_hashtable      PARAMS ((cpp_reader *));
508
509 /* In cppfiles.c */
510 extern void _cpp_fake_include           PARAMS ((cpp_reader *, const char *));
511 extern void _cpp_never_reread           PARAMS ((struct include_file *));
512 extern bool _cpp_read_file              PARAMS ((cpp_reader *, const char *));
513 extern bool _cpp_execute_include        PARAMS ((cpp_reader *,
514                                                  const cpp_token *,
515                                                  enum include_type));
516 extern int _cpp_compare_file_date       PARAMS ((cpp_reader *,
517                                                  const cpp_token *));
518 extern void _cpp_report_missing_guards  PARAMS ((cpp_reader *));
519 extern void _cpp_init_includes          PARAMS ((cpp_reader *));
520 extern void _cpp_cleanup_includes       PARAMS ((cpp_reader *));
521 extern void _cpp_pop_file_buffer        PARAMS ((cpp_reader *,
522                                                  struct include_file *));
523
524 /* In cppexp.c */
525 extern bool _cpp_parse_expr             PARAMS ((cpp_reader *));
526 extern struct op *_cpp_expand_op_stack  PARAMS ((cpp_reader *));
527
528 /* In cpplex.c */
529 extern cpp_token *_cpp_temp_token       PARAMS ((cpp_reader *));
530 extern const cpp_token *_cpp_lex_token  PARAMS ((cpp_reader *));
531 extern cpp_token *_cpp_lex_direct       PARAMS ((cpp_reader *));
532 extern int _cpp_equiv_tokens            PARAMS ((const cpp_token *,
533                                                  const cpp_token *));
534 extern void _cpp_init_tokenrun          PARAMS ((tokenrun *, unsigned int));
535
536 /* In cppinit.c.  */
537 extern void _cpp_maybe_push_include_file PARAMS ((cpp_reader *));
538
539 /* In cpplib.c */
540 extern int _cpp_test_assertion PARAMS ((cpp_reader *, unsigned int *));
541 extern int _cpp_handle_directive PARAMS ((cpp_reader *, int));
542 extern void _cpp_define_builtin PARAMS ((cpp_reader *, const char *));
543 extern char ** _cpp_save_pragma_names PARAMS ((cpp_reader *));
544 extern void _cpp_restore_pragma_names PARAMS ((cpp_reader *, char **));
545 extern void _cpp_do__Pragma     PARAMS ((cpp_reader *));
546 extern void _cpp_init_directives PARAMS ((cpp_reader *));
547 extern void _cpp_init_internal_pragmas PARAMS ((cpp_reader *));
548 extern void _cpp_do_file_change PARAMS ((cpp_reader *, enum lc_reason,
549                                          const char *,
550                                          unsigned int, unsigned int));
551 extern void _cpp_pop_buffer PARAMS ((cpp_reader *));
552
553 /* In cpptrad.c.  */
554 extern bool _cpp_read_logical_line_trad PARAMS ((cpp_reader *));
555 extern void _cpp_overlay_buffer PARAMS ((cpp_reader *pfile, const uchar *,
556                                          size_t));
557 extern void _cpp_remove_overlay PARAMS ((cpp_reader *));
558 extern bool _cpp_create_trad_definition PARAMS ((cpp_reader *, cpp_macro *));
559 extern bool _cpp_expansions_different_trad PARAMS ((const cpp_macro *,
560                                                     const cpp_macro *));
561 extern uchar *_cpp_copy_replacement_text PARAMS ((const cpp_macro *, uchar *));
562 extern size_t _cpp_replacement_text_len PARAMS ((const cpp_macro *));
563
564 /* Utility routines and macros.  */
565 #define DSC(str) (const uchar *)str, sizeof str - 1
566 #define xnew(T)         (T *) xmalloc (sizeof(T))
567 #define xcnew(T)        (T *) xcalloc (1, sizeof(T))
568 #define xnewvec(T, N)   (T *) xmalloc (sizeof(T) * (N))
569 #define xcnewvec(T, N)  (T *) xcalloc (N, sizeof(T))
570 #define xobnew(O, T)    (T *) obstack_alloc (O, sizeof(T))
571
572 /* These are inline functions instead of macros so we can get type
573    checking.  */
574 static inline int ustrcmp       PARAMS ((const uchar *, const uchar *));
575 static inline int ustrncmp      PARAMS ((const uchar *, const uchar *,
576                                          size_t));
577 static inline size_t ustrlen    PARAMS ((const uchar *));
578 static inline uchar *uxstrdup   PARAMS ((const uchar *));
579 static inline uchar *ustrchr    PARAMS ((const uchar *, int));
580 static inline int ufputs        PARAMS ((const uchar *, FILE *));
581
582 static inline int
583 ustrcmp (s1, s2)
584      const uchar *s1, *s2;
585 {
586   return strcmp ((const char *)s1, (const char *)s2);
587 }
588
589 static inline int
590 ustrncmp (s1, s2, n)
591      const uchar *s1, *s2;
592      size_t n;
593 {
594   return strncmp ((const char *)s1, (const char *)s2, n);
595 }
596
597 static inline size_t
598 ustrlen (s1)
599      const uchar *s1;
600 {
601   return strlen ((const char *)s1);
602 }
603
604 static inline uchar *
605 uxstrdup (s1)
606      const uchar *s1;
607 {
608   return (uchar *) xstrdup ((const char *)s1);
609 }
610
611 static inline uchar *
612 ustrchr (s1, c)
613      const uchar *s1;
614      int c;
615 {
616   return (uchar *) strchr ((const char *)s1, c);
617 }
618
619 static inline int
620 ufputs (s, f)
621      const uchar *s;
622      FILE *f;
623 {
624   return fputs ((const char *)s, f);
625 }
626
627 #endif /* ! GCC_CPPHASH_H */