[binutils.git] / gas / as.c

/* as.c - GAS main program.
   Copyright (C) 1987, 1990, 1991 Free Software Foundation, Inc.
   
   This file is part of GAS, the GNU Assembler.
   
   GAS is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.
   
   GAS is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with GAS; see the file COPYING.  If not, write to
   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */

/*
 * Main program for AS; a 32-bit assembler of GNU.
 * Understands command arguments.
 * Has a few routines that don't fit in other modules because they
 * are shared.
 *
 *
 *			bugs
 *
 * : initialisers
 *	Since no-one else says they will support them in future: I
 * don't support them now.
 *
 */

#include <stdio.h>
#include <string.h>

#ifdef _POSIX_SOURCE
#include <sys/types.h>	/* For pid_t in signal.h */
#endif
#include <signal.h>

#define COMMON

#include "as.h"
#include "subsegs.h"
#ifdef __STDC__

/* This prototype for got_sig() is ansi.  If you want
   anything else, then your compiler is lying to you when
   it says that it is __STDC__.  If you want to change it,
   #ifdef protect it from those of us with real ansi
   compilers. */

#define SIGTY void

static void got_sig(int sig);
static char *stralloc(char *str);
static void perform_an_assembly_pass(int argc, char **argv);

#else /* __STDC__ */

#ifndef SIGTY
#define SIGTY int
#endif

static SIGTY got_sig();
static char *stralloc();	/* Make a (safe) copy of a string. */
static void perform_an_assembly_pass();

#endif /* __STDC__ */

#ifdef DONTDEF
static char * gdb_symbol_file_name;
long gdb_begin();
#endif

int listing; /* true if a listing is wanted */

