1 /* Code to maintain a C++ template repository.
2 Copyright (C) 1995, 96-97, 1998 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 PROTO((tree));
38 static char *extract_string PROTO((char **));
39 static char *get_base_filename PROTO((const char *));
40 static void open_repo_file PROTO((const char *));
41 static char *afgets PROTO((FILE *));
42 static void reopen_repo_file_for_write PROTO((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 extern 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)
98 if (TREE_CODE_CLASS (TREE_CODE (t)) == 't')
100 /* If we're not done setting up the class, we may not have set up
101 the vtable, so going ahead would give the wrong answer.
102 See g++.pt/instantiate4.C. */
103 if (TYPE_SIZE (t) == NULL_TREE || TYPE_BEING_DEFINED (t))
104 my_friendly_abort (981113);
106 t = TYPE_BINFO_VTABLE (t);
110 return DECL_ASSEMBLER_NAME (t);
113 /* Note that a template has been used. If we can see the definition, offer
117 repo_template_used (t)
122 if (! flag_use_repository)
125 id = repo_get_id (t);
129 if (TREE_CODE_CLASS (TREE_CODE (t)) == 't')
131 if (IDENTIFIER_REPO_CHOSEN (id))
132 mark_class_instantiated (t, 0);
134 else if (TREE_CODE_CLASS (TREE_CODE (t)) == 'd')
136 if (IDENTIFIER_REPO_CHOSEN (id))
137 mark_decl_instantiated (t, 0);
140 my_friendly_abort (1);
142 if (! IDENTIFIER_REPO_USED (id))
144 IDENTIFIER_REPO_USED (id) = 1;
145 pending_repo = perm_tree_cons (NULL_TREE, id, pending_repo);
150 /* Note that the vtable for a class has been used, and offer to emit it. */
156 if (! flag_use_repository)
159 pending_repo = perm_tree_cons (NULL_TREE, t, pending_repo);
162 /* Note that an inline with external linkage has been used, and offer to
166 repo_inline_used (fn)
169 if (! flag_use_repository)
172 /* Member functions of polymorphic classes go with their vtables. */
173 if (DECL_FUNCTION_MEMBER_P (fn) && TYPE_VIRTUAL_P (DECL_CLASS_CONTEXT (fn)))
175 repo_vtable_used (DECL_CLASS_CONTEXT (fn));
179 pending_repo = perm_tree_cons (NULL_TREE, fn, pending_repo);
182 /* Note that a particular typeinfo node has been used, and offer to
193 repo_template_instantiated (t, extern_p)
199 tree id = repo_get_id (t);
201 IDENTIFIER_REPO_CHOSEN (id) = 1;
205 /* Parse a reasonable subset of shell quoting syntax. */
222 obstack_1grow (&temporary_obstack, c);
223 else if (! inside && c == ' ')
225 else if (! inside && c == '\\')
230 obstack_1grow (&temporary_obstack, c);
233 obstack_1grow (&temporary_obstack, '\0');
235 return obstack_finish (&temporary_obstack);
239 get_base_filename (filename)
240 const char *filename;
242 char *p = getenv ("COLLECT_GCC_OPTIONS");
248 char *q = extract_string (&p);
250 if (strcmp (q, "-o") == 0)
251 output = extract_string (&p);
252 else if (strcmp (q, "-c") == 0)
256 if (compiling && output)
259 if (p && ! compiling)
261 warning ("-frepo must be used with -c");
262 flag_use_repository = 0;
266 return file_name_nondirectory (filename);
270 open_repo_file (filename)
271 const char *filename;
273 register const char *p;
274 const char *s = get_base_filename (filename);
279 p = file_name_nondirectory (s);
284 obstack_grow (&permanent_obstack, s, p - s);
285 repo_name = obstack_copy0 (&permanent_obstack, ".rpo", 4);
287 repo_file = fopen (repo_name, "r");
295 while ((c = getc (stream)) != EOF && c != '\n')
296 obstack_1grow (&temporary_obstack, c);
297 if (obstack_object_size (&temporary_obstack) == 0)
299 obstack_1grow (&temporary_obstack, '\0');
300 return obstack_finish (&temporary_obstack);
305 const char *filename;
309 if (! flag_use_repository)
312 ggc_add_tree_root (&pending_repo, 1);
313 ggc_add_tree_root (&original_repo, 1);
315 open_repo_file (filename);
320 while ((buf = afgets (repo_file)))
325 old_args = obstack_copy0 (&permanent_obstack, buf + 2,
329 old_dir = obstack_copy0 (&permanent_obstack, buf + 2,
333 old_main = obstack_copy0 (&permanent_obstack, buf + 2,
339 tree id = get_identifier (buf + 2);
344 IDENTIFIER_REPO_CHOSEN (id) = 1;
345 orig = integer_one_node;
350 original_repo = perm_tree_cons (orig, id, original_repo);
354 error ("mysterious repository information in %s", repo_name);
356 obstack_free (&temporary_obstack, buf);
361 reopen_repo_file_for_write ()
365 repo_file = fopen (repo_name, "w");
369 error ("can't create repository information file `%s'", repo_name);
370 flag_use_repository = 0;
374 /* Emit any pending repos. */
380 int repo_changed = 0;
383 if (! flag_use_repository)
386 /* Do we have to write out a new info file? */
388 /* Are there any old templates that aren't used any longer or that are
391 for (t = original_repo; t; t = TREE_CHAIN (t))
393 if (! IDENTIFIER_REPO_USED (TREE_VALUE (t))
394 || (! TREE_PURPOSE (t) && IDENTIFIER_REPO_CHOSEN (TREE_VALUE (t))))
399 IDENTIFIER_REPO_USED (TREE_VALUE (t)) = 0;
402 /* Are there any templates that are newly used? */
405 for (t = pending_repo; t; t = TREE_CHAIN (t))
407 if (IDENTIFIER_REPO_USED (TREE_VALUE (t)))
415 args = getenv ("COLLECT_GCC_OPTIONS");
417 if (! repo_changed && pending_repo)
418 if (strcmp (old_main, main_input_filename) != 0
419 || strcmp (old_dir, dir) != 0
420 || (args == NULL) != (old_args == NULL)
421 || (args && strcmp (old_args, args) != 0))
424 if (! repo_changed || errorcount || sorrycount)
427 reopen_repo_file_for_write ();
432 fprintf (repo_file, "M %s\n", main_input_filename);
433 fprintf (repo_file, "D %s\n", dir);
435 fprintf (repo_file, "A %s\n", args);
437 for (t = pending_repo; t; t = TREE_CHAIN (t))
439 tree val = TREE_VALUE (t);
440 char type = IDENTIFIER_REPO_CHOSEN (val) ? 'C' : 'O';
442 fprintf (repo_file, "%c %s\n", type, IDENTIFIER_POINTER (val));