blob: 6e119ebf1aea413c7b7eadafec0fc3793adfb800 [file] [log] [blame]
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001/* The Netwide Assembler main program module
2 *
3 * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
4 * Julian Hall. All rights reserved. The software is
Beroset095e6a22007-12-29 09:44:23 -05005 * redistributable under the license given in the file "LICENSE"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00006 * distributed in the NASM archive.
7 */
8
H. Peter Anvinfe501952007-10-02 21:53:51 -07009#include "compiler.h"
10
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000011#include <stdio.h>
12#include <stdarg.h>
13#include <stdlib.h>
14#include <string.h>
15#include <ctype.h>
Keith Kaniosb7a89542007-04-12 02:40:54 +000016#include <inttypes.h>
H. Peter Anvinfd7dd112007-10-10 14:06:59 -070017#include <limits.h>
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -080018#include <time.h>
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000019
20#include "nasm.h"
21#include "nasmlib.h"
H. Peter Anvin1803ded2008-06-09 17:32:43 -070022#include "saa.h"
H. Peter Anvinfcb89092008-06-09 17:40:16 -070023#include "raa.h"
H. Peter Anvinf6c9e652007-10-16 14:40:27 -070024#include "float.h"
H. Peter Anvin74cc5e52007-08-30 22:35:34 +000025#include "stdscan.h"
H. Peter Anvinaf535c12002-04-30 20:59:21 +000026#include "insns.h"
H. Peter Anvind7ed89e2002-04-30 20:52:08 +000027#include "preproc.h"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000028#include "parser.h"
H. Peter Anvin76690a12002-04-30 20:52:49 +000029#include "eval.h"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000030#include "assemble.h"
31#include "labels.h"
32#include "outform.h"
H. Peter Anvin6768eb72002-04-30 20:52:26 +000033#include "listing.h"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000034
H. Peter Anvine2c80182005-01-15 22:15:51 +000035struct forwrefinfo { /* info held on forward refs. */
H. Peter Anvineba20a72002-04-30 20:53:55 +000036 int lineno;
37 int operand;
38};
39
Keith Kaniosa6dfa782007-04-13 16:47:53 +000040static int get_bits(char *value);
41static uint32_t get_cpu(char *cpu_str);
42static void parse_cmdline(int, char **);
H. Peter Anvin9e1f5282008-05-29 21:38:00 -070043static void assemble_file(char *, StrList **);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000044static void register_output_formats(void);
Keith Kaniosa6dfa782007-04-13 16:47:53 +000045static void report_error_gnu(int severity, const char *fmt, ...);
46static void report_error_vc(int severity, const char *fmt, ...);
47static void report_error_common(int severity, const char *fmt,
H. Peter Anvine2c80182005-01-15 22:15:51 +000048 va_list args);
H. Peter Anvin2b046cf2008-01-22 14:08:36 -080049static bool is_suppressed_warning(int severity);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000050static void usage(void);
Ed Berosetfa771012002-06-09 20:56:40 +000051static efunc report_error;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000052
John Coffman0efaec92002-05-26 19:20:08 +000053static int using_debug_info, opt_verbose_info;
H. Peter Anvin6867acc2007-10-10 14:58:45 -070054bool tasm_compatible_mode = false;
H. Peter Anvin00835fe2008-01-08 23:03:57 -080055int pass0, passn;
Keith Kaniosb7a89542007-04-12 02:40:54 +000056int maxbits = 0;
H. Peter Anvin99c4ecd2007-08-28 23:06:00 +000057int globalrel = 0;
H. Peter Anvineba20a72002-04-30 20:53:55 +000058
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -080059time_t official_compile_time;
60
Keith Kaniosa6dfa782007-04-13 16:47:53 +000061static char inname[FILENAME_MAX];
62static char outname[FILENAME_MAX];
63static char listname[FILENAME_MAX];
Charles Craynefcce07f2007-09-30 22:15:36 -070064static char errname[FILENAME_MAX];
H. Peter Anvine2c80182005-01-15 22:15:51 +000065static int globallineno; /* for forward-reference tracking */
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +000066/* static int pass = 0; */
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000067static struct ofmt *ofmt = NULL;
68
H. Peter Anvine2c80182005-01-15 22:15:51 +000069static FILE *error_file; /* Where to write error messages */
H. Peter Anvin620515a2002-04-30 20:57:38 +000070
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000071static FILE *ofile = NULL;
H. Peter Anvine2c80182005-01-15 22:15:51 +000072int optimizing = -1; /* number of optimization passes to take */
73static int sb, cmd_sb = 16; /* by default */
Keith Kaniosb7a89542007-04-12 02:40:54 +000074static uint32_t cmd_cpu = IF_PLEVEL; /* highest level by default */
75static uint32_t cpu = IF_PLEVEL; /* passed to insn_size & assemble.c */
H. Peter Anvin70055962007-10-11 00:05:31 -070076bool global_offset_changed; /* referenced in labels.c */
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000077
H. Peter Anvin12e46512007-10-03 21:30:57 -070078static struct location location;
H. Peter Anvine2c80182005-01-15 22:15:51 +000079int in_abs_seg; /* Flag we are in ABSOLUTE seg */
Keith Kaniosb7a89542007-04-12 02:40:54 +000080int32_t abs_seg; /* ABSOLUTE segment basis */
81int32_t abs_offset; /* ABSOLUTE offset */
H. Peter Anvin6768eb72002-04-30 20:52:26 +000082
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000083static struct RAA *offsets;
H. Peter Anvinea838272002-04-30 20:51:53 +000084
H. Peter Anvine2c80182005-01-15 22:15:51 +000085static struct SAA *forwrefs; /* keep track of forward references */
H. Peter Anvin9d637df2007-10-04 13:42:56 -070086static const struct forwrefinfo *forwref;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000087
H. Peter Anvind7ed89e2002-04-30 20:52:08 +000088static Preproc *preproc;
H. Peter Anvin620515a2002-04-30 20:57:38 +000089enum op_type {
H. Peter Anvine2c80182005-01-15 22:15:51 +000090 op_normal, /* Preprocess and assemble */
91 op_preprocess, /* Preprocess only */
H. Peter Anvin37a321f2007-09-24 13:41:58 -070092 op_depend, /* Generate dependencies */
H. Peter Anvin620515a2002-04-30 20:57:38 +000093};
94static enum op_type operating_mode;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -070095/* Dependency flags */
H. Peter Anvin9e1f5282008-05-29 21:38:00 -070096static bool depend_emit_phony = false;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -070097static bool depend_missing_ok = false;
98static const char *depend_target = NULL;
99static const char *depend_file = NULL;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000100
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000101/*
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000102 * Which of the suppressible warnings are suppressed. Entry zero
H. Peter Anvinb030c922007-11-13 11:31:15 -0800103 * isn't an actual warning, but it used for -w+error/-Werror.
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000104 */
Victor van den Elzen819703a2008-07-16 15:20:56 +0200105static bool suppressed[ERR_WARN_MAX+1];
106
107static bool suppressed_global[ERR_WARN_MAX+1] = {
H. Peter Anvinc68ec012007-11-13 11:34:34 -0800108 true, false, true, false, false, true, false, true, true, false
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000109};
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000110/*
111 * The option names for the suppressible warnings. As before, entry
112 * zero does nothing.
113 */
H. Peter Anvinb030c922007-11-13 11:31:15 -0800114static const char *suppressed_names[ERR_WARN_MAX+1] = {
115 "error", "macro-params", "macro-selfref", "orphan-labels",
H. Peter Anvin125c8782007-10-16 11:32:58 -0700116 "number-overflow", "gnu-elf-extensions", "float-overflow",
117 "float-denorm", "float-underflow", "float-toolong"
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000118};
119
120/*
121 * The explanations for the suppressible warnings. As before, entry
122 * zero does nothing.
123 */
H. Peter Anvinb030c922007-11-13 11:31:15 -0800124static const char *suppressed_what[ERR_WARN_MAX+1] = {
125 "treat warnings as errors",
H. Peter Anvinc68ec012007-11-13 11:34:34 -0800126 "macro calls with wrong parameter count",
127 "cyclic macro references",
H. Peter Anvin76690a12002-04-30 20:52:49 +0000128 "labels alone on lines without trailing `:'",
H. Peter Anvinc68ec012007-11-13 11:34:34 -0800129 "numeric constants does not fit in 64 bits",
H. Peter Anvinfab3a6c2007-10-16 11:48:07 -0700130 "using 8- or 16-bit relocation in ELF32, a GNU extension",
H. Peter Anvin125c8782007-10-16 11:32:58 -0700131 "floating point overflow",
132 "floating point denormal",
133 "floating point underflow",
H. Peter Anvinfab3a6c2007-10-16 11:48:07 -0700134 "too many digits in floating-point number"
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000135};
136
137/*
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000138 * This is a null preprocessor which just copies lines from input
139 * to output. It's used when someone explicitly requests that NASM
140 * not preprocess their source file.
141 */
142
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700143static void no_pp_reset(char *, int, efunc, evalfunc, ListGen *, StrList **);
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000144static char *no_pp_getline(void);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000145static void no_pp_cleanup(int);
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000146static Preproc no_pp = {
147 no_pp_reset,
148 no_pp_getline,
149 no_pp_cleanup
150};
151
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000152/*
153 * get/set current offset...
154 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +0000155#define GET_CURR_OFFS (in_abs_seg?abs_offset:\
H. Peter Anvineba20a72002-04-30 20:53:55 +0000156 raa_read(offsets,location.segment))
H. Peter Anvinaf535c12002-04-30 20:59:21 +0000157#define SET_CURR_OFFS(x) (in_abs_seg?(void)(abs_offset=(x)):\
H. Peter Anvineba20a72002-04-30 20:53:55 +0000158 (void)(offsets=raa_write(offsets,location.segment,(x))))
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000159
160static int want_usage;
161static int terminate_after_phase;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000162int user_nolist = 0; /* fbk 9/2/00 */
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000163
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000164static void nasm_fputs(const char *line, FILE * outfile)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000165{
H. Peter Anvin310b3e12002-05-14 22:38:55 +0000166 if (outfile) {
H. Peter Anvine2c80182005-01-15 22:15:51 +0000167 fputs(line, outfile);
H. Peter Anvind1fb15c2007-11-13 09:37:59 -0800168 putc('\n', outfile);
H. Peter Anvineba20a72002-04-30 20:53:55 +0000169 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +0000170 puts(line);
H. Peter Anvineba20a72002-04-30 20:53:55 +0000171}
172
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800173/* Convert a struct tm to a POSIX-style time constant */
174static int64_t posix_mktime(struct tm *tm)
175{
176 int64_t t;
177 int64_t y = tm->tm_year;
178
179 /* See IEEE 1003.1:2004, section 4.14 */
180
181 t = (y-70)*365 + (y-69)/4 - (y-1)/100 + (y+299)/400;
182 t += tm->tm_yday;
183 t *= 24;
184 t += tm->tm_hour;
185 t *= 60;
186 t += tm->tm_min;
187 t *= 60;
188 t += tm->tm_sec;
189
190 return t;
191}
192
193static void define_macros_early(void)
194{
195 char temp[128];
196 struct tm lt, *lt_p, gm, *gm_p;
197 int64_t posix_time;
198
199 lt_p = localtime(&official_compile_time);
200 if (lt_p) {
201 lt = *lt_p;
202
203 strftime(temp, sizeof temp, "__DATE__=\"%Y-%m-%d\"", &lt);
204 pp_pre_define(temp);
205 strftime(temp, sizeof temp, "__DATE_NUM__=%Y%m%d", &lt);
206 pp_pre_define(temp);
207 strftime(temp, sizeof temp, "__TIME__=\"%H:%M:%S\"", &lt);
208 pp_pre_define(temp);
209 strftime(temp, sizeof temp, "__TIME_NUM__=%H%M%S", &lt);
210 pp_pre_define(temp);
211 }
212
213 gm_p = gmtime(&official_compile_time);
214 if (gm_p) {
215 gm = *gm_p;
216
217 strftime(temp, sizeof temp, "__UTC_DATE__=\"%Y-%m-%d\"", &gm);
218 pp_pre_define(temp);
219 strftime(temp, sizeof temp, "__UTC_DATE_NUM__=%Y%m%d", &gm);
220 pp_pre_define(temp);
221 strftime(temp, sizeof temp, "__UTC_TIME__=\"%H:%M:%S\"", &gm);
222 pp_pre_define(temp);
223 strftime(temp, sizeof temp, "__UTC_TIME_NUM__=%H%M%S", &gm);
224 pp_pre_define(temp);
225 }
H. Peter Anvind85d2502008-05-04 17:53:31 -0700226
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800227 if (gm_p)
228 posix_time = posix_mktime(&gm);
229 else if (lt_p)
230 posix_time = posix_mktime(&lt);
231 else
232 posix_time = 0;
233
234 if (posix_time) {
235 snprintf(temp, sizeof temp, "__POSIX_TIME__=%"PRId64, posix_time);
236 pp_pre_define(temp);
237 }
238}
239
240static void define_macros_late(void)
241{
242 char temp[128];
243
244 snprintf(temp, sizeof(temp), "__OUTPUT_FORMAT__=%s\n",
245 ofmt->shortname);
246 pp_pre_define(temp);
247}
248
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700249static void emit_dependencies(StrList *list)
250{
251 FILE *deps;
252 int linepos, len;
253 StrList *l, *nl;
254
255 if (depend_file && strcmp(depend_file, "-")) {
256 deps = fopen(depend_file, "w");
257 if (!deps) {
258 report_error(ERR_NONFATAL|ERR_NOFILE|ERR_USAGE,
259 "unable to write dependency file `%s'", depend_file);
260 return;
261 }
262 } else {
263 deps = stdout;
264 }
265
266 linepos = fprintf(deps, "%s:", depend_target);
267 for (l = list; l; l = l->next) {
268 len = strlen(l->str);
269 if (linepos + len > 62) {
270 fprintf(deps, " \\\n ");
271 linepos = 1;
272 }
273 fprintf(deps, " %s", l->str);
274 linepos += len+1;
275 }
276 fprintf(deps, "\n\n");
277
278 for (l = list; l; l = nl) {
279 if (depend_emit_phony)
280 fprintf(deps, "%s:\n\n", l->str);
281
282 nl = l->next;
283 nasm_free(l);
284 }
285
286 if (deps != stdout)
287 fclose(deps);
288}
289
H. Peter Anvin038d8612007-04-12 16:54:50 +0000290int main(int argc, char **argv)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000291{
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700292 StrList *depend_list = NULL, **depend_ptr;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700293
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800294 time(&official_compile_time);
295
Ed Berosetfa771012002-06-09 20:56:40 +0000296 pass0 = 1;
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700297 want_usage = terminate_after_phase = false;
Ed Berosetfa771012002-06-09 20:56:40 +0000298 report_error = report_error_gnu;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000299
H. Peter Anvin97e15752007-09-25 08:47:47 -0700300 error_file = stderr;
301
H. Peter Anvinac8f8fc2008-06-11 15:49:41 -0700302 tolower_init();
303
H. Peter Anvine2c80182005-01-15 22:15:51 +0000304 nasm_set_malloc_error(report_error);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000305 offsets = raa_init();
Keith Kaniosb7a89542007-04-12 02:40:54 +0000306 forwrefs = saa_init((int32_t)sizeof(struct forwrefinfo));
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000307
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000308 preproc = &nasmpp;
H. Peter Anvin620515a2002-04-30 20:57:38 +0000309 operating_mode = op_normal;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000310
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000311 seg_init();
312
313 register_output_formats();
314
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800315 /* Define some macros dependent on the runtime, but not
316 on the command line. */
317 define_macros_early();
318
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000319 parse_cmdline(argc, argv);
320
H. Peter Anvine2c80182005-01-15 22:15:51 +0000321 if (terminate_after_phase) {
322 if (want_usage)
323 usage();
324 return 1;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000325 }
326
H. Peter Anvinbb88d012003-09-10 23:34:23 +0000327 /* If debugging info is disabled, suppress any debug calls */
328 if (!using_debug_info)
329 ofmt->current_dfmt = &null_debug_form;
330
H. Peter Anvin76690a12002-04-30 20:52:49 +0000331 if (ofmt->stdmac)
H. Peter Anvine2c80182005-01-15 22:15:51 +0000332 pp_extra_stdmac(ofmt->stdmac);
333 parser_global_info(ofmt, &location);
334 eval_global_info(ofmt, lookup_label, &location);
H. Peter Anvin76690a12002-04-30 20:52:49 +0000335
H. Peter Anvinaf535c12002-04-30 20:59:21 +0000336 /* define some macros dependent of command-line */
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800337 define_macros_late();
H. Peter Anvinaf535c12002-04-30 20:59:21 +0000338
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700339 depend_ptr = (depend_file || (operating_mode == op_depend))
340 ? &depend_list : NULL;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700341 if (!depend_target)
342 depend_target = outname;
343
H. Peter Anvine2c80182005-01-15 22:15:51 +0000344 switch (operating_mode) {
H. Peter Anvin620515a2002-04-30 20:57:38 +0000345 case op_depend:
H. Peter Anvine2c80182005-01-15 22:15:51 +0000346 {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000347 char *line;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700348
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700349 if (depend_missing_ok)
350 pp_include_path(NULL); /* "assume generated" */
351
352 preproc->reset(inname, 0, report_error, evaluate, &nasmlist,
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700353 depend_ptr);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000354 if (outname[0] == '\0')
355 ofmt->filename(inname, outname, report_error);
356 ofile = NULL;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000357 while ((line = preproc->getline()))
358 nasm_free(line);
359 preproc->cleanup(0);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000360 }
361 break;
H. Peter Anvin620515a2002-04-30 20:57:38 +0000362
363 case op_preprocess:
H. Peter Anvine2c80182005-01-15 22:15:51 +0000364 {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000365 char *line;
366 char *file_name = NULL;
Keith Kaniosb7a89542007-04-12 02:40:54 +0000367 int32_t prior_linnum = 0;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000368 int lineinc = 0;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000369
H. Peter Anvine2c80182005-01-15 22:15:51 +0000370 if (*outname) {
371 ofile = fopen(outname, "w");
372 if (!ofile)
373 report_error(ERR_FATAL | ERR_NOFILE,
374 "unable to open output file `%s'",
375 outname);
376 } else
377 ofile = NULL;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000378
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700379 location.known = false;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000380
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700381 /* pass = 1; */
382 preproc->reset(inname, 2, report_error, evaluate, &nasmlist,
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700383 depend_ptr);
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700384
H. Peter Anvine2c80182005-01-15 22:15:51 +0000385 while ((line = preproc->getline())) {
386 /*
387 * We generate %line directives if needed for later programs
388 */
Keith Kaniosb7a89542007-04-12 02:40:54 +0000389 int32_t linnum = prior_linnum += lineinc;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000390 int altline = src_get(&linnum, &file_name);
391 if (altline) {
392 if (altline == 1 && lineinc == 1)
393 nasm_fputs("", ofile);
394 else {
395 lineinc = (altline != -1 || lineinc != 1);
396 fprintf(ofile ? ofile : stdout,
Keith Kanios93f2e9a2007-04-14 00:10:59 +0000397 "%%line %"PRId32"+%d %s\n", linnum, lineinc,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000398 file_name);
399 }
400 prior_linnum = linnum;
401 }
402 nasm_fputs(line, ofile);
403 nasm_free(line);
404 }
405 nasm_free(file_name);
406 preproc->cleanup(0);
407 if (ofile)
408 fclose(ofile);
409 if (ofile && terminate_after_phase)
410 remove(outname);
411 }
412 break;
H. Peter Anvin620515a2002-04-30 20:57:38 +0000413
414 case op_normal:
H. Peter Anvine2c80182005-01-15 22:15:51 +0000415 {
416 /*
417 * We must call ofmt->filename _anyway_, even if the user
418 * has specified their own output file, because some
419 * formats (eg OBJ and COFF) use ofmt->filename to find out
420 * the name of the input file and then put that inside the
421 * file.
422 */
423 ofmt->filename(inname, outname, report_error);
424
425 ofile = fopen(outname, "wb");
426 if (!ofile) {
427 report_error(ERR_FATAL | ERR_NOFILE,
428 "unable to open output file `%s'", outname);
429 }
430
431 /*
432 * We must call init_labels() before ofmt->init() since
433 * some object formats will want to define labels in their
434 * init routines. (eg OS/2 defines the FLAT group)
435 */
436 init_labels();
437
438 ofmt->init(ofile, report_error, define_label, evaluate);
439
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700440 assemble_file(inname, depend_ptr);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000441
442 if (!terminate_after_phase) {
443 ofmt->cleanup(using_debug_info);
444 cleanup_labels();
445 } else {
446 /*
Victor van den Elzenc82c3722008-06-04 15:24:20 +0200447 * Despite earlier comments, we need this fclose.
448 * The object output drivers only fclose on cleanup,
449 * and we just skipped that.
H. Peter Anvine2c80182005-01-15 22:15:51 +0000450 */
Victor van den Elzenc82c3722008-06-04 15:24:20 +0200451 fclose (ofile);
452
H. Peter Anvine2c80182005-01-15 22:15:51 +0000453 remove(outname);
454 if (listname[0])
455 remove(listname);
456 }
457 }
458 break;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000459 }
H. Peter Anvin734b1882002-04-30 21:01:08 +0000460
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700461 if (depend_list)
462 emit_dependencies(depend_list);
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700463
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000464 if (want_usage)
H. Peter Anvine2c80182005-01-15 22:15:51 +0000465 usage();
H. Peter Anvin734b1882002-04-30 21:01:08 +0000466
H. Peter Anvine2c80182005-01-15 22:15:51 +0000467 raa_free(offsets);
468 saa_free(forwrefs);
469 eval_cleanup();
H. Peter Anvin74cc5e52007-08-30 22:35:34 +0000470 stdscan_cleanup();
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000471
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000472 if (terminate_after_phase)
H. Peter Anvine2c80182005-01-15 22:15:51 +0000473 return 1;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000474 else
H. Peter Anvine2c80182005-01-15 22:15:51 +0000475 return 0;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000476}
477
H. Peter Anvineba20a72002-04-30 20:53:55 +0000478/*
479 * Get a parameter for a command line option.
480 * First arg must be in the form of e.g. -f...
481 */
H. Peter Anvin423e3812007-11-15 17:12:29 -0800482static char *get_param(char *p, char *q, bool *advance)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000483{
H. Peter Anvin423e3812007-11-15 17:12:29 -0800484 *advance = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000485 if (p[2]) { /* the parameter's in the option */
486 p += 2;
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -0700487 while (nasm_isspace(*p))
H. Peter Anvine2c80182005-01-15 22:15:51 +0000488 p++;
489 return p;
H. Peter Anvineba20a72002-04-30 20:53:55 +0000490 }
H. Peter Anvine2c80182005-01-15 22:15:51 +0000491 if (q && q[0]) {
H. Peter Anvin423e3812007-11-15 17:12:29 -0800492 *advance = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000493 return q;
H. Peter Anvineba20a72002-04-30 20:53:55 +0000494 }
H. Peter Anvine2c80182005-01-15 22:15:51 +0000495 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
496 "option `-%c' requires an argument", p[1]);
H. Peter Anvineba20a72002-04-30 20:53:55 +0000497 return NULL;
498}
499
H. Peter Anvindc242712007-11-18 11:55:10 -0800500/*
501 * Copy a filename
502 */
503static void copy_filename(char *dst, const char *src)
504{
505 size_t len = strlen(src);
506
507 if (len >= (size_t)FILENAME_MAX) {
508 report_error(ERR_FATAL | ERR_NOFILE, "file name too long");
509 return;
510 }
511 strncpy(dst, src, FILENAME_MAX);
512}
513
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700514/*
515 * Convert a string to Make-safe form
516 */
517static char *quote_for_make(const char *str)
518{
519 const char *p;
520 char *os, *q;
521
522 size_t n = 1; /* Terminating zero */
523 size_t nbs = 0;
524
525 if (!str)
526 return NULL;
527
528 for (p = str; *p; p++) {
529 switch (*p) {
530 case ' ':
531 case '\t':
532 /* Convert N backslashes + ws -> 2N+1 backslashes + ws */
533 n += nbs + 2;
534 nbs = 0;
535 break;
536 case '$':
537 case '#':
538 nbs = 0;
539 n += 2;
540 break;
541 case '\\':
542 nbs++;
543 n++;
544 break;
545 default:
546 nbs = 0;
547 n++;
548 break;
549 }
550 }
551
552 /* Convert N backslashes at the end of filename to 2N backslashes */
553 if (nbs)
554 n += nbs;
555
556 os = q = nasm_malloc(n);
557
558 nbs = 0;
559 for (p = str; *p; p++) {
560 switch (*p) {
561 case ' ':
562 case '\t':
563 while (nbs--)
564 *q++ = '\\';
565 *q++ = '\\';
566 *q++ = *p;
567 break;
568 case '$':
569 *q++ = *p;
570 *q++ = *p;
571 nbs = 0;
572 break;
573 case '#':
574 *q++ = '\\';
575 *q++ = *p;
576 nbs = 0;
577 break;
578 case '\\':
579 *q++ = *p;
580 nbs++;
581 break;
582 default:
583 *q++ = *p;
584 nbs = 0;
585 break;
586 }
587 }
588 while (nbs--)
589 *q++ = '\\';
590
591 *q = '\0';
592
593 return os;
594}
595
H. Peter Anvine2c80182005-01-15 22:15:51 +0000596struct textargs {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000597 const char *label;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000598 int value;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000599};
600
601#define OPT_PREFIX 0
602#define OPT_POSTFIX 1
H. Peter Anvine2c80182005-01-15 22:15:51 +0000603struct textargs textopts[] = {
604 {"prefix", OPT_PREFIX},
605 {"postfix", OPT_POSTFIX},
606 {NULL, 0}
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000607};
608
H. Peter Anvin423e3812007-11-15 17:12:29 -0800609static bool stopoptions = false;
610static bool process_arg(char *p, char *q)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000611{
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000612 char *param;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800613 int i;
614 bool advance = false;
H. Peter Anvinb030c922007-11-13 11:31:15 -0800615 bool suppress;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000616
617 if (!p || !p[0])
H. Peter Anvin423e3812007-11-15 17:12:29 -0800618 return false;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000619
H. Peter Anvine2c80182005-01-15 22:15:51 +0000620 if (p[0] == '-' && !stopoptions) {
H. Peter Anvin423e3812007-11-15 17:12:29 -0800621 if (strchr("oOfpPdDiIlFXuUZwW", p[1])) {
622 /* These parameters take values */
623 if (!(param = get_param(p, q, &advance)))
624 return advance;
625 }
626
H. Peter Anvine2c80182005-01-15 22:15:51 +0000627 switch (p[1]) {
628 case 's':
629 error_file = stdout;
630 break;
H. Peter Anvin70653092007-10-19 14:42:29 -0700631
H. Peter Anvin423e3812007-11-15 17:12:29 -0800632 case 'o': /* output file */
H. Peter Anvindc242712007-11-18 11:55:10 -0800633 copy_filename(outname, param);
H. Peter Anvin423e3812007-11-15 17:12:29 -0800634 break;
H. Peter Anvinfd7dd112007-10-10 14:06:59 -0700635
H. Peter Anvin423e3812007-11-15 17:12:29 -0800636 case 'f': /* output format */
637 ofmt = ofmt_find(param);
638 if (!ofmt) {
639 report_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
640 "unrecognised output format `%s' - "
641 "use -hf for a list", param);
642 } else {
643 ofmt->current_dfmt = ofmt->debug_formats[0];
644 }
645 break;
H. Peter Anvin70653092007-10-19 14:42:29 -0700646
H. Peter Anvin423e3812007-11-15 17:12:29 -0800647 case 'O': /* Optimization level */
648 {
649 int opt;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700650
H. Peter Anvin423e3812007-11-15 17:12:29 -0800651 if (!*param) {
652 /* Naked -O == -Ox */
653 optimizing = INT_MAX >> 1; /* Almost unlimited */
654 } else {
655 while (*param) {
656 switch (*param) {
657 case '0': case '1': case '2': case '3': case '4':
658 case '5': case '6': case '7': case '8': case '9':
659 opt = strtoul(param, &param, 10);
H. Peter Anvind85d2502008-05-04 17:53:31 -0700660
H. Peter Anvin423e3812007-11-15 17:12:29 -0800661 /* -O0 -> optimizing == -1, 0.98 behaviour */
662 /* -O1 -> optimizing == 0, 0.98.09 behaviour */
663 if (opt < 2)
664 optimizing = opt - 1;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800665 else
H. Peter Anvin34ec3002008-01-08 22:31:20 -0800666 optimizing = opt;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800667 break;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700668
H. Peter Anvin423e3812007-11-15 17:12:29 -0800669 case 'v':
670 case '+':
671 param++;
672 opt_verbose_info = true;
673 break;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700674
H. Peter Anvin423e3812007-11-15 17:12:29 -0800675 case 'x':
676 param++;
677 optimizing = INT_MAX >> 1; /* Almost unlimited */
678 break;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700679
H. Peter Anvin423e3812007-11-15 17:12:29 -0800680 default:
681 report_error(ERR_FATAL,
682 "unknown optimization option -O%c\n",
683 *param);
684 break;
H. Peter Anvinfd7dd112007-10-10 14:06:59 -0700685 }
686 }
H. Peter Anvin423e3812007-11-15 17:12:29 -0800687 }
688 break;
689 }
690
691 case 'p': /* pre-include */
692 case 'P':
693 pp_pre_include(param);
694 break;
695
696 case 'd': /* pre-define */
697 case 'D':
698 pp_pre_define(param);
699 break;
700
701 case 'u': /* un-define */
702 case 'U':
703 pp_pre_undefine(param);
704 break;
705
706 case 'i': /* include search path */
707 case 'I':
708 pp_include_path(param);
709 break;
710
711 case 'l': /* listing file */
H. Peter Anvindc242712007-11-18 11:55:10 -0800712 copy_filename(listname, param);
H. Peter Anvin423e3812007-11-15 17:12:29 -0800713 break;
714
715 case 'Z': /* error messages file */
716 strcpy(errname, param);
717 break;
718
719 case 'F': /* specify debug format */
720 ofmt->current_dfmt = dfmt_find(ofmt, param);
721 if (!ofmt->current_dfmt) {
722 report_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
723 "unrecognized debug format `%s' for"
724 " output format `%s'",
725 param, ofmt->shortname);
726 }
H. Peter Anvinca5ec7a2008-06-11 18:07:40 -0700727 using_debug_info = true;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800728 break;
729
730 case 'X': /* specify error reporting format */
731 if (nasm_stricmp("vc", param) == 0)
732 report_error = report_error_vc;
733 else if (nasm_stricmp("gnu", param) == 0)
734 report_error = report_error_gnu;
735 else
736 report_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
737 "unrecognized error reporting format `%s'",
738 param);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000739 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800740
H. Peter Anvine2c80182005-01-15 22:15:51 +0000741 case 'g':
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700742 using_debug_info = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000743 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800744
H. Peter Anvine2c80182005-01-15 22:15:51 +0000745 case 'h':
746 printf
747 ("usage: nasm [-@ response file] [-o outfile] [-f format] "
748 "[-l listfile]\n"
749 " [options...] [--] filename\n"
H. Peter Anvin413fb902007-09-26 15:19:28 -0700750 " or nasm -v for version info\n\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000751 " -t assemble in SciTech TASM compatible mode\n"
752 " -g generate debug information in selected format.\n");
753 printf
H. Peter Anvin413fb902007-09-26 15:19:28 -0700754 (" -E (or -e) preprocess only (writes output to stdout by default)\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000755 " -a don't preprocess (assemble only)\n"
H. Peter Anvin37a321f2007-09-24 13:41:58 -0700756 " -M generate Makefile dependencies on stdout\n"
757 " -MG d:o, missing files assumed generated\n\n"
H. Peter Anvin413fb902007-09-26 15:19:28 -0700758 " -Z<file> redirect error messages to file\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000759 " -s redirect error messages to stdout\n\n"
760 " -F format select a debugging format\n\n"
761 " -I<path> adds a pathname to the include file path\n");
762 printf
763 (" -O<digit> optimize branch offsets (-O0 disables, default)\n"
764 " -P<file> pre-includes a file\n"
765 " -D<macro>[=<value>] pre-defines a macro\n"
766 " -U<macro> undefines a macro\n"
767 " -X<format> specifies error reporting format (gnu or vc)\n"
H. Peter Anvinb030c922007-11-13 11:31:15 -0800768 " -w+foo enables warning foo (equiv. -Wfoo)\n"
769 " -w-foo disable warning foo (equiv. -Wno-foo)\n"
770 "Warnings:\n");
771 for (i = 0; i <= ERR_WARN_MAX; i++)
H. Peter Anvine2c80182005-01-15 22:15:51 +0000772 printf(" %-23s %s (default %s)\n",
773 suppressed_names[i], suppressed_what[i],
Victor van den Elzen819703a2008-07-16 15:20:56 +0200774 suppressed_global[i] ? "off" : "on");
H. Peter Anvine2c80182005-01-15 22:15:51 +0000775 printf
776 ("\nresponse files should contain command line parameters"
777 ", one per line.\n");
778 if (p[2] == 'f') {
779 printf("\nvalid output formats for -f are"
780 " (`*' denotes default):\n");
781 ofmt_list(ofmt, stdout);
782 } else {
783 printf("\nFor a list of valid output formats, use -hf.\n");
784 printf("For a list of debug formats, use -f <form> -y.\n");
785 }
786 exit(0); /* never need usage message here */
787 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800788
H. Peter Anvine2c80182005-01-15 22:15:51 +0000789 case 'y':
790 printf("\nvalid debug formats for '%s' output format are"
791 " ('*' denotes default):\n", ofmt->shortname);
792 dfmt_list(ofmt, stdout);
793 exit(0);
794 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800795
H. Peter Anvine2c80182005-01-15 22:15:51 +0000796 case 't':
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700797 tasm_compatible_mode = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000798 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800799
H. Peter Anvine2c80182005-01-15 22:15:51 +0000800 case 'v':
801 {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000802 const char *nasm_version_string =
H. Peter Anvine2c80182005-01-15 22:15:51 +0000803 "NASM version " NASM_VER " compiled on " __DATE__
H. Peter Anvineba20a72002-04-30 20:53:55 +0000804#ifdef DEBUG
H. Peter Anvine2c80182005-01-15 22:15:51 +0000805 " with -DDEBUG"
H. Peter Anvineba20a72002-04-30 20:53:55 +0000806#endif
H. Peter Anvine2c80182005-01-15 22:15:51 +0000807 ;
808 puts(nasm_version_string);
809 exit(0); /* never need usage message here */
810 }
811 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800812
H. Peter Anvine2c80182005-01-15 22:15:51 +0000813 case 'e': /* preprocess only */
H. Peter Anvin413fb902007-09-26 15:19:28 -0700814 case 'E':
H. Peter Anvine2c80182005-01-15 22:15:51 +0000815 operating_mode = op_preprocess;
816 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800817
H. Peter Anvine2c80182005-01-15 22:15:51 +0000818 case 'a': /* assemble only - don't preprocess */
819 preproc = &no_pp;
820 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800821
H. Peter Anvinb030c922007-11-13 11:31:15 -0800822 case 'W':
H. Peter Anvin423e3812007-11-15 17:12:29 -0800823 if (param[0] == 'n' && param[1] == 'o' && param[2] == '-') {
H. Peter Anvinb030c922007-11-13 11:31:15 -0800824 suppress = true;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800825 param += 3;
H. Peter Anvinb030c922007-11-13 11:31:15 -0800826 } else {
827 suppress = false;
H. Peter Anvinb030c922007-11-13 11:31:15 -0800828 }
829 goto set_warning;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800830
H. Peter Anvine2c80182005-01-15 22:15:51 +0000831 case 'w':
H. Peter Anvin423e3812007-11-15 17:12:29 -0800832 if (param[0] != '+' && param[0] != '-') {
H. Peter Anvine2c80182005-01-15 22:15:51 +0000833 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
834 "invalid option to `-w'");
H. Peter Anvinb030c922007-11-13 11:31:15 -0800835 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000836 }
H. Peter Anvin423e3812007-11-15 17:12:29 -0800837 suppress = (param[0] == '-');
838 param++;
H. Peter Anvinb030c922007-11-13 11:31:15 -0800839 goto set_warning;
840 set_warning:
841 for (i = 0; i <= ERR_WARN_MAX; i++)
H. Peter Anvin423e3812007-11-15 17:12:29 -0800842 if (!nasm_stricmp(param, suppressed_names[i]))
H. Peter Anvinb030c922007-11-13 11:31:15 -0800843 break;
844 if (i <= ERR_WARN_MAX)
Victor van den Elzen819703a2008-07-16 15:20:56 +0200845 suppressed_global[i] = suppress;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800846 else if (!nasm_stricmp(param, "all"))
H. Peter Anvinb030c922007-11-13 11:31:15 -0800847 for (i = 1; i <= ERR_WARN_MAX; i++)
Victor van den Elzen819703a2008-07-16 15:20:56 +0200848 suppressed_global[i] = suppress;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800849 else if (!nasm_stricmp(param, "none"))
850 for (i = 1; i <= ERR_WARN_MAX; i++)
Victor van den Elzen819703a2008-07-16 15:20:56 +0200851 suppressed_global[i] = !suppress;
H. Peter Anvinb030c922007-11-13 11:31:15 -0800852 else
853 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvin423e3812007-11-15 17:12:29 -0800854 "invalid warning `%s'", param);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000855 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800856
H. Peter Anvine2c80182005-01-15 22:15:51 +0000857 case 'M':
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700858 switch (p[2]) {
859 case 0:
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700860 operating_mode = op_depend;
861 break;
862 case 'G':
863 operating_mode = op_depend;
864 depend_missing_ok = true;
865 break;
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700866 case 'P':
867 depend_emit_phony = true;
868 break;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700869 case 'D':
870 depend_file = q;
871 advance = true;
872 break;
873 case 'T':
874 depend_target = q;
875 advance = true;
876 break;
877 case 'Q':
878 depend_target = quote_for_make(q);
879 advance = true;
880 break;
881 default:
882 report_error(ERR_NONFATAL|ERR_NOFILE|ERR_USAGE,
883 "unknown dependency option `-M%c'", p[2]);
884 break;
885 }
886 if (advance && (!q || !q[0])) {
887 report_error(ERR_NONFATAL|ERR_NOFILE|ERR_USAGE,
888 "option `-M%c' requires a parameter", p[2]);
889 break;
890 }
H. Peter Anvine2c80182005-01-15 22:15:51 +0000891 break;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000892
H. Peter Anvine2c80182005-01-15 22:15:51 +0000893 case '-':
894 {
895 int s;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000896
H. Peter Anvine2c80182005-01-15 22:15:51 +0000897 if (p[2] == 0) { /* -- => stop processing options */
898 stopoptions = 1;
899 break;
900 }
901 for (s = 0; textopts[s].label; s++) {
902 if (!nasm_stricmp(p + 2, textopts[s].label)) {
903 break;
904 }
905 }
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000906
H. Peter Anvine2c80182005-01-15 22:15:51 +0000907 switch (s) {
908
909 case OPT_PREFIX:
910 case OPT_POSTFIX:
911 {
912 if (!q) {
913 report_error(ERR_NONFATAL | ERR_NOFILE |
914 ERR_USAGE,
915 "option `--%s' requires an argument",
916 p + 2);
917 break;
918 } else {
919 advance = 1, param = q;
920 }
921
922 if (s == OPT_PREFIX) {
923 strncpy(lprefix, param, PREFIX_MAX - 1);
924 lprefix[PREFIX_MAX - 1] = 0;
925 break;
926 }
927 if (s == OPT_POSTFIX) {
928 strncpy(lpostfix, param, POSTFIX_MAX - 1);
929 lpostfix[POSTFIX_MAX - 1] = 0;
930 break;
931 }
932 break;
933 }
934 default:
935 {
936 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
937 "unrecognised option `--%s'", p + 2);
938 break;
939 }
940 }
941 break;
942 }
943
944 default:
945 if (!ofmt->setinfo(GI_SWITCH, &p))
946 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
947 "unrecognised option `-%c'", p[1]);
948 break;
949 }
950 } else {
951 if (*inname) {
952 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
953 "more than one input file specified");
H. Peter Anvindc242712007-11-18 11:55:10 -0800954 } else {
955 copy_filename(inname, p);
956 }
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000957 }
958
959 return advance;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000960}
961
H. Peter Anvineba20a72002-04-30 20:53:55 +0000962#define ARG_BUF_DELTA 128
963
H. Peter Anvine2c80182005-01-15 22:15:51 +0000964static void process_respfile(FILE * rfile)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000965{
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000966 char *buffer, *p, *q, *prevarg;
H. Peter Anvineba20a72002-04-30 20:53:55 +0000967 int bufsize, prevargsize;
968
969 bufsize = prevargsize = ARG_BUF_DELTA;
970 buffer = nasm_malloc(ARG_BUF_DELTA);
971 prevarg = nasm_malloc(ARG_BUF_DELTA);
972 prevarg[0] = '\0';
973
H. Peter Anvine2c80182005-01-15 22:15:51 +0000974 while (1) { /* Loop to handle all lines in file */
H. Peter Anvine2c80182005-01-15 22:15:51 +0000975 p = buffer;
976 while (1) { /* Loop to handle long lines */
977 q = fgets(p, bufsize - (p - buffer), rfile);
978 if (!q)
979 break;
980 p += strlen(p);
981 if (p > buffer && p[-1] == '\n')
982 break;
983 if (p - buffer > bufsize - 10) {
984 int offset;
985 offset = p - buffer;
986 bufsize += ARG_BUF_DELTA;
987 buffer = nasm_realloc(buffer, bufsize);
988 p = buffer + offset;
989 }
990 }
H. Peter Anvineba20a72002-04-30 20:53:55 +0000991
H. Peter Anvine2c80182005-01-15 22:15:51 +0000992 if (!q && p == buffer) {
993 if (prevarg[0])
994 process_arg(prevarg, NULL);
995 nasm_free(buffer);
996 nasm_free(prevarg);
997 return;
998 }
H. Peter Anvineba20a72002-04-30 20:53:55 +0000999
H. Peter Anvine2c80182005-01-15 22:15:51 +00001000 /*
1001 * Play safe: remove CRs, LFs and any spurious ^Zs, if any of
1002 * them are present at the end of the line.
1003 */
1004 *(p = &buffer[strcspn(buffer, "\r\n\032")]) = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00001005
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001006 while (p > buffer && nasm_isspace(p[-1]))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001007 *--p = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00001008
H. Peter Anvine2c80182005-01-15 22:15:51 +00001009 p = buffer;
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001010 while (nasm_isspace(*p))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001011 p++;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001012
H. Peter Anvine2c80182005-01-15 22:15:51 +00001013 if (process_arg(prevarg, p))
1014 *p = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00001015
Charles Crayne192d5b52007-10-18 19:02:42 -07001016 if ((int) strlen(p) > prevargsize - 10) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001017 prevargsize += ARG_BUF_DELTA;
1018 prevarg = nasm_realloc(prevarg, prevargsize);
1019 }
H. Peter Anvindc242712007-11-18 11:55:10 -08001020 strncpy(prevarg, p, prevargsize);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001021 }
1022}
1023
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001024/* Function to process args from a string of args, rather than the
1025 * argv array. Used by the environment variable and response file
1026 * processing.
1027 */
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001028static void process_args(char *args)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001029{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001030 char *p, *q, *arg, *prevarg;
1031 char separator = ' ';
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001032
1033 p = args;
1034 if (*p && *p != '-')
H. Peter Anvine2c80182005-01-15 22:15:51 +00001035 separator = *p++;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001036 arg = NULL;
1037 while (*p) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001038 q = p;
1039 while (*p && *p != separator)
1040 p++;
1041 while (*p == separator)
1042 *p++ = '\0';
1043 prevarg = arg;
1044 arg = q;
1045 if (process_arg(prevarg, arg))
1046 arg = NULL;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001047 }
1048 if (arg)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001049 process_arg(arg, NULL);
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001050}
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001051
H. Peter Anvinbe2678c2008-01-21 16:23:59 -08001052static void process_response_file(const char *file)
1053{
1054 char str[2048];
1055 FILE *f = fopen(file, "r");
1056 if (!f) {
1057 perror(file);
1058 exit(-1);
1059 }
1060 while (fgets(str, sizeof str, f)) {
1061 process_args(str);
1062 }
1063 fclose(f);
1064}
1065
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001066static void parse_cmdline(int argc, char **argv)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001067{
1068 FILE *rfile;
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001069 char *envreal, *envcopy = NULL, *p, *arg;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001070
Charles Craynefcce07f2007-09-30 22:15:36 -07001071 *inname = *outname = *listname = *errname = '\0';
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001072
1073 /*
H. Peter Anvinff7ccc02002-05-06 19:41:57 +00001074 * First, process the NASMENV environment variable.
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001075 */
H. Peter Anvinff7ccc02002-05-06 19:41:57 +00001076 envreal = getenv("NASMENV");
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001077 arg = NULL;
1078 if (envreal) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001079 envcopy = nasm_strdup(envreal);
1080 process_args(envcopy);
1081 nasm_free(envcopy);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001082 }
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001083
1084 /*
1085 * Now process the actual command line.
1086 */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001087 while (--argc) {
H. Peter Anvin423e3812007-11-15 17:12:29 -08001088 bool advance;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001089 argv++;
1090 if (argv[0][0] == '@') {
1091 /* We have a response file, so process this as a set of
1092 * arguments like the environment variable. This allows us
1093 * to have multiple arguments on a single line, which is
1094 * different to the -@resp file processing below for regular
1095 * NASM.
1096 */
H. Peter Anvinbe2678c2008-01-21 16:23:59 -08001097 process_response_file(argv[0]+1);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001098 argc--;
1099 argv++;
1100 }
1101 if (!stopoptions && argv[0][0] == '-' && argv[0][1] == '@') {
H. Peter Anvin423e3812007-11-15 17:12:29 -08001102 p = get_param(argv[0], argc > 1 ? argv[1] : NULL, &advance);
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001103 if (p) {
1104 rfile = fopen(p, "r");
1105 if (rfile) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001106 process_respfile(rfile);
1107 fclose(rfile);
1108 } else
1109 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
1110 "unable to open response file `%s'", p);
1111 }
1112 } else
H. Peter Anvin423e3812007-11-15 17:12:29 -08001113 advance = process_arg(argv[0], argc > 1 ? argv[1] : NULL);
1114 argv += advance, argc -= advance;
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001115 }
1116
H. Peter Anvin70c0bf22007-11-19 11:45:40 -08001117 /* Look for basic command line typos. This definitely doesn't
1118 catch all errors, but it might help cases of fumbled fingers. */
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001119 if (!*inname)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001120 report_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
1121 "no input file specified");
H. Peter Anvin9e1f5282008-05-29 21:38:00 -07001122 else if (!strcmp(inname, errname) ||
1123 !strcmp(inname, outname) ||
1124 !strcmp(inname, listname) ||
1125 (depend_file && !strcmp(inname, depend_file)))
H. Peter Anvin59ddd262007-10-01 11:26:31 -07001126 report_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
1127 "file `%s' is both input and output file",
1128 inname);
H. Peter Anvin59ddd262007-10-01 11:26:31 -07001129
H. Peter Anvin70653092007-10-19 14:42:29 -07001130 if (*errname) {
H. Peter Anvin59ddd262007-10-01 11:26:31 -07001131 error_file = fopen(errname, "w");
1132 if (!error_file) {
1133 error_file = stderr; /* Revert to default! */
1134 report_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
1135 "cannot open file `%s' for error messages",
1136 errname);
1137 }
Charles Craynefcce07f2007-09-30 22:15:36 -07001138 }
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001139}
1140
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001141/* List of directives */
H. Peter Anvin70055962007-10-11 00:05:31 -07001142enum directives {
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001143 D_NONE, D_ABSOLUTE, D_BITS, D_COMMON, D_CPU, D_DEBUG, D_DEFAULT,
H. Peter Anvinf6c9e652007-10-16 14:40:27 -07001144 D_EXTERN, D_FLOAT, D_GLOBAL, D_LIST, D_SECTION, D_SEGMENT, D_WARNING
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001145};
1146static const char *directives[] = {
1147 "", "absolute", "bits", "common", "cpu", "debug", "default",
H. Peter Anvinf6c9e652007-10-16 14:40:27 -07001148 "extern", "float", "global", "list", "section", "segment", "warning"
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001149};
H. Peter Anvin70055962007-10-11 00:05:31 -07001150static enum directives getkw(char **directive, char **value);
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001151
H. Peter Anvin9e1f5282008-05-29 21:38:00 -07001152static void assemble_file(char *fname, StrList **depend_ptr)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001153{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001154 char *directive, *value, *p, *q, *special, *line, debugid[80];
H. Peter Anvine2c80182005-01-15 22:15:51 +00001155 insn output_ins;
H. Peter Anvin70055962007-10-11 00:05:31 -07001156 int i, validid;
1157 bool rn_error;
Charles Crayne5fbbc8c2007-11-07 19:03:46 -08001158 int32_t seg;
1159 int64_t offs;
H. Peter Anvin76690a12002-04-30 20:52:49 +00001160 struct tokenval tokval;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001161 expr *e;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001162 int pass_max;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001163
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001164 if (cmd_sb == 32 && cmd_cpu < IF_386)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001165 report_error(ERR_FATAL, "command line: "
1166 "32-bit segment size requires a higher cpu");
H. Peter Anvineba20a72002-04-30 20:53:55 +00001167
H. Peter Anvine2c80182005-01-15 22:15:51 +00001168 pass_max = (optimizing > 0 ? optimizing : 0) + 2; /* passes 1, optimizing, then 2 */
1169 pass0 = !(optimizing > 0); /* start at 1 if not optimizing */
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001170 for (passn = 1; pass0 <= 2; passn++) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001171 int pass1, pass2;
1172 ldfunc def_label;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001173
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001174 pass1 = pass0 == 2 ? 2 : 1; /* 1, 1, 1, ..., 1, 2 */
1175 pass2 = passn > 1 ? 2 : 1; /* 1, 2, 2, ..., 2, 2 */
1176 /* pass0 0, 0, 0, ..., 1, 2 */
H. Peter Anvin734b1882002-04-30 21:01:08 +00001177
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001178 def_label = passn > 1 ? redefine_label : define_label;
H. Peter Anvin734b1882002-04-30 21:01:08 +00001179
Keith Kaniosb7a89542007-04-12 02:40:54 +00001180 globalbits = sb = cmd_sb; /* set 'bits' to command line default */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001181 cpu = cmd_cpu;
1182 if (pass0 == 2) {
1183 if (*listname)
1184 nasmlist.init(listname, report_error);
1185 }
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001186 in_abs_seg = false;
1187 global_offset_changed = false; /* set by redefine_label */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001188 location.segment = ofmt->section(NULL, pass2, &sb);
Keith Kaniosb7a89542007-04-12 02:40:54 +00001189 globalbits = sb;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001190 if (passn > 1) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001191 saa_rewind(forwrefs);
1192 forwref = saa_rstruct(forwrefs);
1193 raa_free(offsets);
1194 offsets = raa_init();
1195 }
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -07001196 preproc->reset(fname, pass1, report_error, evaluate, &nasmlist,
H. Peter Anvin9e1f5282008-05-29 21:38:00 -07001197 pass1 == 2 ? depend_ptr : NULL);
Victor van den Elzen819703a2008-07-16 15:20:56 +02001198 memcpy(suppressed, suppressed_global, (ERR_WARN_MAX+1) * sizeof(bool));
1199
H. Peter Anvine2c80182005-01-15 22:15:51 +00001200 globallineno = 0;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001201 if (passn == 1)
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001202 location.known = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001203 location.offset = offs = GET_CURR_OFFS;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001204
H. Peter Anvine2c80182005-01-15 22:15:51 +00001205 while ((line = preproc->getline())) {
H. Peter Anvin70055962007-10-11 00:05:31 -07001206 enum directives d;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001207 globallineno++;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001208
H. Peter Anvine2c80182005-01-15 22:15:51 +00001209 /* here we parse our directives; this is not handled by the 'real'
1210 * parser. */
1211 directive = line;
H. Peter Anvin70055962007-10-11 00:05:31 -07001212 d = getkw(&directive, &value);
1213 if (d) {
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001214 int err = 0;
1215
H. Peter Anvin70055962007-10-11 00:05:31 -07001216 switch (d) {
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001217 case D_SEGMENT: /* [SEGMENT n] */
1218 case D_SECTION:
H. Peter Anvine2c80182005-01-15 22:15:51 +00001219 seg = ofmt->section(value, pass2, &sb);
1220 if (seg == NO_SEG) {
1221 report_error(pass1 == 1 ? ERR_NONFATAL : ERR_PANIC,
Keith Kaniosb7a89542007-04-12 02:40:54 +00001222 "segment name `%s' not recognized",
H. Peter Anvine2c80182005-01-15 22:15:51 +00001223 value);
1224 } else {
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001225 in_abs_seg = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001226 location.segment = seg;
1227 }
1228 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001229 case D_EXTERN: /* [EXTERN label:special] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001230 if (*value == '$')
1231 value++; /* skip initial $ if present */
1232 if (pass0 == 2) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001233 q = value;
1234 while (*q && *q != ':')
H. Peter Anvine2c80182005-01-15 22:15:51 +00001235 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001236 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001237 *q++ = '\0';
1238 ofmt->symdef(value, 0L, 0L, 3, q);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001239 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001240 } else if (passn == 1) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001241 q = value;
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001242 validid = true;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001243 if (!isidstart(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001244 validid = false;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001245 while (*q && *q != ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001246 if (!isidchar(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001247 validid = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001248 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001249 }
1250 if (!validid) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001251 report_error(ERR_NONFATAL,
1252 "identifier expected after EXTERN");
1253 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001254 }
1255 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001256 *q++ = '\0';
1257 special = q;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001258 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +00001259 special = NULL;
1260 if (!is_extern(value)) { /* allow re-EXTERN to be ignored */
1261 int temp = pass0;
1262 pass0 = 1; /* fake pass 1 in labels.c */
1263 declare_as_global(value, special,
1264 report_error);
1265 define_label(value, seg_alloc(), 0L, NULL,
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001266 false, true, ofmt, report_error);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001267 pass0 = temp;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001268 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001269 } /* else pass0 == 1 */
1270 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001271 case D_BITS: /* [BITS bits] */
Keith Kaniosb7a89542007-04-12 02:40:54 +00001272 globalbits = sb = get_bits(value);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001273 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001274 case D_GLOBAL: /* [GLOBAL symbol:special] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001275 if (*value == '$')
1276 value++; /* skip initial $ if present */
1277 if (pass0 == 2) { /* pass 2 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001278 q = value;
1279 while (*q && *q != ':')
H. Peter Anvine2c80182005-01-15 22:15:51 +00001280 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001281 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001282 *q++ = '\0';
1283 ofmt->symdef(value, 0L, 0L, 3, q);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001284 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001285 } else if (pass2 == 1) { /* pass == 1 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001286 q = value;
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001287 validid = true;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001288 if (!isidstart(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001289 validid = false;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001290 while (*q && *q != ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001291 if (!isidchar(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001292 validid = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001293 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001294 }
1295 if (!validid) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001296 report_error(ERR_NONFATAL,
1297 "identifier expected after GLOBAL");
1298 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001299 }
1300 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001301 *q++ = '\0';
1302 special = q;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001303 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +00001304 special = NULL;
1305 declare_as_global(value, special, report_error);
1306 } /* pass == 1 */
1307 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001308 case D_COMMON: /* [COMMON symbol size:special] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001309 if (*value == '$')
1310 value++; /* skip initial $ if present */
1311 if (pass0 == 1) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001312 p = value;
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001313 validid = true;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001314 if (!isidstart(*p))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001315 validid = false;
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001316 while (*p && !nasm_isspace(*p)) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001317 if (!isidchar(*p))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001318 validid = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001319 p++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001320 }
1321 if (!validid) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001322 report_error(ERR_NONFATAL,
1323 "identifier expected after COMMON");
1324 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001325 }
1326 if (*p) {
Keith Kaniosb7a89542007-04-12 02:40:54 +00001327 int64_t size;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001328
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001329 while (*p && nasm_isspace(*p))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001330 *p++ = '\0';
1331 q = p;
1332 while (*q && *q != ':')
1333 q++;
1334 if (*q == ':') {
1335 *q++ = '\0';
1336 special = q;
1337 } else
1338 special = NULL;
1339 size = readnum(p, &rn_error);
1340 if (rn_error)
1341 report_error(ERR_NONFATAL,
1342 "invalid size specified"
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001343 " in COMMON declaration");
H. Peter Anvine2c80182005-01-15 22:15:51 +00001344 else
1345 define_common(value, seg_alloc(), size,
1346 special, ofmt, report_error);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001347 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +00001348 report_error(ERR_NONFATAL,
1349 "no size specified in"
1350 " COMMON declaration");
1351 } else if (pass0 == 2) { /* pass == 2 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001352 q = value;
1353 while (*q && *q != ':') {
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001354 if (nasm_isspace(*q))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001355 *q = '\0';
1356 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001357 }
1358 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001359 *q++ = '\0';
1360 ofmt->symdef(value, 0L, 0L, 3, q);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001361 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001362 }
1363 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001364 case D_ABSOLUTE: /* [ABSOLUTE address] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001365 stdscan_reset();
1366 stdscan_bufptr = value;
1367 tokval.t_type = TOKEN_INVALID;
1368 e = evaluate(stdscan, NULL, &tokval, NULL, pass2,
1369 report_error, NULL);
1370 if (e) {
1371 if (!is_reloc(e))
1372 report_error(pass0 ==
1373 1 ? ERR_NONFATAL : ERR_PANIC,
1374 "cannot use non-relocatable expression as "
1375 "ABSOLUTE address");
1376 else {
1377 abs_seg = reloc_seg(e);
1378 abs_offset = reloc_value(e);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001379 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001380 } else if (passn == 1)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001381 abs_offset = 0x100; /* don't go near zero in case of / */
1382 else
1383 report_error(ERR_PANIC, "invalid ABSOLUTE address "
1384 "in pass two");
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001385 in_abs_seg = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001386 location.segment = NO_SEG;
1387 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001388 case D_DEBUG: /* [DEBUG] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001389 p = value;
1390 q = debugid;
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001391 validid = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001392 if (!isidstart(*p))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001393 validid = false;
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001394 while (*p && !nasm_isspace(*p)) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001395 if (!isidchar(*p))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001396 validid = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001397 *q++ = *p++;
1398 }
1399 *q++ = 0;
1400 if (!validid) {
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001401 report_error(passn == 1 ? ERR_NONFATAL : ERR_PANIC,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001402 "identifier expected after DEBUG");
1403 break;
1404 }
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001405 while (*p && nasm_isspace(*p))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001406 p++;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001407 if (pass0 == 2)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001408 ofmt->current_dfmt->debug_directive(debugid, p);
1409 break;
Victor van den Elzen819703a2008-07-16 15:20:56 +02001410 case D_WARNING: /* [WARNING {+|-|*}warn-name] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001411 if (pass1 == 1) {
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001412 while (*value && nasm_isspace(*value))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001413 value++;
1414
Victor van den Elzen819703a2008-07-16 15:20:56 +02001415 switch(*value) {
1416 case '-': validid = 0; value++; break;
1417 case '+': validid = 1; value++; break;
1418 case '*': validid = 2; value++; break;
1419 default: /*
1420 * Should this error out?
1421 * I'll keep it so nothing breaks.
1422 */
1423 validid = 1; break;
1424 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001425
1426 for (i = 1; i <= ERR_WARN_MAX; i++)
1427 if (!nasm_stricmp(value, suppressed_names[i]))
1428 break;
Victor van den Elzen819703a2008-07-16 15:20:56 +02001429 if (i <= ERR_WARN_MAX) {
1430 switch(validid) {
1431 case 0: suppressed[i] = true; break;
1432 case 1: suppressed[i] = false; break;
1433 case 2: suppressed[i] = suppressed_global[i];
1434 break;
1435 }
1436 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001437 else
1438 report_error(ERR_NONFATAL,
1439 "invalid warning id in WARNING directive");
1440 }
1441 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001442 case D_CPU: /* [CPU] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001443 cpu = get_cpu(value);
1444 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001445 case D_LIST: /* [LIST {+|-}] */
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001446 while (*value && nasm_isspace(*value))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001447 value++;
1448
1449 if (*value == '+') {
1450 user_nolist = 0;
1451 } else {
1452 if (*value == '-') {
1453 user_nolist = 1;
1454 } else {
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001455 err = 1;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001456 }
1457 }
1458 break;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001459 case D_DEFAULT: /* [DEFAULT] */
1460 stdscan_reset();
1461 stdscan_bufptr = value;
1462 tokval.t_type = TOKEN_INVALID;
1463 if (stdscan(NULL, &tokval) == TOKEN_SPECIAL) {
1464 switch ((int)tokval.t_integer) {
1465 case S_REL:
1466 globalrel = 1;
1467 break;
1468 case S_ABS:
1469 globalrel = 0;
1470 break;
1471 default:
1472 err = 1;
1473 break;
1474 }
1475 } else {
1476 err = 1;
1477 }
1478 break;
H. Peter Anvinf6c9e652007-10-16 14:40:27 -07001479 case D_FLOAT:
1480 if (float_option(value)) {
1481 report_error(pass1 == 1 ? ERR_NONFATAL : ERR_PANIC,
1482 "unknown 'float' directive: %s",
1483 value);
1484 }
1485 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001486 default:
1487 if (!ofmt->directive(directive, value, pass2))
1488 report_error(pass1 == 1 ? ERR_NONFATAL : ERR_PANIC,
1489 "unrecognised directive [%s]",
1490 directive);
1491 }
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001492 if (err) {
1493 report_error(ERR_NONFATAL,
1494 "invalid parameter to [%s] directive",
1495 directive);
1496 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001497 } else { /* it isn't a directive */
1498
1499 parse_line(pass1, line, &output_ins,
1500 report_error, evaluate, def_label);
1501
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001502 if (!(optimizing > 0) && pass0 == 2) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001503 if (forwref != NULL && globallineno == forwref->lineno) {
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001504 output_ins.forw_ref = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001505 do {
1506 output_ins.oprs[forwref->operand].opflags |=
1507 OPFLAG_FORWARD;
1508 forwref = saa_rstruct(forwrefs);
1509 } while (forwref != NULL
1510 && forwref->lineno == globallineno);
1511 } else
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001512 output_ins.forw_ref = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001513 }
1514
1515 if (!(optimizing > 0) && output_ins.forw_ref) {
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001516 if (passn == 1) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001517 for (i = 0; i < output_ins.operands; i++) {
1518 if (output_ins.oprs[i].
1519 opflags & OPFLAG_FORWARD) {
1520 struct forwrefinfo *fwinf =
1521 (struct forwrefinfo *)
1522 saa_wstruct(forwrefs);
1523 fwinf->lineno = globallineno;
1524 fwinf->operand = i;
1525 }
1526 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001527 } else { /* passn > 1 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001528 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001529 * Hack to prevent phase error in the code
1530 * rol ax,x
1531 * x equ 1
1532 *
1533 * If the second operand is a forward reference,
1534 * the UNITY property of the number 1 in that
1535 * operand is cancelled. Otherwise the above
1536 * sequence will cause a phase error.
1537 *
1538 * This hack means that the above code will
1539 * generate 286+ code.
1540 *
1541 * The forward reference will mean that the
1542 * operand will not have the UNITY property on
1543 * the first pass, so the pass behaviours will
1544 * be consistent.
1545 */
H. Peter Anvineba20a72002-04-30 20:53:55 +00001546
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001547 if (output_ins.operands >= 2 &&
H. Peter Anvin5a640e12007-05-29 23:57:12 +00001548 (output_ins.oprs[1].opflags & OPFLAG_FORWARD) &&
1549 !(IMMEDIATE & ~output_ins.oprs[1].type))
1550 {
1551 /* Remove special properties bits */
1552 output_ins.oprs[1].type &= ~REG_SMASK;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001553 }
H. Peter Anvineba20a72002-04-30 20:53:55 +00001554
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001555 }
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001556
H. Peter Anvine2c80182005-01-15 22:15:51 +00001557 }
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001558
H. Peter Anvine2c80182005-01-15 22:15:51 +00001559 /* forw_ref */
1560 if (output_ins.opcode == I_EQU) {
1561 if (pass1 == 1) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001562 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001563 * Special `..' EQUs get processed in pass two,
1564 * except `..@' macro-processor EQUs which are done
1565 * in the normal place.
1566 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001567 if (!output_ins.label)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001568 report_error(ERR_NONFATAL,
1569 "EQU not preceded by label");
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001570
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001571 else if (output_ins.label[0] != '.' ||
1572 output_ins.label[1] != '.' ||
H. Peter Anvine2c80182005-01-15 22:15:51 +00001573 output_ins.label[2] == '@') {
1574 if (output_ins.operands == 1 &&
1575 (output_ins.oprs[0].type & IMMEDIATE) &&
1576 output_ins.oprs[0].wrt == NO_SEG) {
1577 int isext =
1578 output_ins.oprs[0].
1579 opflags & OPFLAG_EXTERN;
1580 def_label(output_ins.label,
1581 output_ins.oprs[0].segment,
1582 output_ins.oprs[0].offset, NULL,
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001583 false, isext, ofmt,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001584 report_error);
1585 } else if (output_ins.operands == 2
1586 && (output_ins.oprs[0].
1587 type & IMMEDIATE)
1588 && (output_ins.oprs[0].type & COLON)
1589 && output_ins.oprs[0].segment ==
1590 NO_SEG
1591 && output_ins.oprs[0].wrt == NO_SEG
1592 && (output_ins.oprs[1].
1593 type & IMMEDIATE)
1594 && output_ins.oprs[1].segment ==
1595 NO_SEG
1596 && output_ins.oprs[1].wrt ==
1597 NO_SEG) {
1598 def_label(output_ins.label,
1599 output_ins.oprs[0].
1600 offset | SEG_ABS,
1601 output_ins.oprs[1].offset, NULL,
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001602 false, false, ofmt,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001603 report_error);
1604 } else
1605 report_error(ERR_NONFATAL,
1606 "bad syntax for EQU");
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001607 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001608 } else {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001609 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001610 * Special `..' EQUs get processed here, except
1611 * `..@' macro processor EQUs which are done above.
1612 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001613 if (output_ins.label[0] == '.' &&
H. Peter Anvine2c80182005-01-15 22:15:51 +00001614 output_ins.label[1] == '.' &&
1615 output_ins.label[2] != '@') {
1616 if (output_ins.operands == 1 &&
1617 (output_ins.oprs[0].type & IMMEDIATE)) {
1618 define_label(output_ins.label,
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001619 output_ins.oprs[0].segment,
1620 output_ins.oprs[0].offset,
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001621 NULL, false, false, ofmt,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001622 report_error);
1623 } else if (output_ins.operands == 2
1624 && (output_ins.oprs[0].
1625 type & IMMEDIATE)
1626 && (output_ins.oprs[0].type & COLON)
1627 && output_ins.oprs[0].segment ==
1628 NO_SEG
1629 && (output_ins.oprs[1].
1630 type & IMMEDIATE)
1631 && output_ins.oprs[1].segment ==
1632 NO_SEG) {
1633 define_label(output_ins.label,
1634 output_ins.oprs[0].
1635 offset | SEG_ABS,
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001636 output_ins.oprs[1].offset,
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001637 NULL, false, false, ofmt,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001638 report_error);
1639 } else
1640 report_error(ERR_NONFATAL,
1641 "bad syntax for EQU");
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001642 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001643 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001644 } else { /* instruction isn't an EQU */
H. Peter Anvineba20a72002-04-30 20:53:55 +00001645
H. Peter Anvine2c80182005-01-15 22:15:51 +00001646 if (pass1 == 1) {
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001647
Charles Crayne5fbbc8c2007-11-07 19:03:46 -08001648 int64_t l = insn_size(location.segment, offs, sb, cpu,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001649 &output_ins, report_error);
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001650
H. Peter Anvine2c80182005-01-15 22:15:51 +00001651 /* if (using_debug_info) && output_ins.opcode != -1) */
1652 if (using_debug_info)
1653 { /* fbk 03/25/01 */
1654 /* this is done here so we can do debug type info */
Keith Kaniosb7a89542007-04-12 02:40:54 +00001655 int32_t typeinfo =
H. Peter Anvine2c80182005-01-15 22:15:51 +00001656 TYS_ELEMENTS(output_ins.operands);
1657 switch (output_ins.opcode) {
1658 case I_RESB:
1659 typeinfo =
1660 TYS_ELEMENTS(output_ins.oprs[0].
1661 offset) | TY_BYTE;
1662 break;
1663 case I_RESW:
1664 typeinfo =
1665 TYS_ELEMENTS(output_ins.oprs[0].
1666 offset) | TY_WORD;
1667 break;
1668 case I_RESD:
1669 typeinfo =
1670 TYS_ELEMENTS(output_ins.oprs[0].
1671 offset) | TY_DWORD;
1672 break;
1673 case I_RESQ:
1674 typeinfo =
1675 TYS_ELEMENTS(output_ins.oprs[0].
1676 offset) | TY_QWORD;
1677 break;
1678 case I_REST:
1679 typeinfo =
1680 TYS_ELEMENTS(output_ins.oprs[0].
1681 offset) | TY_TBYTE;
1682 break;
H. Peter Anvindfb91802008-05-20 11:43:53 -07001683 case I_RESO:
1684 typeinfo =
1685 TYS_ELEMENTS(output_ins.oprs[0].
1686 offset) | TY_OWORD;
1687 break;
1688 case I_RESY:
1689 typeinfo =
1690 TYS_ELEMENTS(output_ins.oprs[0].
1691 offset) | TY_YWORD;
1692 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001693 case I_DB:
1694 typeinfo |= TY_BYTE;
1695 break;
1696 case I_DW:
1697 typeinfo |= TY_WORD;
1698 break;
1699 case I_DD:
1700 if (output_ins.eops_float)
1701 typeinfo |= TY_FLOAT;
1702 else
1703 typeinfo |= TY_DWORD;
1704 break;
1705 case I_DQ:
1706 typeinfo |= TY_QWORD;
1707 break;
1708 case I_DT:
1709 typeinfo |= TY_TBYTE;
1710 break;
H. Peter Anvin4408b622007-09-22 21:29:41 -07001711 case I_DO:
1712 typeinfo |= TY_OWORD;
1713 break;
H. Peter Anvindfb91802008-05-20 11:43:53 -07001714 case I_DY:
1715 typeinfo |= TY_YWORD;
1716 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001717 default:
1718 typeinfo = TY_LABEL;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001719
H. Peter Anvine2c80182005-01-15 22:15:51 +00001720 }
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001721
H. Peter Anvine2c80182005-01-15 22:15:51 +00001722 ofmt->current_dfmt->debug_typevalue(typeinfo);
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001723
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001724 }
1725 if (l != -1) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001726 offs += l;
1727 SET_CURR_OFFS(offs);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001728 }
H. Peter Anvin734b1882002-04-30 21:01:08 +00001729 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001730 * else l == -1 => invalid instruction, which will be
1731 * flagged as an error on pass 2
1732 */
H. Peter Anvin76690a12002-04-30 20:52:49 +00001733
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001734 } else {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001735 offs += assemble(location.segment, offs, sb, cpu,
1736 &output_ins, ofmt, report_error,
1737 &nasmlist);
1738 SET_CURR_OFFS(offs);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001739
H. Peter Anvine2c80182005-01-15 22:15:51 +00001740 }
1741 } /* not an EQU */
1742 cleanup_insn(&output_ins);
1743 }
1744 nasm_free(line);
1745 location.offset = offs = GET_CURR_OFFS;
1746 } /* end while (line = preproc->getline... */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001747
H. Peter Anvine2c80182005-01-15 22:15:51 +00001748 if (pass1 == 2 && global_offset_changed)
1749 report_error(ERR_NONFATAL,
1750 "phase error detected at end of assembly.");
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001751
H. Peter Anvine2c80182005-01-15 22:15:51 +00001752 if (pass1 == 1)
1753 preproc->cleanup(1);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001754
H. Peter Anvine2c80182005-01-15 22:15:51 +00001755 if (pass1 == 1 && terminate_after_phase) {
1756 fclose(ofile);
1757 remove(outname);
1758 if (want_usage)
1759 usage();
1760 exit(1);
1761 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001762 if (passn >= pass_max - 2 ||
1763 (passn > 1 && !global_offset_changed))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001764 pass0++;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001765 }
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001766
H. Peter Anvine2c80182005-01-15 22:15:51 +00001767 preproc->cleanup(0);
1768 nasmlist.cleanup();
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001769#if 1
H. Peter Anvine2c80182005-01-15 22:15:51 +00001770 if (optimizing > 0 && opt_verbose_info) /* -On and -Ov switches */
1771 fprintf(stdout,
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001772 "info:: assembly required 1+%d+1 passes\n", passn-3);
H. Peter Anvin734b1882002-04-30 21:01:08 +00001773#endif
H. Peter Anvine2c80182005-01-15 22:15:51 +00001774} /* exit from assemble_file (...) */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001775
H. Peter Anvin70055962007-10-11 00:05:31 -07001776static enum directives getkw(char **directive, char **value)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001777{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001778 char *p, *q, *buf;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001779
Michael K. Ter Louw1d392362003-08-15 22:25:53 +00001780 buf = *directive;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001781
H. Peter Anvincaa82a12002-04-30 21:03:11 +00001782 /* allow leading spaces or tabs */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001783 while (*buf == ' ' || *buf == '\t')
1784 buf++;
H. Peter Anvincaa82a12002-04-30 21:03:11 +00001785
H. Peter Anvine2c80182005-01-15 22:15:51 +00001786 if (*buf != '[')
1787 return 0;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001788
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001789 p = buf;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001790
H. Peter Anvine2c80182005-01-15 22:15:51 +00001791 while (*p && *p != ']')
1792 p++;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001793
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001794 if (!*p)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001795 return 0;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001796
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001797 q = p++;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001798
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001799 while (*p && *p != ';') {
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001800 if (!nasm_isspace(*p))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001801 return 0;
1802 p++;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001803 }
1804 q[1] = '\0';
1805
H. Peter Anvine2c80182005-01-15 22:15:51 +00001806 *directive = p = buf + 1;
1807 while (*buf && *buf != ' ' && *buf != ']' && *buf != '\t')
1808 buf++;
1809 if (*buf == ']') {
1810 *buf = '\0';
1811 *value = buf;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001812 } else {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001813 *buf++ = '\0';
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001814 while (nasm_isspace(*buf))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001815 buf++; /* beppu - skip leading whitespace */
1816 *value = buf;
1817 while (*buf != ']')
1818 buf++;
1819 *buf++ = '\0';
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001820 }
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001821
1822 return bsii(*directive, directives, elements(directives));
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001823}
1824
Ed Berosetfa771012002-06-09 20:56:40 +00001825/**
1826 * gnu style error reporting
1827 * This function prints an error message to error_file in the
1828 * style used by GNU. An example would be:
1829 * file.asm:50: error: blah blah blah
H. Peter Anvin70653092007-10-19 14:42:29 -07001830 * where file.asm is the name of the file, 50 is the line number on
Ed Berosetfa771012002-06-09 20:56:40 +00001831 * which the error occurs (or is detected) and "error:" is one of
1832 * the possible optional diagnostics -- it can be "error" or "warning"
H. Peter Anvin70653092007-10-19 14:42:29 -07001833 * or something else. Finally the line terminates with the actual
Ed Berosetfa771012002-06-09 20:56:40 +00001834 * error message.
H. Peter Anvin70653092007-10-19 14:42:29 -07001835 *
1836 * @param severity the severity of the warning or error
Ed Berosetfa771012002-06-09 20:56:40 +00001837 * @param fmt the printf style format string
1838 */
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001839static void report_error_gnu(int severity, const char *fmt, ...)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001840{
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001841 va_list ap;
1842
Ed Berosetfa771012002-06-09 20:56:40 +00001843 if (is_suppressed_warning(severity))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001844 return;
H. Peter Anvin76690a12002-04-30 20:52:49 +00001845
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001846 if (severity & ERR_NOFILE)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001847 fputs("nasm: ", error_file);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001848 else {
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001849 char *currentfile = NULL;
Keith Kaniosb7a89542007-04-12 02:40:54 +00001850 int32_t lineno = 0;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001851 src_get(&lineno, &currentfile);
Keith Kanios93f2e9a2007-04-14 00:10:59 +00001852 fprintf(error_file, "%s:%"PRId32": ", currentfile, lineno);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001853 nasm_free(currentfile);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001854 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001855 va_start(ap, fmt);
1856 report_error_common(severity, fmt, ap);
1857 va_end(ap);
Ed Berosetfa771012002-06-09 20:56:40 +00001858}
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001859
Ed Berosetfa771012002-06-09 20:56:40 +00001860/**
1861 * MS style error reporting
1862 * This function prints an error message to error_file in the
H. Peter Anvin70653092007-10-19 14:42:29 -07001863 * style used by Visual C and some other Microsoft tools. An example
Ed Berosetfa771012002-06-09 20:56:40 +00001864 * would be:
Ed Beroset6e61d0d2002-06-11 03:29:36 +00001865 * file.asm(50) : error: blah blah blah
H. Peter Anvin70653092007-10-19 14:42:29 -07001866 * where file.asm is the name of the file, 50 is the line number on
Ed Beroset6e61d0d2002-06-11 03:29:36 +00001867 * which the error occurs (or is detected) and "error:" is one of
1868 * the possible optional diagnostics -- it can be "error" or "warning"
H. Peter Anvin70653092007-10-19 14:42:29 -07001869 * or something else. Finally the line terminates with the actual
Ed Beroset6e61d0d2002-06-11 03:29:36 +00001870 * error message.
H. Peter Anvin70653092007-10-19 14:42:29 -07001871 *
1872 * @param severity the severity of the warning or error
Ed Berosetfa771012002-06-09 20:56:40 +00001873 * @param fmt the printf style format string
1874 */
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001875static void report_error_vc(int severity, const char *fmt, ...)
Ed Berosetfa771012002-06-09 20:56:40 +00001876{
1877 va_list ap;
1878
H. Peter Anvine2c80182005-01-15 22:15:51 +00001879 if (is_suppressed_warning(severity))
1880 return;
Ed Berosetfa771012002-06-09 20:56:40 +00001881
1882 if (severity & ERR_NOFILE)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001883 fputs("nasm: ", error_file);
Ed Berosetfa771012002-06-09 20:56:40 +00001884 else {
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001885 char *currentfile = NULL;
Keith Kaniosb7a89542007-04-12 02:40:54 +00001886 int32_t lineno = 0;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001887 src_get(&lineno, &currentfile);
Keith Kanios93f2e9a2007-04-14 00:10:59 +00001888 fprintf(error_file, "%s(%"PRId32") : ", currentfile, lineno);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001889 nasm_free(currentfile);
Ed Berosetfa771012002-06-09 20:56:40 +00001890 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001891 va_start(ap, fmt);
1892 report_error_common(severity, fmt, ap);
1893 va_end(ap);
Ed Berosetfa771012002-06-09 20:56:40 +00001894}
1895
1896/**
1897 * check for supressed warning
H. Peter Anvin70653092007-10-19 14:42:29 -07001898 * checks for suppressed warning or pass one only warning and we're
Ed Berosetfa771012002-06-09 20:56:40 +00001899 * not in pass 1
1900 *
1901 * @param severity the severity of the warning or error
1902 * @return true if we should abort error/warning printing
1903 */
H. Peter Anvin2b046cf2008-01-22 14:08:36 -08001904static bool is_suppressed_warning(int severity)
Ed Berosetfa771012002-06-09 20:56:40 +00001905{
1906 /*
1907 * See if it's a suppressed warning.
1908 */
H. Peter Anvin2b046cf2008-01-22 14:08:36 -08001909 return (severity & ERR_MASK) == ERR_WARNING &&
1910 (((severity & ERR_WARN_MASK) != 0 &&
1911 suppressed[(severity & ERR_WARN_MASK) >> ERR_WARN_SHR]) ||
1912 /* See if it's a pass-one only warning and we're not in pass one. */
1913 ((severity & ERR_PASS1) && pass0 != 1));
Ed Berosetfa771012002-06-09 20:56:40 +00001914}
1915
1916/**
1917 * common error reporting
1918 * This is the common back end of the error reporting schemes currently
H. Peter Anvin70653092007-10-19 14:42:29 -07001919 * implemented. It prints the nature of the warning and then the
Ed Berosetfa771012002-06-09 20:56:40 +00001920 * specific error message to error_file and may or may not return. It
1921 * doesn't return if the error severity is a "panic" or "debug" type.
H. Peter Anvin70653092007-10-19 14:42:29 -07001922 *
1923 * @param severity the severity of the warning or error
Ed Berosetfa771012002-06-09 20:56:40 +00001924 * @param fmt the printf style format string
1925 */
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001926static void report_error_common(int severity, const char *fmt,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001927 va_list args)
Ed Berosetfa771012002-06-09 20:56:40 +00001928{
H. Peter Anvin7df04172008-06-10 18:27:38 -07001929 switch (severity & (ERR_MASK|ERR_NO_SEVERITY)) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001930 case ERR_WARNING:
1931 fputs("warning: ", error_file);
1932 break;
1933 case ERR_NONFATAL:
1934 fputs("error: ", error_file);
1935 break;
1936 case ERR_FATAL:
1937 fputs("fatal: ", error_file);
1938 break;
1939 case ERR_PANIC:
1940 fputs("panic: ", error_file);
1941 break;
1942 case ERR_DEBUG:
1943 fputs("debug: ", error_file);
1944 break;
H. Peter Anvin7df04172008-06-10 18:27:38 -07001945 default:
1946 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001947 }
H. Peter Anvin734b1882002-04-30 21:01:08 +00001948
H. Peter Anvine2c80182005-01-15 22:15:51 +00001949 vfprintf(error_file, fmt, args);
H. Peter Anvind1fb15c2007-11-13 09:37:59 -08001950 putc('\n', error_file);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001951
1952 if (severity & ERR_USAGE)
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001953 want_usage = true;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001954
1955 switch (severity & ERR_MASK) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001956 case ERR_DEBUG:
1957 /* no further action, by definition */
1958 break;
H. Peter Anvinb030c922007-11-13 11:31:15 -08001959 case ERR_WARNING:
1960 if (!suppressed[0]) /* Treat warnings as errors */
1961 terminate_after_phase = true;
1962 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001963 case ERR_NONFATAL:
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001964 terminate_after_phase = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001965 break;
1966 case ERR_FATAL:
1967 if (ofile) {
1968 fclose(ofile);
1969 remove(outname);
1970 }
1971 if (want_usage)
1972 usage();
1973 exit(1); /* instantly die */
1974 break; /* placate silly compilers */
1975 case ERR_PANIC:
1976 fflush(NULL);
1977 /* abort(); *//* halt, catch fire, and dump core */
1978 exit(3);
1979 break;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001980 }
1981}
1982
H. Peter Anvin734b1882002-04-30 21:01:08 +00001983static void usage(void)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001984{
H. Peter Anvin620515a2002-04-30 20:57:38 +00001985 fputs("type `nasm -h' for help\n", error_file);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001986}
1987
H. Peter Anvin734b1882002-04-30 21:01:08 +00001988static void register_output_formats(void)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001989{
H. Peter Anvine2c80182005-01-15 22:15:51 +00001990 ofmt = ofmt_register(report_error);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001991}
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001992
1993#define BUF_DELTA 512
1994
1995static FILE *no_pp_fp;
1996static efunc no_pp_err;
H. Peter Anvin76690a12002-04-30 20:52:49 +00001997static ListGen *no_pp_list;
Keith Kaniosb7a89542007-04-12 02:40:54 +00001998static int32_t no_pp_lineinc;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001999
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002000static void no_pp_reset(char *file, int pass, efunc error, evalfunc eval,
H. Peter Anvin9e1f5282008-05-29 21:38:00 -07002001 ListGen * listgen, StrList **deplist)
H. Peter Anvineba20a72002-04-30 20:53:55 +00002002{
2003 src_set_fname(nasm_strdup(file));
2004 src_set_linnum(0);
2005 no_pp_lineinc = 1;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00002006 no_pp_err = error;
2007 no_pp_fp = fopen(file, "r");
2008 if (!no_pp_fp)
H. Peter Anvine2c80182005-01-15 22:15:51 +00002009 no_pp_err(ERR_FATAL | ERR_NOFILE,
2010 "unable to open input file `%s'", file);
H. Peter Anvin76690a12002-04-30 20:52:49 +00002011 no_pp_list = listgen;
H. Peter Anvine2c80182005-01-15 22:15:51 +00002012 (void)pass; /* placate compilers */
2013 (void)eval; /* placate compilers */
H. Peter Anvin9e1f5282008-05-29 21:38:00 -07002014
2015 if (deplist) {
2016 StrList *sl = nasm_malloc(strlen(file)+1+sizeof sl->next);
2017 sl->next = NULL;
2018 strcpy(sl->str, file);
2019 *deplist = sl;
2020 }
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00002021}
2022
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002023static char *no_pp_getline(void)
H. Peter Anvineba20a72002-04-30 20:53:55 +00002024{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002025 char *buffer, *p, *q;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00002026 int bufsize;
2027
2028 bufsize = BUF_DELTA;
2029 buffer = nasm_malloc(BUF_DELTA);
H. Peter Anvineba20a72002-04-30 20:53:55 +00002030 src_set_linnum(src_get_linnum() + no_pp_lineinc);
2031
H. Peter Anvine2c80182005-01-15 22:15:51 +00002032 while (1) { /* Loop to handle %line */
H. Peter Anvineba20a72002-04-30 20:53:55 +00002033
H. Peter Anvine2c80182005-01-15 22:15:51 +00002034 p = buffer;
2035 while (1) { /* Loop to handle long lines */
2036 q = fgets(p, bufsize - (p - buffer), no_pp_fp);
2037 if (!q)
2038 break;
2039 p += strlen(p);
2040 if (p > buffer && p[-1] == '\n')
2041 break;
2042 if (p - buffer > bufsize - 10) {
2043 int offset;
2044 offset = p - buffer;
2045 bufsize += BUF_DELTA;
2046 buffer = nasm_realloc(buffer, bufsize);
2047 p = buffer + offset;
2048 }
2049 }
H. Peter Anvineba20a72002-04-30 20:53:55 +00002050
H. Peter Anvine2c80182005-01-15 22:15:51 +00002051 if (!q && p == buffer) {
2052 nasm_free(buffer);
2053 return NULL;
2054 }
H. Peter Anvineba20a72002-04-30 20:53:55 +00002055
H. Peter Anvine2c80182005-01-15 22:15:51 +00002056 /*
2057 * Play safe: remove CRs, LFs and any spurious ^Zs, if any of
2058 * them are present at the end of the line.
2059 */
2060 buffer[strcspn(buffer, "\r\n\032")] = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00002061
H. Peter Anvin0a98f602007-10-03 21:22:16 -07002062 if (!nasm_strnicmp(buffer, "%line", 5)) {
Keith Kaniosb7a89542007-04-12 02:40:54 +00002063 int32_t ln;
H. Peter Anvine2c80182005-01-15 22:15:51 +00002064 int li;
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002065 char *nm = nasm_malloc(strlen(buffer));
Keith Kanios93f2e9a2007-04-14 00:10:59 +00002066 if (sscanf(buffer + 5, "%"PRId32"+%d %s", &ln, &li, nm) == 3) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00002067 nasm_free(src_set_fname(nm));
2068 src_set_linnum(ln);
2069 no_pp_lineinc = li;
2070 continue;
2071 }
2072 nasm_free(nm);
2073 }
2074 break;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00002075 }
2076
H. Peter Anvine2c80182005-01-15 22:15:51 +00002077 no_pp_list->line(LIST_READ, buffer);
H. Peter Anvin76690a12002-04-30 20:52:49 +00002078
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00002079 return buffer;
2080}
2081
H. Peter Anvine2c80182005-01-15 22:15:51 +00002082static void no_pp_cleanup(int pass)
H. Peter Anvineba20a72002-04-30 20:53:55 +00002083{
Keith Kaniosc7ae18d2007-04-14 00:46:25 +00002084 (void)pass; /* placate GCC */
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00002085 fclose(no_pp_fp);
2086}
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002087
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002088static uint32_t get_cpu(char *value)
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002089{
H. Peter Anvine2c80182005-01-15 22:15:51 +00002090 if (!strcmp(value, "8086"))
2091 return IF_8086;
2092 if (!strcmp(value, "186"))
2093 return IF_186;
2094 if (!strcmp(value, "286"))
2095 return IF_286;
2096 if (!strcmp(value, "386"))
2097 return IF_386;
2098 if (!strcmp(value, "486"))
2099 return IF_486;
2100 if (!strcmp(value, "586") || !nasm_stricmp(value, "pentium"))
2101 return IF_PENT;
2102 if (!strcmp(value, "686") ||
2103 !nasm_stricmp(value, "ppro") ||
2104 !nasm_stricmp(value, "pentiumpro") || !nasm_stricmp(value, "p2"))
2105 return IF_P6;
2106 if (!nasm_stricmp(value, "p3") || !nasm_stricmp(value, "katmai"))
2107 return IF_KATMAI;
2108 if (!nasm_stricmp(value, "p4") || /* is this right? -- jrc */
2109 !nasm_stricmp(value, "willamette"))
2110 return IF_WILLAMETTE;
2111 if (!nasm_stricmp(value, "prescott"))
2112 return IF_PRESCOTT;
Keith Kaniosb7a89542007-04-12 02:40:54 +00002113 if (!nasm_stricmp(value, "x64") ||
2114 !nasm_stricmp(value, "x86-64"))
H. Peter Anvin0db11e22007-04-17 20:23:11 +00002115 return IF_X86_64;
H. Peter Anvin3ab8de62002-05-28 01:25:06 +00002116 if (!nasm_stricmp(value, "ia64") ||
H. Peter Anvine2c80182005-01-15 22:15:51 +00002117 !nasm_stricmp(value, "ia-64") ||
2118 !nasm_stricmp(value, "itanium") ||
2119 !nasm_stricmp(value, "itanic") || !nasm_stricmp(value, "merced"))
2120 return IF_IA64;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002121
H. Peter Anvine2c80182005-01-15 22:15:51 +00002122 report_error(pass0 < 2 ? ERR_NONFATAL : ERR_FATAL,
2123 "unknown 'cpu' type");
H. Peter Anvin734b1882002-04-30 21:01:08 +00002124
H. Peter Anvine2c80182005-01-15 22:15:51 +00002125 return IF_PLEVEL; /* the maximum level */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002126}
2127
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002128static int get_bits(char *value)
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002129{
2130 int i;
H. Peter Anvin734b1882002-04-30 21:01:08 +00002131
H. Peter Anvine2c80182005-01-15 22:15:51 +00002132 if ((i = atoi(value)) == 16)
2133 return i; /* set for a 16-bit segment */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002134 else if (i == 32) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00002135 if (cpu < IF_386) {
2136 report_error(ERR_NONFATAL,
2137 "cannot specify 32-bit segment on processor below a 386");
2138 i = 16;
2139 }
Keith Kaniosb7a89542007-04-12 02:40:54 +00002140 } else if (i == 64) {
H. Peter Anvin0db11e22007-04-17 20:23:11 +00002141 if (cpu < IF_X86_64) {
Keith Kaniosb7a89542007-04-12 02:40:54 +00002142 report_error(ERR_NONFATAL,
2143 "cannot specify 64-bit segment on processor below an x86-64");
2144 i = 16;
2145 }
2146 if (i != maxbits) {
2147 report_error(ERR_NONFATAL,
2148 "%s output format does not support 64-bit code",
2149 ofmt->shortname);
2150 i = 16;
2151 }
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002152 } else {
H. Peter Anvine2c80182005-01-15 22:15:51 +00002153 report_error(pass0 < 2 ? ERR_NONFATAL : ERR_FATAL,
Keith Kaniosb7a89542007-04-12 02:40:54 +00002154 "`%s' is not a valid segment size; must be 16, 32 or 64",
H. Peter Anvine2c80182005-01-15 22:15:51 +00002155 value);
2156 i = 16;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002157 }
2158 return i;
2159}
2160
2161/* end of nasm.c */