char *myname;		/* argv[0] */
extern char version_string[];
\f
int main(argc,argv)
int argc;
char **argv;
{
	int work_argc;	/* variable copy of argc */
	char **work_argv;	/* variable copy of argv */
	char *arg;		/* an arg to program */
	char a;		/* an arg flag (after -) */
	static const int sig[] = { SIGHUP, SIGINT, SIGPIPE, SIGTERM, 0};
	
	for(a=0;sig[a]!=0;a++)
	    if(signal(sig[a], SIG_IGN) != SIG_IGN)
		signal(sig[a], got_sig);
	
	myname=argv[0];
	bzero (flagseen, sizeof(flagseen)); /* aint seen nothing yet */
#ifndef OBJ_DEFAULT_OUTPUT_FILE_NAME
#define OBJ_DEFAULT_OUTPUT_FILE_NAME "a.out"
#endif /* OBJ_DEFAULT_OUTPUT_FILE_NAME */
	out_file_name = OBJ_DEFAULT_OUTPUT_FILE_NAME;
	
	symbol_begin();		/* symbols.c */
	subsegs_begin();		/* subsegs.c */
	read_begin();			/* read.c */
	md_begin();			/* MACHINE.c */
	input_scrub_begin();		/* input_scrub.c */
#ifdef DONTDEF
	gdb_symbol_file_name = 0;
#endif
	/*
	 * Parse arguments, but we are only interested in flags.
	 * When we find a flag, we process it then make it's argv[] NULL.
	 * This helps any future argv[] scanners avoid what we processed.
	 * Since it is easy to do here we interpret the special arg "-"
	 * to mean "use stdin" and we set that argv[] pointing to "".
	 * After we have munged argv[], the only things left are source file
	 * name(s) and ""(s) denoting stdin. These file names are used
	 * (perhaps more than once) later.
	 */
	/* FIXME-SOMEDAY this should use getopt. */
	work_argc = argc-1;		/* don't count argv[0] */
	work_argv = argv+1;		/* skip argv[0] */
	for (;work_argc--;work_argv++) {
		arg = * work_argv;	/* work_argv points to this argument */
		
		if (*arg!='-')		/* Filename. We need it later. */
		    continue;	/* Keep scanning args looking for flags. */
		if (arg[1] == '-' && arg[2] == 0) {
			/* "--" as an argument means read STDIN */
			/* on this scan, we don't want to think about filenames */
			* work_argv = "";	/* Code that means 'use stdin'. */
			continue;
		}
		/* This better be a switch. */
		arg ++;		/*->letter. */
		
		while ((a = * arg) != '\0')  {/* scan all the 1-char flags */
			arg ++;	/* arg->after letter. */
			a &= 0x7F;	/* ascii only please */
			/* if (flagseen[a])
			   as_tsktsk("%s: Flag option - %c has already been seen.", myname, a); */
			flagseen[a] = 1;
			switch (a) {
				
			case 'a': 
				{
					int loop =1;
					
					while (loop) {
						switch (*arg) 
						    {
						    case 'l':
							    listing |= LISTING_LISTING;
							    arg++;
							    break;
						    case 's':
							    listing |= LISTING_SYMBOLS;
							    arg++;
							    break;
						    case 'h':
							    listing |= LISTING_HLL;
							    arg++;
							    break;
							    
						    case 'n':
							    listing |= LISTING_NOFORM;
							    arg++;
							    break;
						    case 'd':
							    listing |= LISTING_NODEBUG;
							    arg++;
							    break;
						    default:
							    if (!listing)
								listing= LISTING_DEFAULT;
							    loop = 0;
							    break;
						    }
					}
				}
				
				break;
				
				
			case 'f':
				break;	/* -f means fast - no need for "app" preprocessor. */
				
			case 'D':
				/* DEBUG is implemented: it debugs different */
				/* things to other people's assemblers. */
				break;
				
#ifdef DONTDEF
			case 'G':	/* GNU AS switch: include gdbsyms. */
				if (*arg)	/* Rest of argument is file-name. */
				    gdb_symbol_file_name = stralloc (arg);
				else if (work_argc) {	/* Next argument is file-name. */
					work_argc --;
					* work_argv = NULL; /* Not a source file-name. */
					gdb_symbol_file_name = * ++ work_argv;
				} else
				    as_warn("%s: I expected a filename after -G", myname);
				arg = "";	/* Finished with this arg. */
				break;
#endif
				
			case 'I': { /* Include file directory */
				
				char *temp = NULL;
				if (*arg)
				    temp = stralloc (arg);
				else if (work_argc) {
					* work_argv = NULL;
					work_argc--;
					temp = * ++ work_argv;
				} else
				    as_warn("%s: I expected a filename after -I", myname);
				add_include_dir (temp);
				arg = "";	/* Finished with this arg. */
				break;
			}
				
#ifndef WORKING_DOT_WORD
			case 'k':
				break;
#endif
				
			case 'L': /* -L means keep L* symbols */
				break;
				
			case 'o':
				if (*arg)	/* Rest of argument is object file-name. */
				    out_file_name = stralloc (arg);
				else if (work_argc) {	/* Want next arg for a file-name. */
					* work_argv = NULL; /* This is not a file-name. */
					work_argc--;
					out_file_name = * ++ work_argv;
				} else
				    as_warn("%s: I expected a filename after -o. \"%s\" assumed.", myname, out_file_name);
				arg = "";	/* Finished with this arg. */
				break;
				
			case 'R':
				/* -R means put data into text segment */
				break;
				
			case 'v':
#ifdef	VMS
				{
					extern char *compiler_version_string;
					compiler_version_string = arg;
				}
#else /* not VMS */
				fprintf(stderr,version_string);
				if(*arg && strcmp(arg,"ersion"))
				    as_warn("Unknown -v option ignored");
#endif
				while(*arg) arg++;	/* Skip the rest */
				break;
				
			case 'W':
				/* -W means don't warn about things */
			case 'X':
				/* -X means treat warnings as errors */
			case 'Z':
				/* -Z means attempt to generate object file even after errors. */
				break;
				
			default:
				--arg;
				if(md_parse_option(&arg,&work_argc,&work_argv)==0)
				    as_warn("%s: I don't understand '%c' flag.", myname, a);
				if(arg && *arg)
				    arg++;
				break;
			}
		}
		/*
		 * We have just processed a "-..." arg, which was not a
		 * file-name. Smash it so the
		 * things that look for filenames won't ever see it.
		 *
		 * Whatever work_argv points to, it has already been used
		 * as part of a flag, so DON'T re-use it as a filename.
		 */
		*work_argv = NULL; /* NULL means 'not a file-name' */
	}
#ifdef DONTDEF
	if (gdb_begin(gdb_symbol_file_name) == 0)
	    flagseen ['G'] = 0;	/* Don't do any gdbsym stuff. */
#endif
	/* Here with flags set up in flagseen[]. */
	perform_an_assembly_pass(argc,argv); /* Assemble it. */
#ifdef TC_I960
	brtab_emit();
#endif
	if (seen_at_least_1_file()
	    && !((had_warnings() && flagseen['Z'])
		 || had_errors() > 0)) { 
		write_object_file(); /* relax() addresses then emit object file */
	} /* we also check in write_object_file() just before emit. */
	
	input_scrub_end();
	md_end();			/* MACHINE.c */
	
#ifndef NO_LISTING
	listing_print();
#endif
	
#ifndef	VMS
	return((had_warnings() && flagseen['Z'])
	       || had_errors() > 0);			/* WIN */
#else	/* VMS */
	return(!((had_warnings() && flagseen['Z'])
		 || had_errors() > 0));			/* WIN */
#endif	/* VMS */
	
} /* main() */

