1 /* Code to maintain a C++ template repository.
2 Copyright (C) 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
3 Contributed by Jason Merrill (jason@cygnus.com)
5 This file is part of GNU CC.
7 GNU CC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU CC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU CC; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 /* My strategy here is as follows:
24 Everything should be emitted in a translation unit where it is used.
25 The results of the automatic process should be easily reproducible with
37 static tree repo_get_id
PARAMS ((tree
));
38 static char *extract_string
PARAMS ((char **));
39 static char *get_base_filename
PARAMS ((const char *));
40 static void open_repo_file
PARAMS ((const char *));
41 static char *afgets
PARAMS ((FILE *));
42 static void reopen_repo_file_for_write
PARAMS ((void));
44 static tree pending_repo
;
45 static tree original_repo
;
46 static char *repo_name
;
47 static FILE *repo_file
;
49 static char *old_args
, *old_dir
, *old_main
;
51 extern int flag_use_repository
;
52 static struct obstack temporary_obstack
;
53 extern struct obstack permanent_obstack
;
55 #define IDENTIFIER_REPO_USED(NODE) (TREE_LANG_FLAG_3 (NODE))
56 #define IDENTIFIER_REPO_CHOSEN(NODE) (TREE_LANG_FLAG_4 (NODE))
59 /* Record the flags used to compile this translation unit. */
62 repo_compile_flags (argc
, argv
)
68 /* If this template has not been seen before, add a note to the repository
69 saying where the declaration was. This may be used to find the
70 definition at link time. */
73 repo_template_declared (t
)
77 /* Note where the definition of a template lives so that instantiations can
78 be generated later. */
81 repo_template_defined (t
)
85 /* Note where the definition of a class lives to that template
86 instantiations can use it. */
89 repo_class_defined (t
)
102 /* If we're not done setting up the class, we may not have set up
103 the vtable, so going ahead would give the wrong answer.
104 See g++.pt/instantiate4.C. */
105 if (!COMPLETE_TYPE_P (t
) || TYPE_BEING_DEFINED (t
))
106 my_friendly_abort (981113);
108 vtable
= get_vtbl_decl_for_binfo (TYPE_BINFO (t
));
110 /* If we don't have a primary vtable, try looking for a secondary
112 if (vtable
== NULL_TREE
&& !flag_new_abi
113 && TYPE_USES_VIRTUAL_BASECLASSES (t
))
115 tree binfos
= BINFO_BASETYPES (TYPE_BINFO (t
));
116 int i
, n_baselinks
= binfos
? TREE_VEC_LENGTH (binfos
) : 0;
117 for (i
= 0; i
< n_baselinks
; ++i
)
119 tree base_binfo
= TREE_VEC_ELT (binfos
, i
);
120 if (TREE_VIA_VIRTUAL (base_binfo
))
122 vtable
= get_vtbl_decl_for_binfo (base_binfo
);
133 return DECL_ASSEMBLER_NAME (t
);
136 /* Note that a template has been used. If we can see the definition, offer
140 repo_template_used (t
)
145 if (! flag_use_repository
)
148 id
= repo_get_id (t
);
154 if (IDENTIFIER_REPO_CHOSEN (id
))
155 mark_class_instantiated (t
, 0);
159 if (IDENTIFIER_REPO_CHOSEN (id
))
160 mark_decl_instantiated (t
, 0);
163 my_friendly_abort (1);
165 if (! IDENTIFIER_REPO_USED (id
))
167 IDENTIFIER_REPO_USED (id
) = 1;
168 pending_repo
= tree_cons (NULL_TREE
, id
, pending_repo
);
173 /* Note that the vtable for a class has been used, and offer to emit it. */
179 if (! flag_use_repository
)
182 pending_repo
= tree_cons (NULL_TREE
, t
, pending_repo
);
185 /* Note that an inline with external linkage has been used, and offer to
189 repo_inline_used (fn
)
192 if (! flag_use_repository
)
195 /* Member functions of polymorphic classes go with their vtables. */
196 if (DECL_FUNCTION_MEMBER_P (fn
)
197 && TYPE_POLYMORPHIC_P (DECL_CONTEXT (fn
)))
199 repo_vtable_used (DECL_CONTEXT (fn
));
203 pending_repo
= tree_cons (NULL_TREE
, fn
, pending_repo
);
206 /* Note that a particular typeinfo node has been used, and offer to
217 repo_template_instantiated (t
, extern_p
)
223 tree id
= repo_get_id (t
);
225 IDENTIFIER_REPO_CHOSEN (id
) = 1;
229 /* Parse a reasonable subset of shell quoting syntax. */
246 obstack_1grow (&temporary_obstack
, c
);
247 else if (! inside
&& c
== ' ')
249 else if (! inside
&& c
== '\\')
254 obstack_1grow (&temporary_obstack
, c
);
257 obstack_1grow (&temporary_obstack
, '\0');
259 return obstack_finish (&temporary_obstack
);
263 get_base_filename (filename
)
264 const char *filename
;
266 char *p
= getenv ("COLLECT_GCC_OPTIONS");
272 char *q
= extract_string (&p
);
274 if (strcmp (q
, "-o") == 0)
275 output
= extract_string (&p
);
276 else if (strcmp (q
, "-c") == 0)
280 if (compiling
&& output
)
283 if (p
&& ! compiling
)
285 warning ("-frepo must be used with -c");
286 flag_use_repository
= 0;
290 return file_name_nondirectory (filename
);
294 open_repo_file (filename
)
295 const char *filename
;
297 register const char *p
;
298 const char *s
= get_base_filename (filename
);
303 p
= file_name_nondirectory (s
);
304 p
= strrchr (p
, '.');
308 obstack_grow (&permanent_obstack
, s
, p
- s
);
309 repo_name
= obstack_copy0 (&permanent_obstack
, ".rpo", 4);
311 repo_file
= fopen (repo_name
, "r");
319 while ((c
= getc (stream
)) != EOF
&& c
!= '\n')
320 obstack_1grow (&temporary_obstack
, c
);
321 if (obstack_object_size (&temporary_obstack
) == 0)
323 obstack_1grow (&temporary_obstack
, '\0');
324 return obstack_finish (&temporary_obstack
);
329 const char *filename
;
333 if (! flag_use_repository
)
336 ggc_add_tree_root (&pending_repo
, 1);
337 ggc_add_tree_root (&original_repo
, 1);
338 gcc_obstack_init (&temporary_obstack
);
340 open_repo_file (filename
);
345 while ((buf
= afgets (repo_file
)))
350 old_args
= obstack_copy0 (&permanent_obstack
, buf
+ 2,
354 old_dir
= obstack_copy0 (&permanent_obstack
, buf
+ 2,
358 old_main
= obstack_copy0 (&permanent_obstack
, buf
+ 2,
364 tree id
= get_identifier (buf
+ 2);
369 IDENTIFIER_REPO_CHOSEN (id
) = 1;
370 orig
= integer_one_node
;
375 original_repo
= tree_cons (orig
, id
, original_repo
);
379 error ("mysterious repository information in %s", repo_name
);
381 obstack_free (&temporary_obstack
, buf
);
386 reopen_repo_file_for_write ()
390 repo_file
= fopen (repo_name
, "w");
394 error ("can't create repository information file `%s'", repo_name
);
395 flag_use_repository
= 0;
399 /* Emit any pending repos. */
405 int repo_changed
= 0;
408 if (! flag_use_repository
)
411 /* Do we have to write out a new info file? */
413 /* Are there any old templates that aren't used any longer or that are
416 for (t
= original_repo
; t
; t
= TREE_CHAIN (t
))
418 if (! IDENTIFIER_REPO_USED (TREE_VALUE (t
))
419 || (! TREE_PURPOSE (t
) && IDENTIFIER_REPO_CHOSEN (TREE_VALUE (t
))))
424 IDENTIFIER_REPO_USED (TREE_VALUE (t
)) = 0;
427 /* Are there any templates that are newly used? */
430 for (t
= pending_repo
; t
; t
= TREE_CHAIN (t
))
432 if (IDENTIFIER_REPO_USED (TREE_VALUE (t
)))
440 args
= getenv ("COLLECT_GCC_OPTIONS");
442 if (! repo_changed
&& pending_repo
)
443 if (strcmp (old_main
, main_input_filename
) != 0
444 || strcmp (old_dir
, dir
) != 0
445 || (args
== NULL
) != (old_args
== NULL
)
446 || (args
&& strcmp (old_args
, args
) != 0))
449 if (! repo_changed
|| errorcount
|| sorrycount
)
452 reopen_repo_file_for_write ();
457 fprintf (repo_file
, "M %s\n", main_input_filename
);
458 fprintf (repo_file
, "D %s\n", dir
);
460 fprintf (repo_file
, "A %s\n", args
);
462 for (t
= pending_repo
; t
; t
= TREE_CHAIN (t
))
464 tree val
= TREE_VALUE (t
);
465 char type
= IDENTIFIER_REPO_CHOSEN (val
) ? 'C' : 'O';
467 fprintf (repo_file
, "%c %s\n", type
, IDENTIFIER_POINTER (val
));