Commit | Line | Data |
---|---|---|
8b351884 TG |
1 | # This shell script emits a C file. -*- C -*- |
2 | # Copyright 2010 | |
3 | # Free Software Foundation, Inc. | |
4 | # | |
5 | # This file is part of the GNU Binutils. | |
6 | # | |
7 | # This program 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 3 of the License, or | |
10 | # (at your option) any later version. | |
11 | # | |
12 | # This program 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. | |
16 | # | |
17 | # You should have received a copy of the GNU General Public License | |
18 | # along with this program; if not, write to the Free Software | |
19 | # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, | |
20 | # MA 02110-1301, USA. | |
21 | # | |
22 | ||
23 | # This file is sourced from generic.em. | |
24 | ||
25 | fragment <<EOF | |
45cfb56c TG |
26 | #include "getopt.h" |
27 | ||
8b351884 TG |
28 | static void |
29 | gld${EMULATION_NAME}_before_parse (void) | |
30 | { | |
31 | ldfile_set_output_arch ("${ARCH}", bfd_arch_`echo ${ARCH} | sed -e 's/:.*//'`); | |
32 | config.dynamic_link = TRUE; | |
33 | config.has_shared = FALSE; /* Not yet. */ | |
34 | } | |
35 | ||
36 | /* This is called before the input files are opened. We add the | |
37 | standard library. */ | |
38 | ||
39 | static void | |
40 | gld${EMULATION_NAME}_create_output_section_statements (void) | |
41 | { | |
42 | lang_add_input_file ("imagelib", lang_input_file_is_l_enum, NULL); | |
43 | lang_add_input_file ("starlet", lang_input_file_is_l_enum, NULL); | |
44 | lang_add_input_file ("sys\$public_vectors", lang_input_file_is_l_enum, NULL); | |
45 | } | |
46 | ||
47 | /* Try to open a dynamic archive. This is where we know that VMS | |
48 | shared images (dynamic libraries) have an extension of .exe. */ | |
49 | ||
50 | static bfd_boolean | |
51 | gld${EMULATION_NAME}_open_dynamic_archive (const char *arch ATTRIBUTE_UNUSED, | |
52 | search_dirs_type *search, | |
53 | lang_input_statement_type *entry) | |
54 | { | |
55 | char *string; | |
56 | ||
b7f95647 | 57 | if (! entry->maybe_archive) |
8b351884 TG |
58 | return FALSE; |
59 | ||
60 | string = (char *) xmalloc (strlen (search->name) | |
61 | + strlen (entry->filename) | |
62 | + sizeof "/.exe"); | |
63 | ||
64 | sprintf (string, "%s/%s.exe", search->name, entry->filename); | |
65 | ||
66 | if (! ldfile_try_open_bfd (string, entry)) | |
67 | { | |
68 | free (string); | |
69 | return FALSE; | |
70 | } | |
71 | ||
72 | entry->filename = string; | |
73 | ||
74 | return TRUE; | |
75 | } | |
76 | ||
77 | static int | |
78 | gld${EMULATION_NAME}_find_potential_libraries | |
79 | (char *name, lang_input_statement_type *entry) | |
80 | { | |
81 | return ldfile_open_file_search (name, entry, "", ".olb"); | |
82 | } | |
83 | ||
84 | /* Place an orphan section. We use this to put random OVR sections. | |
85 | Much borrowed from elf32.em. */ | |
86 | ||
87 | static lang_output_section_statement_type * | |
88 | vms_place_orphan (asection *s, | |
89 | const char *secname ATTRIBUTE_UNUSED, | |
90 | int constraint ATTRIBUTE_UNUSED) | |
91 | { | |
92 | static struct orphan_save hold_data = | |
93 | { | |
94 | "\$DATA\$", | |
95 | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_DATA, | |
96 | 0, 0, 0, 0 | |
97 | }; | |
98 | ||
46d00b8a TG |
99 | /* We have nothing to say for anything other than a final link or an excluded |
100 | section. */ | |
8b351884 TG |
101 | if (link_info.relocatable |
102 | || (s->flags & (SEC_EXCLUDE | SEC_LOAD)) != SEC_LOAD) | |
103 | return NULL; | |
104 | ||
46d00b8a TG |
105 | /* FIXME: we should place sections by VMS program section flags. */ |
106 | ||
8b351884 TG |
107 | /* Only handle data sections. */ |
108 | if ((s->flags & SEC_DATA) == 0) | |
109 | return NULL; | |
110 | ||
111 | if (hold_data.os == NULL) | |
112 | hold_data.os = lang_output_section_find (hold_data.name); | |
113 | ||
114 | if (hold_data.os != NULL) | |
115 | { | |
116 | lang_add_section (&hold_data.os->children, s, hold_data.os); | |
117 | return hold_data.os; | |
118 | } | |
119 | else | |
120 | return NULL; | |
121 | } | |
45cfb56c TG |
122 | |
123 | /* VMS specific options. */ | |
124 | #define OPTION_IDENTIFICATION (300 + 1) | |
125 | ||
126 | static void | |
127 | gld${EMULATION_NAME}_add_options | |
128 | (int ns ATTRIBUTE_UNUSED, | |
129 | char **shortopts ATTRIBUTE_UNUSED, | |
130 | int nl, | |
131 | struct option **longopts, | |
132 | int nrl ATTRIBUTE_UNUSED, | |
133 | struct option **really_longopts ATTRIBUTE_UNUSED) | |
134 | { | |
135 | static const struct option xtra_long[] = { | |
136 | {"identification", required_argument, NULL, OPTION_IDENTIFICATION}, | |
137 | {NULL, no_argument, NULL, 0} | |
138 | }; | |
139 | ||
140 | *longopts | |
141 | = xrealloc (*longopts, nl * sizeof (struct option) + sizeof (xtra_long)); | |
142 | memcpy (*longopts + nl, &xtra_long, sizeof (xtra_long)); | |
143 | } | |
144 | ||
145 | static void | |
146 | gld${EMULATION_NAME}_list_options (FILE *file) | |
147 | { | |
148 | fprintf (file, _(" --identification <string> Set the identification of the output\n")); | |
149 | } | |
150 | ||
151 | static bfd_boolean | |
152 | gld${EMULATION_NAME}_handle_option (int optc) | |
153 | { | |
154 | switch (optc) | |
155 | { | |
156 | default: | |
157 | return FALSE; | |
158 | ||
159 | case OPTION_IDENTIFICATION: | |
160 | /* Currently ignored. */ | |
161 | break; | |
162 | } | |
163 | ||
164 | return TRUE; | |
165 | } | |
166 | ||
8b351884 TG |
167 | EOF |
168 | ||
169 | LDEMUL_PLACE_ORPHAN=vms_place_orphan | |
170 | LDEMUL_BEFORE_PARSE=gld"$EMULATION_NAME"_before_parse | |
171 | LDEMUL_CREATE_OUTPUT_SECTION_STATEMENTS=gld"$EMULATION_NAME"_create_output_section_statements | |
172 | LDEMUL_FIND_POTENTIAL_LIBRARIES=gld"$EMULATION_NAME"_find_potential_libraries | |
173 | LDEMUL_OPEN_DYNAMIC_ARCHIVE=gld"$EMULATION_NAME"_open_dynamic_archive | |
45cfb56c TG |
174 | LDEMUL_ADD_OPTIONS=gld"$EMULATION_NAME"_add_options |
175 | LDEMUL_HANDLE_OPTION=gld"$EMULATION_NAME"_handle_option | |
176 | LDEMUL_LIST_OPTIONS=gld"$EMULATION_NAME"_list_options |