\f
/*			perform_an_assembly_pass()
 *
 * Here to attempt 1 pass over each input file.
 * We scan argv[*] looking for filenames or exactly "" which is
 * shorthand for stdin. Any argv that is NULL is not a file-name.
 * We set need_pass_2 TRUE if, after this, we still have unresolved
 * expressions of the form (unknown value)+-(unknown value).
 *
 * Note the un*x semantics: there is only 1 logical input file, but it
 * may be a catenation of many 'physical' input files.
 */
static void perform_an_assembly_pass(argc, argv)
int argc;
char **argv;
{
	int saw_a_file = 0;
	unsigned int i;
	need_pass_2		= 0;
	
#ifdef MANY_SEGMENTS
	
	for (i= SEG_E0; i < SEG_UNKNOWN; i++) 
	    {
		    segment_info[i].fix_root = 0;
	    }
	/* Create the three fixed ones */
	subseg_new (SEG_E0, 0);
	subseg_new (SEG_E1, 0);
	subseg_new (SEG_E2, 0);
	strcpy(segment_info[SEG_E0].scnhdr.s_name,".text");
	strcpy(segment_info[SEG_E1].scnhdr.s_name,".data");
	strcpy(segment_info[SEG_E2].scnhdr.s_name,".bss");
	
	subseg_new (SEG_E0, 0);
#else
	text_fix_root		= NULL;
	data_fix_root		= NULL;
	
	subseg_new (SEG_TEXT, 0);
#endif
	argv++; /* skip argv[0] */
	argc--; /* skip argv[0] */
	while (argc--) {
		if (*argv) { /* Is it a file-name argument? */
			saw_a_file++;
			/* argv->"" if stdin desired, else->filename */
			read_a_source_file(*argv);
		}
		argv++; /* completed that argv */
	}
	if(!saw_a_file)
	    read_a_source_file("");
} /* perform_an_assembly_pass() */
\f
/*
 *			stralloc()
 *
 * Allocate memory for a new copy of a string. Copy the string.
 * Return the address of the new string. Die if there is any error.
 */

static char *
    stralloc (str)
char *	str;
{
	register char *	retval;
	register long len;
	
	len = strlen (str) + 1;
	retval = xmalloc (len);
	(void) strcpy(retval, str);
	return(retval);
}
\f
#ifdef comment
static void lose() {
	as_fatal("%s: 2nd pass not implemented - get your code from random(3)", myname);
	return;
} /* lose() */
#endif /* comment */

static SIGTY
    got_sig(sig)
int sig;
{
	static here_before = 0;
	
	as_bad("Interrupted by signal %d", sig);
	if(here_before++)
	    exit(1);
	return((SIGTY) 0);
}

/*
 * Local Variables:
 * comment-column: 0
 * fill-column: 131
 * End:
 */

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