Commit | Line | Data |
---|---|---|
fecd2382 | 1 | /* as.c - GAS main program. |
3340f7e5 | 2 | Copyright (C) 1987, 1990, 1991, 1992 Free Software Foundation, Inc. |
6efd877d | 3 | |
a39116f1 | 4 | This file is part of GAS, the GNU Assembler. |
6efd877d | 5 | |
a39116f1 RP |
6 | GAS 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. | |
6efd877d | 10 | |
a39116f1 RP |
11 | GAS 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. | |
6efd877d | 15 | |
a39116f1 RP |
16 | You should have received a copy of the GNU General Public License |
17 | along with GAS; see the file COPYING. If not, write to | |
18 | the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
fecd2382 RP |
19 | |
20 | /* | |
21 | * Main program for AS; a 32-bit assembler of GNU. | |
22 | * Understands command arguments. | |
23 | * Has a few routines that don't fit in other modules because they | |
24 | * are shared. | |
25 | * | |
26 | * | |
27 | * bugs | |
28 | * | |
29 | * : initialisers | |
30 | * Since no-one else says they will support them in future: I | |
31 | * don't support them now. | |
32 | * | |
33 | */ | |
34 | ||
35 | #include <stdio.h> | |
36 | #include <string.h> | |
37 | ||
38 | #ifdef _POSIX_SOURCE | |
6efd877d | 39 | #include <sys/types.h> /* For pid_t in signal.h */ |
fecd2382 RP |
40 | #endif |
41 | #include <signal.h> | |
42 | ||
43 | #define COMMON | |
44 | ||
45 | #include "as.h" | |
5d9f0ecf | 46 | #include "subsegs.h" |
3340f7e5 | 47 | #if __STDC__ == 1 |
fecd2382 | 48 | |
a39116f1 RP |
49 | /* This prototype for got_sig() is ansi. If you want |
50 | anything else, then your compiler is lying to you when | |
51 | it says that it is __STDC__. If you want to change it, | |
52 | #ifdef protect it from those of us with real ansi | |
53 | compilers. */ | |
fecd2382 RP |
54 | |
55 | #define SIGTY void | |
56 | ||
6efd877d KR |
57 | static void got_sig (int sig); |
58 | static char *stralloc (char *str); | |
59 | static void perform_an_assembly_pass (int argc, char **argv); | |
fecd2382 RP |
60 | |
61 | #else /* __STDC__ */ | |
62 | ||
63 | #ifndef SIGTY | |
64 | #define SIGTY int | |
65 | #endif | |
66 | ||
6efd877d KR |
67 | static SIGTY got_sig (); |
68 | static char *stralloc (); /* Make a (safe) copy of a string. */ | |
69 | static void perform_an_assembly_pass (); | |
fecd2382 | 70 | |
3340f7e5 | 71 | #endif /* not __STDC__ */ |
fecd2382 RP |
72 | |
73 | #ifdef DONTDEF | |
6efd877d KR |
74 | static char *gdb_symbol_file_name; |
75 | long gdb_begin (); | |
fecd2382 RP |
76 | #endif |
77 | ||
6efd877d | 78 | int listing; /* true if a listing is wanted */ |
5d9f0ecf | 79 | |
6efd877d | 80 | char *myname; /* argv[0] */ |
fecd2382 RP |
81 | extern char version_string[]; |
82 | \f | |
6efd877d KR |
83 | int |
84 | main (argc, argv) | |
85 | int argc; | |
86 | char **argv; | |
fecd2382 | 87 | { |
6efd877d KR |
88 | int work_argc; /* variable copy of argc */ |
89 | char **work_argv; /* variable copy of argv */ | |
90 | char *arg; /* an arg to program */ | |
91 | char a; /* an arg flag (after -) */ | |
92 | static const int sig[] = | |
93 | {SIGHUP, SIGINT, SIGPIPE, SIGTERM, 0}; | |
94 | ||
95 | for (a = 0; sig[a] != 0; a++) | |
96 | if (signal (sig[a], SIG_IGN) != SIG_IGN) | |
97 | signal (sig[a], got_sig); | |
98 | ||
99 | myname = argv[0]; | |
100 | memset (flagseen, '\0', sizeof (flagseen)); /* aint seen nothing yet */ | |
fecd2382 RP |
101 | #ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME |
102 | #define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out" | |
103 | #endif /* OBJ_DEFAULT_OUTPUT_FILE_NAME */ | |
6efd877d KR |
104 | out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME; |
105 | ||
106 | symbol_begin (); /* symbols.c */ | |
107 | subsegs_begin (); /* subsegs.c */ | |
108 | read_begin (); /* read.c */ | |
109 | md_begin (); /* MACHINE.c */ | |
110 | input_scrub_begin (); /* input_scrub.c */ | |
fecd2382 | 111 | #ifdef DONTDEF |
6efd877d | 112 | gdb_symbol_file_name = 0; |
fecd2382 | 113 | #endif |
6efd877d | 114 | /* |
fecd2382 RP |
115 | * Parse arguments, but we are only interested in flags. |
116 | * When we find a flag, we process it then make it's argv[] NULL. | |
117 | * This helps any future argv[] scanners avoid what we processed. | |
118 | * Since it is easy to do here we interpret the special arg "-" | |
119 | * to mean "use stdin" and we set that argv[] pointing to "". | |
120 | * After we have munged argv[], the only things left are source file | |
121 | * name(s) and ""(s) denoting stdin. These file names are used | |
122 | * (perhaps more than once) later. | |
123 | */ | |
6efd877d KR |
124 | /* FIXME-SOMEDAY this should use getopt. */ |
125 | work_argc = argc - 1; /* don't count argv[0] */ | |
126 | work_argv = argv + 1; /* skip argv[0] */ | |
127 | for (; work_argc--; work_argv++) | |
128 | { | |
129 | arg = *work_argv; /* work_argv points to this argument */ | |
130 | ||
131 | if (*arg != '-') /* Filename. We need it later. */ | |
132 | continue; /* Keep scanning args looking for flags. */ | |
133 | if (arg[1] == '-' && arg[2] == 0) | |
134 | { | |
135 | /* "--" as an argument means read STDIN */ | |
136 | /* on this scan, we don't want to think about filenames */ | |
137 | *work_argv = ""; /* Code that means 'use stdin'. */ | |
138 | continue; | |
139 | } | |
140 | /* This better be a switch. */ | |
141 | arg++; /*->letter. */ | |
142 | ||
143 | while ((a = *arg) != '\0') | |
144 | { /* scan all the 1-char flags */ | |
145 | arg++; /* arg->after letter. */ | |
146 | a &= 0x7F; /* ascii only please */ | |
147 | /* if (flagseen[a]) | |
a39116f1 | 148 | as_tsktsk("%s: Flag option - %c has already been seen.", myname, a); */ |
6efd877d KR |
149 | flagseen[a] = 1; |
150 | switch (a) | |
151 | { | |
152 | ||
153 | case 'a': | |
154 | { | |
155 | int loop = 1; | |
156 | ||
157 | while (loop) | |
158 | { | |
159 | switch (*arg) | |
160 | { | |
161 | case 'l': | |
162 | listing |= LISTING_LISTING; | |
163 | arg++; | |
164 | break; | |
165 | case 's': | |
166 | listing |= LISTING_SYMBOLS; | |
167 | arg++; | |
168 | break; | |
169 | case 'h': | |
170 | listing |= LISTING_HLL; | |
171 | arg++; | |
172 | break; | |
173 | ||
174 | case 'n': | |
175 | listing |= LISTING_NOFORM; | |
176 | arg++; | |
177 | break; | |
178 | case 'd': | |
179 | listing |= LISTING_NODEBUG; | |
180 | arg++; | |
181 | break; | |
182 | default: | |
183 | if (!listing) | |
184 | listing = LISTING_DEFAULT; | |
185 | loop = 0; | |
186 | break; | |
187 | } | |
188 | } | |
189 | } | |
190 | ||
191 | break; | |
192 | ||
193 | ||
194 | case 'f': | |
195 | break; /* -f means fast - no need for "app" preprocessor. */ | |
196 | ||
197 | case 'D': | |
198 | /* DEBUG is implemented: it debugs different */ | |
199 | /* things to other people's assemblers. */ | |
200 | break; | |
201 | ||
fecd2382 | 202 | #ifdef DONTDEF |
6efd877d KR |
203 | case 'G': /* GNU AS switch: include gdbsyms. */ |
204 | if (*arg) /* Rest of argument is file-name. */ | |
205 | gdb_symbol_file_name = stralloc (arg); | |
206 | else if (work_argc) | |
207 | { /* Next argument is file-name. */ | |
208 | work_argc--; | |
209 | *work_argv = NULL; /* Not a source file-name. */ | |
210 | gdb_symbol_file_name = *++work_argv; | |
211 | } | |
212 | else | |
213 | as_warn ("%s: I expected a filename after -G", myname); | |
214 | arg = ""; /* Finished with this arg. */ | |
215 | break; | |
216 | #endif | |
217 | ||
218 | case 'I': | |
219 | { /* Include file directory */ | |
220 | ||
221 | char *temp = NULL; | |
222 | if (*arg) | |
223 | temp = stralloc (arg); | |
224 | else if (work_argc) | |
225 | { | |
226 | *work_argv = NULL; | |
227 | work_argc--; | |
228 | temp = *++work_argv; | |
229 | } | |
230 | else | |
231 | as_warn ("%s: I expected a filename after -I", myname); | |
232 | add_include_dir (temp); | |
233 | arg = ""; /* Finished with this arg. */ | |
234 | break; | |
235 | } | |
236 | ||
237 | #ifdef WARN_SIGNED_OVERFLOW_WORD | |
238 | /* Don't warn about signed overflow. */ | |
239 | case 'J': | |
240 | break; | |
fecd2382 | 241 | #endif |
6efd877d | 242 | |
fecd2382 | 243 | #ifndef WORKING_DOT_WORD |
6efd877d KR |
244 | case 'K': |
245 | break; | |
fecd2382 | 246 | #endif |
6efd877d KR |
247 | |
248 | case 'L': /* -L means keep L* symbols */ | |
249 | break; | |
250 | ||
251 | case 'o': | |
252 | if (*arg) /* Rest of argument is object file-name. */ | |
253 | out_file_name = stralloc (arg); | |
254 | else if (work_argc) | |
255 | { /* Want next arg for a file-name. */ | |
256 | *work_argv = NULL; /* This is not a file-name. */ | |
257 | work_argc--; | |
258 | out_file_name = *++work_argv; | |
259 | } | |
260 | else | |
261 | as_warn ("%s: I expected a filename after -o. \"%s\" assumed.", myname, out_file_name); | |
262 | arg = ""; /* Finished with this arg. */ | |
263 | break; | |
264 | ||
265 | case 'R': | |
266 | /* -R means put data into text segment */ | |
267 | break; | |
268 | ||
269 | case 'v': | |
fecd2382 | 270 | #ifdef VMS |
6efd877d KR |
271 | { |
272 | extern char *compiler_version_string; | |
273 | compiler_version_string = arg; | |
274 | } | |
fecd2382 | 275 | #else /* not VMS */ |
6efd877d KR |
276 | fprintf (stderr, version_string); |
277 | if (*arg && strcmp (arg, "ersion")) | |
278 | as_warn ("Unknown -v option ignored"); | |
fecd2382 | 279 | #endif |
6efd877d KR |
280 | while (*arg) |
281 | arg++; /* Skip the rest */ | |
282 | break; | |
283 | ||
284 | case 'W': | |
285 | case 'w': | |
286 | /* -W means don't warn about things */ | |
287 | case 'X': | |
288 | /* -X means treat warnings as errors */ | |
289 | case 'Z': | |
290 | /* -Z means attempt to generate object file even after errors. */ | |
291 | break; | |
292 | ||
293 | default: | |
294 | --arg; | |
295 | if (md_parse_option (&arg, &work_argc, &work_argv) == 0) | |
296 | as_warn ("%s: I don't understand '%c' flag.", myname, a); | |
297 | if (arg && *arg) | |
298 | arg++; | |
299 | break; | |
300 | } | |
301 | } | |
302 | /* | |
fecd2382 RP |
303 | * We have just processed a "-..." arg, which was not a |
304 | * file-name. Smash it so the | |
305 | * things that look for filenames won't ever see it. | |
306 | * | |
307 | * Whatever work_argv points to, it has already been used | |
308 | * as part of a flag, so DON'T re-use it as a filename. | |
309 | */ | |
6efd877d KR |
310 | *work_argv = NULL; /* NULL means 'not a file-name' */ |
311 | } | |
fecd2382 | 312 | #ifdef DONTDEF |
6efd877d KR |
313 | if (gdb_begin (gdb_symbol_file_name) == 0) |
314 | flagseen['G'] = 0; /* Don't do any gdbsym stuff. */ | |
fecd2382 | 315 | #endif |
6efd877d KR |
316 | /* Here with flags set up in flagseen[]. */ |
317 | perform_an_assembly_pass (argc, argv); /* Assemble it. */ | |
fecd2382 | 318 | #ifdef TC_I960 |
6efd877d | 319 | brtab_emit (); |
fecd2382 | 320 | #endif |
6efd877d KR |
321 | if (seen_at_least_1_file () |
322 | && !((had_warnings () && flagseen['Z']) | |
323 | || had_errors () > 0)) | |
324 | { | |
325 | write_object_file (); /* relax() addresses then emit object file */ | |
326 | } /* we also check in write_object_file() just before emit. */ | |
327 | ||
328 | input_scrub_end (); | |
329 | md_end (); /* MACHINE.c */ | |
330 | ||
5d9f0ecf | 331 | #ifndef NO_LISTING |
6efd877d | 332 | listing_print (""); |
5d9f0ecf | 333 | #endif |
6efd877d | 334 | |
fecd2382 | 335 | #ifndef VMS |
6efd877d KR |
336 | return ((had_warnings () && flagseen['Z']) |
337 | || had_errors () > 0);/* WIN */ | |
338 | #else /* VMS */ | |
339 | return (!((had_warnings () && flagseen['Z']) | |
340 | || had_errors () > 0)); /* WIN */ | |
341 | #endif /* VMS */ | |
fecd2382 | 342 | |
6efd877d | 343 | } /* main() */ |
fecd2382 | 344 | \f |
6efd877d | 345 | |
fecd2382 RP |
346 | /* perform_an_assembly_pass() |
347 | * | |
348 | * Here to attempt 1 pass over each input file. | |
349 | * We scan argv[*] looking for filenames or exactly "" which is | |
350 | * shorthand for stdin. Any argv that is NULL is not a file-name. | |
351 | * We set need_pass_2 TRUE if, after this, we still have unresolved | |
352 | * expressions of the form (unknown value)+-(unknown value). | |
353 | * | |
354 | * Note the un*x semantics: there is only 1 logical input file, but it | |
355 | * may be a catenation of many 'physical' input files. | |
356 | */ | |
6efd877d KR |
357 | static void |
358 | perform_an_assembly_pass (argc, argv) | |
359 | int argc; | |
360 | char **argv; | |
fecd2382 | 361 | { |
6efd877d KR |
362 | int saw_a_file = 0; |
363 | unsigned int i; | |
364 | need_pass_2 = 0; | |
365 | ||
5d9f0ecf | 366 | #ifdef MANY_SEGMENTS |
e6498b10 | 367 | |
6efd877d KR |
368 | |
369 | for (i = SEG_E0; i < SEG_UNKNOWN; i++) | |
370 | { | |
371 | segment_info[i].fix_root = 0; | |
372 | } | |
373 | /* Create the three fixed ones */ | |
374 | subseg_new (SEG_E0, 0); | |
375 | subseg_new (SEG_E1, 0); | |
376 | subseg_new (SEG_E2, 0); | |
377 | strcpy (segment_info[SEG_E0].scnhdr.s_name, ".text"); | |
378 | strcpy (segment_info[SEG_E1].scnhdr.s_name, ".data"); | |
379 | strcpy (segment_info[SEG_E2].scnhdr.s_name, ".bss"); | |
380 | ||
381 | subseg_new (SEG_E0, 0); | |
e6498b10 | 382 | #else /* not MANY_SEGMENTS */ |
6efd877d KR |
383 | text_fix_root = NULL; |
384 | data_fix_root = NULL; | |
385 | bss_fix_root = NULL; | |
386 | ||
387 | subseg_new (SEG_TEXT, 0); | |
e6498b10 RP |
388 | #endif /* not MANY_SEGMENTS */ |
389 | ||
6efd877d KR |
390 | argv++; /* skip argv[0] */ |
391 | argc--; /* skip argv[0] */ | |
392 | while (argc--) | |
393 | { | |
394 | if (*argv) | |
395 | { /* Is it a file-name argument? */ | |
396 | saw_a_file++; | |
397 | /* argv->"" if stdin desired, else->filename */ | |
398 | read_a_source_file (*argv); | |
a39116f1 | 399 | } |
6efd877d KR |
400 | argv++; /* completed that argv */ |
401 | } | |
402 | if (!saw_a_file) | |
403 | read_a_source_file (""); | |
404 | } /* perform_an_assembly_pass() */ | |
fecd2382 RP |
405 | \f |
406 | /* | |
407 | * stralloc() | |
408 | * | |
409 | * Allocate memory for a new copy of a string. Copy the string. | |
410 | * Return the address of the new string. Die if there is any error. | |
411 | */ | |
412 | ||
413 | static char * | |
6efd877d KR |
414 | stralloc (str) |
415 | char *str; | |
fecd2382 | 416 | { |
6efd877d KR |
417 | register char *retval; |
418 | register long len; | |
419 | ||
420 | len = strlen (str) + 1; | |
421 | retval = xmalloc (len); | |
422 | (void) strcpy (retval, str); | |
423 | return (retval); | |
fecd2382 RP |
424 | } |
425 | \f | |
426 | #ifdef comment | |
6efd877d KR |
427 | static void |
428 | lose () | |
429 | { | |
430 | as_fatal ("%s: 2nd pass not implemented - get your code from random(3)", myname); | |
431 | return; | |
432 | } /* lose() */ | |
433 | ||
fecd2382 RP |
434 | #endif /* comment */ |
435 | ||
436 | static SIGTY | |
6efd877d KR |
437 | got_sig (sig) |
438 | int sig; | |
fecd2382 | 439 | { |
6efd877d KR |
440 | static here_before = 0; |
441 | ||
442 | as_bad ("Interrupted by signal %d", sig); | |
443 | if (here_before++) | |
444 | exit (1); | |
445 | return ((SIGTY) 0); | |
fecd2382 RP |
446 | } |
447 | ||
448 | /* | |
449 | * Local Variables: | |
450 | * comment-column: 0 | |
451 | * fill-column: 131 | |
452 | * End: | |
453 | */ | |
454 | ||
a39116f1 | 455 | /* end of as.c */ |