Merge from gomp branch:
[official-gcc.git] / gcc / treelang / spec.c
blob79178548b1ad2c57bf41b22ed9853d663ffb9767
1 /* Specific flags and argument handling of the Treelang front-end.
2 Copyright (C) 2005 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GNU CC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
11 GNU CC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU CC; see the file COPYING. If not, write to
18 the Free Software Foundation, 51 Franklin Street, Fifth Floor,
19 Boston, MA 02110-1301, USA. */
21 #include "config.h"
22 #include "system.h"
23 #include "gcc.h"
25 #include "coretypes.h"
26 #include "tm.h"
28 void
29 lang_specific_driver (int *in_argc, const char *const **in_argv,
30 int *in_added_libraries ATTRIBUTE_UNUSED)
32 int argc = *in_argc, i;
33 const char *const *argv = *in_argv;
35 for (i = 1; i < argc; ++i)
37 if (!strcmp (argv[i], "-fversion")) /* Really --version!! */
39 printf ("\
40 GNU Treelang (GCC %s)\n\
41 Copyright (C) 2005 Free Software Foundation, Inc.\n\
42 \n\
43 GNU Treelang comes with NO WARRANTY, to the extent permitted by law.\n\
44 You may redistribute copies of GNU Treelang\n\
45 under the terms of the GNU General Public License.\n\
46 For more information about these matters, see the file named COPYING\n\
47 ", version_string);
48 exit (0);
53 /* Called before linking. Returns 0 on success and -1 on failure. */
54 int
55 lang_specific_pre_link (void) /* Not used for Treelang. */
57 return 0;
60 /* Number of extra output files that lang_specific_pre_link may generate. */
61 int lang_specific_extra_outfiles = 0; /* Not used for Treelang. */