blob: c83f3d0bb6a3b27241742eb2ee1cbe2c19e851d0 [file] [log] [blame]
H. Peter Anvin9e6747c2009-06-28 17:13:04 -07001/* ----------------------------------------------------------------------- *
H. Peter Anvin323fcff2009-07-12 12:04:56 -07002 *
Cyrill Gorcunovf187eb72013-02-15 12:25:33 +04003 * Copyright 1996-2013 The NASM Authors - All Rights Reserved
H. Peter Anvin9e6747c2009-06-28 17:13:04 -07004 * See the file AUTHORS included with the NASM distribution for
5 * the specific copyright holders.
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00006 *
H. Peter Anvin9e6747c2009-06-28 17:13:04 -07007 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following
9 * conditions are met:
10 *
11 * * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * * Redistributions in binary form must reproduce the above
14 * copyright notice, this list of conditions and the following
15 * disclaimer in the documentation and/or other materials provided
16 * with the distribution.
H. Peter Anvin323fcff2009-07-12 12:04:56 -070017 *
H. Peter Anvin9e6747c2009-06-28 17:13:04 -070018 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
19 * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
20 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
26 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
30 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 *
32 * ----------------------------------------------------------------------- */
33
H. Peter Anvin323fcff2009-07-12 12:04:56 -070034/*
H. Peter Anvin9e6747c2009-06-28 17:13:04 -070035 * The Netwide Assembler main program module
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000036 */
37
H. Peter Anvinfe501952007-10-02 21:53:51 -070038#include "compiler.h"
39
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000040#include <stdio.h>
41#include <stdarg.h>
42#include <stdlib.h>
43#include <string.h>
44#include <ctype.h>
Keith Kaniosb7a89542007-04-12 02:40:54 +000045#include <inttypes.h>
H. Peter Anvinfd7dd112007-10-10 14:06:59 -070046#include <limits.h>
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -080047#include <time.h>
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000048
49#include "nasm.h"
50#include "nasmlib.h"
H. Peter Anvin1803ded2008-06-09 17:32:43 -070051#include "saa.h"
H. Peter Anvinfcb89092008-06-09 17:40:16 -070052#include "raa.h"
H. Peter Anvinf6c9e652007-10-16 14:40:27 -070053#include "float.h"
H. Peter Anvin74cc5e52007-08-30 22:35:34 +000054#include "stdscan.h"
H. Peter Anvinaf535c12002-04-30 20:59:21 +000055#include "insns.h"
H. Peter Anvind7ed89e2002-04-30 20:52:08 +000056#include "preproc.h"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000057#include "parser.h"
H. Peter Anvin76690a12002-04-30 20:52:49 +000058#include "eval.h"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000059#include "assemble.h"
60#include "labels.h"
H. Peter Anvin31b707b2009-06-27 22:07:33 -070061#include "output/outform.h"
H. Peter Anvin6768eb72002-04-30 20:52:26 +000062#include "listing.h"
Cyrill Gorcunov08359152013-11-09 22:16:11 +040063#include "iflag.h"
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000064
H. Peter Anvin31387b22010-07-15 18:28:52 -070065/*
66 * This is the maximum number of optimization passes to do. If we ever
67 * find a case where the optimizer doesn't naturally converge, we might
68 * have to drop this value so the assembler doesn't appear to just hang.
69 */
70#define MAX_OPTIMIZE (INT_MAX >> 1)
71
H. Peter Anvine2c80182005-01-15 22:15:51 +000072struct forwrefinfo { /* info held on forward refs. */
H. Peter Anvineba20a72002-04-30 20:53:55 +000073 int lineno;
74 int operand;
75};
76
Keith Kaniosa6dfa782007-04-13 16:47:53 +000077static int get_bits(char *value);
Cyrill Gorcunov08359152013-11-09 22:16:11 +040078static iflag_t get_cpu(char *cpu_str);
Keith Kaniosa6dfa782007-04-13 16:47:53 +000079static void parse_cmdline(int, char **);
H. Peter Anvin9e1f5282008-05-29 21:38:00 -070080static void assemble_file(char *, StrList **);
H. Peter Anvin9bd15062009-07-18 21:07:17 -040081static void nasm_verror_gnu(int severity, const char *fmt, va_list args);
82static void nasm_verror_vc(int severity, const char *fmt, va_list args);
83static void nasm_verror_common(int severity, const char *fmt, va_list args);
H. Peter Anvin2b046cf2008-01-22 14:08:36 -080084static bool is_suppressed_warning(int severity);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +000085static void usage(void);
86
John Coffman0efaec92002-05-26 19:20:08 +000087static int using_debug_info, opt_verbose_info;
H. Peter Anvin6867acc2007-10-10 14:58:45 -070088bool tasm_compatible_mode = false;
H. Peter Anvin00835fe2008-01-08 23:03:57 -080089int pass0, passn;
Keith Kaniosb7a89542007-04-12 02:40:54 +000090int maxbits = 0;
H. Peter Anvin99c4ecd2007-08-28 23:06:00 +000091int globalrel = 0;
Jin Kyu Songb287ff02013-12-04 20:05:55 -080092int globalbnd = 0;
H. Peter Anvineba20a72002-04-30 20:53:55 +000093
H. Peter Anvin9bd15062009-07-18 21:07:17 -040094static time_t official_compile_time;
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -080095
Keith Kaniosa6dfa782007-04-13 16:47:53 +000096static char inname[FILENAME_MAX];
97static char outname[FILENAME_MAX];
98static char listname[FILENAME_MAX];
Charles Craynefcce07f2007-09-30 22:15:36 -070099static char errname[FILENAME_MAX];
H. Peter Anvine2c80182005-01-15 22:15:51 +0000100static int globallineno; /* for forward-reference tracking */
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000101/* static int pass = 0; */
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400102struct ofmt *ofmt = &OF_DEFAULT;
Cyrill Gorcunovc1936da2011-04-06 18:32:15 +0400103struct ofmt_alias *ofmt_alias = NULL;
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400104const struct dfmt *dfmt;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000105
H. Peter Anvine2c80182005-01-15 22:15:51 +0000106static FILE *error_file; /* Where to write error messages */
H. Peter Anvin620515a2002-04-30 20:57:38 +0000107
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400108FILE *ofile = NULL;
H. Peter Anvin31387b22010-07-15 18:28:52 -0700109int optimizing = MAX_OPTIMIZE; /* number of optimization passes to take */
110static int sb, cmd_sb = 16; /* by default */
Cyrill Gorcunov08359152013-11-09 22:16:11 +0400111
112static iflag_t cpu;
113static iflag_t cmd_cpu;
114
Charles Craynec1905c22008-09-11 18:54:06 -0700115int64_t global_offset_changed; /* referenced in labels.c */
116int64_t prev_offset_changed;
117int32_t stall_count;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000118
H. Peter Anvin12e46512007-10-03 21:30:57 -0700119static struct location location;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000120int in_abs_seg; /* Flag we are in ABSOLUTE seg */
Keith Kaniosb7a89542007-04-12 02:40:54 +0000121int32_t abs_seg; /* ABSOLUTE segment basis */
122int32_t abs_offset; /* ABSOLUTE offset */
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000123
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000124static struct RAA *offsets;
H. Peter Anvinea838272002-04-30 20:51:53 +0000125
H. Peter Anvine2c80182005-01-15 22:15:51 +0000126static struct SAA *forwrefs; /* keep track of forward references */
H. Peter Anvin9d637df2007-10-04 13:42:56 -0700127static const struct forwrefinfo *forwref;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000128
Cyrill Gorcunov86b2ad02011-07-01 10:38:25 +0400129static struct preproc_ops *preproc;
130
Cyrill Gorcunove9fc88c2014-06-23 02:22:02 +0400131#define OP_NORMAL (1u << 0)
132#define OP_PREPROCESS (1u << 1)
133#define OP_DEPEND (1u << 2)
134
135static unsigned int operating_mode;
Cyrill Gorcunov3ed32cb2014-06-22 20:53:12 +0400136
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700137/* Dependency flags */
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700138static bool depend_emit_phony = false;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700139static bool depend_missing_ok = false;
140static const char *depend_target = NULL;
141static const char *depend_file = NULL;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000142
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000143/*
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000144 * Which of the suppressible warnings are suppressed. Entry zero
H. Peter Anvinb030c922007-11-13 11:31:15 -0800145 * isn't an actual warning, but it used for -w+error/-Werror.
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000146 */
Victor van den Elzen819703a2008-07-16 15:20:56 +0200147
H. Peter Anvin972079f2008-09-30 17:01:23 -0700148static bool warning_on[ERR_WARN_MAX+1]; /* Current state */
149static bool warning_on_global[ERR_WARN_MAX+1]; /* Command-line state */
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000150
H. Peter Anvin972079f2008-09-30 17:01:23 -0700151static const struct warning {
152 const char *name;
153 const char *help;
154 bool enabled;
155} warnings[ERR_WARN_MAX+1] = {
156 {"error", "treat warnings as errors", false},
157 {"macro-params", "macro calls with wrong parameter count", true},
158 {"macro-selfref", "cyclic macro references", false},
159 {"macro-defaults", "macros with more default than optional parameters", true},
160 {"orphan-labels", "labels alone on lines without trailing `:'", true},
H. Peter Anvin9a65f712008-10-26 08:59:04 -0700161 {"number-overflow", "numeric constant does not fit", true},
H. Peter Anvin972079f2008-09-30 17:01:23 -0700162 {"gnu-elf-extensions", "using 8- or 16-bit relocation in ELF32, a GNU extension", false},
163 {"float-overflow", "floating point overflow", true},
164 {"float-denorm", "floating point denormal", false},
165 {"float-underflow", "floating point underflow", false},
166 {"float-toolong", "too many digits in floating-point number", true},
167 {"user", "%warning directives", true},
H. Peter Anvin5a24fdd2012-02-25 15:10:04 -0800168 {"lock", "lock prefix on unlockable instructions", true},
169 {"hle", "invalid hle prefixes", true},
Jin Kyu Songbb8cf3f2013-11-29 00:38:29 -0800170 {"bnd", "invalid bnd prefixes", true},
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000171};
172
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -0700173static bool want_usage;
174static bool terminate_after_phase;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000175int user_nolist = 0; /* fbk 9/2/00 */
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000176
H. Peter Anvin55340992012-09-09 17:09:00 -0700177static char *quote_for_make(const char *str);
178
Cyrill Gorcunov190232f2013-02-15 12:35:04 +0400179static int64_t get_curr_offs(void)
180{
181 return in_abs_seg ? abs_offset : raa_read(offsets, location.segment);
182}
183
184static void set_curr_offs(int64_t l_off)
185{
186 if (in_abs_seg)
187 abs_offset = l_off;
188 else
189 offsets = raa_write(offsets, location.segment, l_off);
190}
191
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000192static void nasm_fputs(const char *line, FILE * outfile)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000193{
H. Peter Anvin310b3e12002-05-14 22:38:55 +0000194 if (outfile) {
H. Peter Anvine2c80182005-01-15 22:15:51 +0000195 fputs(line, outfile);
H. Peter Anvind1fb15c2007-11-13 09:37:59 -0800196 putc('\n', outfile);
H. Peter Anvineba20a72002-04-30 20:53:55 +0000197 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +0000198 puts(line);
H. Peter Anvineba20a72002-04-30 20:53:55 +0000199}
200
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800201/* Convert a struct tm to a POSIX-style time constant */
202static int64_t posix_mktime(struct tm *tm)
203{
204 int64_t t;
205 int64_t y = tm->tm_year;
206
207 /* See IEEE 1003.1:2004, section 4.14 */
208
209 t = (y-70)*365 + (y-69)/4 - (y-1)/100 + (y+299)/400;
210 t += tm->tm_yday;
211 t *= 24;
212 t += tm->tm_hour;
213 t *= 60;
214 t += tm->tm_min;
215 t *= 60;
216 t += tm->tm_sec;
217
218 return t;
219}
220
221static void define_macros_early(void)
222{
223 char temp[128];
224 struct tm lt, *lt_p, gm, *gm_p;
225 int64_t posix_time;
226
227 lt_p = localtime(&official_compile_time);
228 if (lt_p) {
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400229 lt = *lt_p;
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800230
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400231 strftime(temp, sizeof temp, "__DATE__=\"%Y-%m-%d\"", &lt);
232 preproc->pre_define(temp);
233 strftime(temp, sizeof temp, "__DATE_NUM__=%Y%m%d", &lt);
234 preproc->pre_define(temp);
235 strftime(temp, sizeof temp, "__TIME__=\"%H:%M:%S\"", &lt);
236 preproc->pre_define(temp);
237 strftime(temp, sizeof temp, "__TIME_NUM__=%H%M%S", &lt);
238 preproc->pre_define(temp);
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800239 }
240
241 gm_p = gmtime(&official_compile_time);
242 if (gm_p) {
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400243 gm = *gm_p;
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800244
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400245 strftime(temp, sizeof temp, "__UTC_DATE__=\"%Y-%m-%d\"", &gm);
246 preproc->pre_define(temp);
247 strftime(temp, sizeof temp, "__UTC_DATE_NUM__=%Y%m%d", &gm);
248 preproc->pre_define(temp);
249 strftime(temp, sizeof temp, "__UTC_TIME__=\"%H:%M:%S\"", &gm);
250 preproc->pre_define(temp);
251 strftime(temp, sizeof temp, "__UTC_TIME_NUM__=%H%M%S", &gm);
252 preproc->pre_define(temp);
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800253 }
H. Peter Anvind85d2502008-05-04 17:53:31 -0700254
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800255 if (gm_p)
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400256 posix_time = posix_mktime(&gm);
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800257 else if (lt_p)
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400258 posix_time = posix_mktime(&lt);
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800259 else
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400260 posix_time = 0;
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800261
262 if (posix_time) {
Cyrill Gorcunovcdaae1a2013-02-15 02:16:58 +0400263 snprintf(temp, sizeof temp, "__POSIX_TIME__=%"PRId64, posix_time);
264 preproc->pre_define(temp);
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800265 }
266}
267
268static void define_macros_late(void)
269{
270 char temp[128];
271
Cyrill Gorcunovc1936da2011-04-06 18:32:15 +0400272 /*
273 * In case if output format is defined by alias
274 * we have to put shortname of the alias itself here
275 * otherwise ABI backward compatibility gets broken.
276 */
Cyrill Gorcunov69ce7502010-07-12 15:19:17 +0400277 snprintf(temp, sizeof(temp), "__OUTPUT_FORMAT__=%s",
Cyrill Gorcunovc1936da2011-04-06 18:32:15 +0400278 ofmt_alias ? ofmt_alias->shortname : ofmt->shortname);
Cyrill Gorcunov0b78bff2012-05-07 01:57:55 +0400279 preproc->pre_define(temp);
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800280}
281
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700282static void emit_dependencies(StrList *list)
283{
284 FILE *deps;
285 int linepos, len;
286 StrList *l, *nl;
287
288 if (depend_file && strcmp(depend_file, "-")) {
Cyrill Gorcunov52405e32013-02-15 12:25:04 +0400289 deps = fopen(depend_file, "w");
290 if (!deps) {
291 nasm_error(ERR_NONFATAL|ERR_NOFILE|ERR_USAGE,
292 "unable to write dependency file `%s'", depend_file);
293 return;
294 }
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700295 } else {
Cyrill Gorcunov52405e32013-02-15 12:25:04 +0400296 deps = stdout;
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700297 }
H. Peter Anvin323fcff2009-07-12 12:04:56 -0700298
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700299 linepos = fprintf(deps, "%s:", depend_target);
Cyrill Gorcunovfcd0a742009-07-27 16:26:26 +0400300 list_for_each(l, list) {
H. Peter Anvin55340992012-09-09 17:09:00 -0700301 char *file = quote_for_make(l->str);
Cyrill Gorcunov52405e32013-02-15 12:25:04 +0400302 len = strlen(file);
303 if (linepos + len > 62 && linepos > 1) {
304 fprintf(deps, " \\\n ");
305 linepos = 1;
306 }
307 fprintf(deps, " %s", file);
308 linepos += len+1;
H. Peter Anvin55340992012-09-09 17:09:00 -0700309 nasm_free(file);
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700310 }
311 fprintf(deps, "\n\n");
H. Peter Anvin323fcff2009-07-12 12:04:56 -0700312
Cyrill Gorcunovfcd0a742009-07-27 16:26:26 +0400313 list_for_each_safe(l, nl, list) {
Cyrill Gorcunov52405e32013-02-15 12:25:04 +0400314 if (depend_emit_phony)
315 fprintf(deps, "%s:\n\n", l->str);
316 nasm_free(l);
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700317 }
318
319 if (deps != stdout)
Cyrill Gorcunov52405e32013-02-15 12:25:04 +0400320 fclose(deps);
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700321}
322
H. Peter Anvin038d8612007-04-12 16:54:50 +0000323int main(int argc, char **argv)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000324{
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700325 StrList *depend_list = NULL, **depend_ptr;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700326
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800327 time(&official_compile_time);
328
Cyrill Gorcunov08359152013-11-09 22:16:11 +0400329 iflag_set(&cpu, IF_PLEVEL);
330 iflag_set(&cmd_cpu, IF_PLEVEL);
331
Charles Crayne2581c862008-09-10 19:21:52 -0700332 pass0 = 0;
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700333 want_usage = terminate_after_phase = false;
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400334 nasm_set_verror(nasm_verror_gnu);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000335
H. Peter Anvin97e15752007-09-25 08:47:47 -0700336 error_file = stderr;
337
H. Peter Anvinac8f8fc2008-06-11 15:49:41 -0700338 tolower_init();
339
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000340 offsets = raa_init();
Keith Kaniosb7a89542007-04-12 02:40:54 +0000341 forwrefs = saa_init((int32_t)sizeof(struct forwrefinfo));
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000342
H. Peter Anvind7ed89e2002-04-30 20:52:08 +0000343 preproc = &nasmpp;
Cyrill Gorcunov3ed32cb2014-06-22 20:53:12 +0400344 operating_mode = OP_NORMAL;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000345
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000346 seg_init();
347
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800348 /* Define some macros dependent on the runtime, but not
349 on the command line. */
350 define_macros_early();
351
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000352 parse_cmdline(argc, argv);
353
H. Peter Anvine2c80182005-01-15 22:15:51 +0000354 if (terminate_after_phase) {
355 if (want_usage)
356 usage();
357 return 1;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000358 }
359
H. Peter Anvinbb88d012003-09-10 23:34:23 +0000360 /* If debugging info is disabled, suppress any debug calls */
361 if (!using_debug_info)
362 ofmt->current_dfmt = &null_debug_form;
363
H. Peter Anvin76690a12002-04-30 20:52:49 +0000364 if (ofmt->stdmac)
Cyrill Gorcunov0b78bff2012-05-07 01:57:55 +0400365 preproc->extra_stdmac(ofmt->stdmac);
H. Peter Anvin605f5152009-07-18 18:31:41 -0700366 parser_global_info(&location);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000367 eval_global_info(ofmt, lookup_label, &location);
H. Peter Anvin76690a12002-04-30 20:52:49 +0000368
H. Peter Anvinaf535c12002-04-30 20:59:21 +0000369 /* define some macros dependent of command-line */
H. Peter Anvin6b18bcc2008-02-16 14:54:10 -0800370 define_macros_late();
H. Peter Anvinaf535c12002-04-30 20:59:21 +0000371
Cyrill Gorcunov3ed32cb2014-06-22 20:53:12 +0400372 depend_ptr = (depend_file || (operating_mode == OP_DEPEND)) ? &depend_list : NULL;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700373 if (!depend_target)
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400374 depend_target = quote_for_make(outname);
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700375
Cyrill Gorcunove9fc88c2014-06-23 02:22:02 +0400376 if (operating_mode & OP_DEPEND) {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000377 char *line;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700378
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400379 if (depend_missing_ok)
380 preproc->include_path(NULL); /* "assume generated" */
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700381
H. Peter Anvindbb640b2009-07-18 18:57:16 -0700382 preproc->reset(inname, 0, &nasmlist, depend_ptr);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000383 if (outname[0] == '\0')
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400384 ofmt->filename(inname, outname);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000385 ofile = NULL;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000386 while ((line = preproc->getline()))
387 nasm_free(line);
388 preproc->cleanup(0);
Cyrill Gorcunove9fc88c2014-06-23 02:22:02 +0400389 } else if (operating_mode & OP_PREPROCESS) {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000390 char *line;
391 char *file_name = NULL;
Keith Kaniosb7a89542007-04-12 02:40:54 +0000392 int32_t prior_linnum = 0;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000393 int lineinc = 0;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000394
H. Peter Anvine2c80182005-01-15 22:15:51 +0000395 if (*outname) {
396 ofile = fopen(outname, "w");
397 if (!ofile)
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400398 nasm_error(ERR_FATAL | ERR_NOFILE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000399 "unable to open output file `%s'",
400 outname);
401 } else
402 ofile = NULL;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000403
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700404 location.known = false;
H. Peter Anvin734b1882002-04-30 21:01:08 +0000405
Cyrill Gorcunovb574b072011-12-05 01:56:40 +0400406 /* pass = 1; */
H. Peter Anvindbb640b2009-07-18 18:57:16 -0700407 preproc->reset(inname, 3, &nasmlist, depend_ptr);
Cyrill Gorcunovb574b072011-12-05 01:56:40 +0400408 memcpy(warning_on, warning_on_global, (ERR_WARN_MAX+1) * sizeof(bool));
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700409
H. Peter Anvine2c80182005-01-15 22:15:51 +0000410 while ((line = preproc->getline())) {
411 /*
412 * We generate %line directives if needed for later programs
413 */
Keith Kaniosb7a89542007-04-12 02:40:54 +0000414 int32_t linnum = prior_linnum += lineinc;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000415 int altline = src_get(&linnum, &file_name);
416 if (altline) {
417 if (altline == 1 && lineinc == 1)
418 nasm_fputs("", ofile);
419 else {
420 lineinc = (altline != -1 || lineinc != 1);
421 fprintf(ofile ? ofile : stdout,
Keith Kanios93f2e9a2007-04-14 00:10:59 +0000422 "%%line %"PRId32"+%d %s\n", linnum, lineinc,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000423 file_name);
424 }
425 prior_linnum = linnum;
426 }
427 nasm_fputs(line, ofile);
428 nasm_free(line);
429 }
430 nasm_free(file_name);
431 preproc->cleanup(0);
432 if (ofile)
433 fclose(ofile);
434 if (ofile && terminate_after_phase)
435 remove(outname);
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400436 ofile = NULL;
Cyrill Gorcunove9fc88c2014-06-23 02:22:02 +0400437 } else if (operating_mode & OP_NORMAL) {
H. Peter Anvine2c80182005-01-15 22:15:51 +0000438 /*
439 * We must call ofmt->filename _anyway_, even if the user
440 * has specified their own output file, because some
441 * formats (eg OBJ and COFF) use ofmt->filename to find out
442 * the name of the input file and then put that inside the
443 * file.
444 */
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400445 ofmt->filename(inname, outname);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000446
H. Peter Anvin0cba1072009-07-05 14:45:12 -0700447 ofile = fopen(outname, (ofmt->flags & OFMT_TEXT) ? "w" : "wb");
H. Peter Anvine2c80182005-01-15 22:15:51 +0000448 if (!ofile) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400449 nasm_error(ERR_FATAL | ERR_NOFILE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000450 "unable to open output file `%s'", outname);
451 }
452
453 /*
454 * We must call init_labels() before ofmt->init() since
455 * some object formats will want to define labels in their
456 * init routines. (eg OS/2 defines the FLAT group)
457 */
458 init_labels();
459
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400460 ofmt->init();
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400461 dfmt = ofmt->current_dfmt;
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400462 dfmt->init();
H. Peter Anvine2c80182005-01-15 22:15:51 +0000463
H. Peter Anvin9e1f5282008-05-29 21:38:00 -0700464 assemble_file(inname, depend_ptr);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000465
466 if (!terminate_after_phase) {
467 ofmt->cleanup(using_debug_info);
468 cleanup_labels();
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400469 fflush(ofile);
470 if (ferror(ofile)) {
471 nasm_error(ERR_NONFATAL|ERR_NOFILE,
472 "write error on output file `%s'", outname);
473 }
474 }
Victor van den Elzenc82c3722008-06-04 15:24:20 +0200475
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400476 if (ofile) {
477 fclose(ofile);
478 if (terminate_after_phase)
479 remove(outname);
480 ofile = NULL;
481 }
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000482 }
H. Peter Anvin734b1882002-04-30 21:01:08 +0000483
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -0700484 if (depend_list && !terminate_after_phase)
Cyrill Gorcunov9f563692013-02-15 12:24:11 +0400485 emit_dependencies(depend_list);
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700486
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000487 if (want_usage)
H. Peter Anvine2c80182005-01-15 22:15:51 +0000488 usage();
H. Peter Anvin734b1882002-04-30 21:01:08 +0000489
H. Peter Anvine2c80182005-01-15 22:15:51 +0000490 raa_free(offsets);
491 saa_free(forwrefs);
492 eval_cleanup();
H. Peter Anvin74cc5e52007-08-30 22:35:34 +0000493 stdscan_cleanup();
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000494
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -0700495 return terminate_after_phase;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000496}
497
H. Peter Anvineba20a72002-04-30 20:53:55 +0000498/*
499 * Get a parameter for a command line option.
500 * First arg must be in the form of e.g. -f...
501 */
H. Peter Anvin423e3812007-11-15 17:12:29 -0800502static char *get_param(char *p, char *q, bool *advance)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000503{
H. Peter Anvin423e3812007-11-15 17:12:29 -0800504 *advance = false;
Cyrill Gorcunovd61debf2009-10-13 19:38:52 +0400505 if (p[2]) /* the parameter's in the option */
506 return nasm_skip_spaces(p + 2);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000507 if (q && q[0]) {
H. Peter Anvin423e3812007-11-15 17:12:29 -0800508 *advance = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000509 return q;
H. Peter Anvineba20a72002-04-30 20:53:55 +0000510 }
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400511 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000512 "option `-%c' requires an argument", p[1]);
H. Peter Anvineba20a72002-04-30 20:53:55 +0000513 return NULL;
514}
515
H. Peter Anvindc242712007-11-18 11:55:10 -0800516/*
517 * Copy a filename
518 */
519static void copy_filename(char *dst, const char *src)
520{
521 size_t len = strlen(src);
522
523 if (len >= (size_t)FILENAME_MAX) {
Cyrill Gorcunov45aa1182013-02-15 12:22:59 +0400524 nasm_error(ERR_FATAL | ERR_NOFILE, "file name too long");
525 return;
H. Peter Anvindc242712007-11-18 11:55:10 -0800526 }
527 strncpy(dst, src, FILENAME_MAX);
528}
529
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700530/*
531 * Convert a string to Make-safe form
532 */
533static char *quote_for_make(const char *str)
534{
535 const char *p;
536 char *os, *q;
537
Cyrill Gorcunovf8316452013-02-15 12:22:27 +0400538 size_t n = 1; /* Terminating zero */
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700539 size_t nbs = 0;
540
541 if (!str)
Cyrill Gorcunovf8316452013-02-15 12:22:27 +0400542 return NULL;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700543
544 for (p = str; *p; p++) {
Cyrill Gorcunovf8316452013-02-15 12:22:27 +0400545 switch (*p) {
546 case ' ':
547 case '\t':
548 /* Convert N backslashes + ws -> 2N+1 backslashes + ws */
549 n += nbs + 2;
550 nbs = 0;
551 break;
552 case '$':
553 case '#':
554 nbs = 0;
555 n += 2;
556 break;
557 case '\\':
558 nbs++;
559 n++;
560 break;
561 default:
562 nbs = 0;
563 n++;
564 break;
565 }
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700566 }
567
568 /* Convert N backslashes at the end of filename to 2N backslashes */
569 if (nbs)
Cyrill Gorcunovf8316452013-02-15 12:22:27 +0400570 n += nbs;
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700571
572 os = q = nasm_malloc(n);
573
574 nbs = 0;
575 for (p = str; *p; p++) {
Cyrill Gorcunovf8316452013-02-15 12:22:27 +0400576 switch (*p) {
577 case ' ':
578 case '\t':
579 while (nbs--)
580 *q++ = '\\';
581 *q++ = '\\';
582 *q++ = *p;
583 break;
584 case '$':
585 *q++ = *p;
586 *q++ = *p;
587 nbs = 0;
588 break;
589 case '#':
590 *q++ = '\\';
591 *q++ = *p;
592 nbs = 0;
593 break;
594 case '\\':
595 *q++ = *p;
596 nbs++;
597 break;
598 default:
599 *q++ = *p;
600 nbs = 0;
601 break;
602 }
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700603 }
604 while (nbs--)
Cyrill Gorcunovf8316452013-02-15 12:22:27 +0400605 *q++ = '\\';
H. Peter Anvin07b7b9e2008-05-29 19:09:11 -0700606
607 *q = '\0';
608
609 return os;
610}
611
H. Peter Anvine2c80182005-01-15 22:15:51 +0000612struct textargs {
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000613 const char *label;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000614 int value;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000615};
616
617#define OPT_PREFIX 0
618#define OPT_POSTFIX 1
H. Peter Anvine2c80182005-01-15 22:15:51 +0000619struct textargs textopts[] = {
620 {"prefix", OPT_PREFIX},
621 {"postfix", OPT_POSTFIX},
622 {NULL, 0}
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000623};
624
Cyrill Gorcunove7438432014-05-09 22:34:34 +0400625static void show_version(void)
626{
627 printf("NASM version %s compiled on %s%s\n",
628 nasm_version, nasm_date, nasm_compile_options);
629 exit(0);
630}
631
H. Peter Anvin423e3812007-11-15 17:12:29 -0800632static bool stopoptions = false;
633static bool process_arg(char *p, char *q)
H. Peter Anvineba20a72002-04-30 20:53:55 +0000634{
Keith Kaniosa6dfa782007-04-13 16:47:53 +0000635 char *param;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800636 int i;
637 bool advance = false;
H. Peter Anvin972079f2008-09-30 17:01:23 -0700638 bool do_warn;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000639
640 if (!p || !p[0])
H. Peter Anvin423e3812007-11-15 17:12:29 -0800641 return false;
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000642
H. Peter Anvine2c80182005-01-15 22:15:51 +0000643 if (p[0] == '-' && !stopoptions) {
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400644 if (strchr("oOfpPdDiIlFXuUZwW", p[1])) {
645 /* These parameters take values */
646 if (!(param = get_param(p, q, &advance)))
647 return advance;
648 }
H. Peter Anvin423e3812007-11-15 17:12:29 -0800649
H. Peter Anvine2c80182005-01-15 22:15:51 +0000650 switch (p[1]) {
651 case 's':
652 error_file = stdout;
653 break;
H. Peter Anvin70653092007-10-19 14:42:29 -0700654
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400655 case 'o': /* output file */
656 copy_filename(outname, param);
657 break;
H. Peter Anvinfd7dd112007-10-10 14:06:59 -0700658
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400659 case 'f': /* output format */
660 ofmt = ofmt_find(param, &ofmt_alias);
661 if (!ofmt) {
662 nasm_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
663 "unrecognised output format `%s' - "
664 "use -hf for a list", param);
665 }
666 break;
H. Peter Anvin70653092007-10-19 14:42:29 -0700667
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400668 case 'O': /* Optimization level */
669 {
670 int opt;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700671
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400672 if (!*param) {
673 /* Naked -O == -Ox */
674 optimizing = MAX_OPTIMIZE;
675 } else {
676 while (*param) {
677 switch (*param) {
678 case '0': case '1': case '2': case '3': case '4':
679 case '5': case '6': case '7': case '8': case '9':
680 opt = strtoul(param, &param, 10);
H. Peter Anvind85d2502008-05-04 17:53:31 -0700681
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400682 /* -O0 -> optimizing == -1, 0.98 behaviour */
683 /* -O1 -> optimizing == 0, 0.98.09 behaviour */
684 if (opt < 2)
685 optimizing = opt - 1;
686 else
687 optimizing = opt;
688 break;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700689
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400690 case 'v':
691 case '+':
692 param++;
693 opt_verbose_info = true;
694 break;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700695
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400696 case 'x':
697 param++;
698 optimizing = MAX_OPTIMIZE;
699 break;
H. Peter Anvind85d2502008-05-04 17:53:31 -0700700
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400701 default:
702 nasm_error(ERR_FATAL,
703 "unknown optimization option -O%c\n",
704 *param);
705 break;
706 }
707 }
708 if (optimizing > MAX_OPTIMIZE)
709 optimizing = MAX_OPTIMIZE;
710 }
711 break;
712 }
H. Peter Anvin423e3812007-11-15 17:12:29 -0800713
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400714 case 'p': /* pre-include */
715 case 'P':
716 preproc->pre_include(param);
717 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800718
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400719 case 'd': /* pre-define */
720 case 'D':
721 preproc->pre_define(param);
722 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800723
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400724 case 'u': /* un-define */
725 case 'U':
726 preproc->pre_undefine(param);
727 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800728
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400729 case 'i': /* include search path */
730 case 'I':
731 preproc->include_path(param);
732 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800733
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400734 case 'l': /* listing file */
735 copy_filename(listname, param);
736 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800737
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400738 case 'Z': /* error messages file */
739 copy_filename(errname, param);
740 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800741
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400742 case 'F': /* specify debug format */
743 ofmt->current_dfmt = dfmt_find(ofmt, param);
744 if (!ofmt->current_dfmt) {
745 nasm_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
746 "unrecognized debug format `%s' for"
747 " output format `%s'",
748 param, ofmt->shortname);
749 }
750 using_debug_info = true;
751 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800752
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400753 case 'X': /* specify error reporting format */
754 if (nasm_stricmp("vc", param) == 0)
755 nasm_set_verror(nasm_verror_vc);
756 else if (nasm_stricmp("gnu", param) == 0)
757 nasm_set_verror(nasm_verror_gnu);
758 else
759 nasm_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
760 "unrecognized error reporting format `%s'",
761 param);
H. Peter Anvine2c80182005-01-15 22:15:51 +0000762 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800763
H. Peter Anvine2c80182005-01-15 22:15:51 +0000764 case 'g':
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700765 using_debug_info = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000766 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800767
H. Peter Anvine2c80182005-01-15 22:15:51 +0000768 case 'h':
769 printf
770 ("usage: nasm [-@ response file] [-o outfile] [-f format] "
771 "[-l listfile]\n"
772 " [options...] [--] filename\n"
Cyrill Gorcunove7438432014-05-09 22:34:34 +0400773 " or nasm -v (or --v) for version info\n\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000774 " -t assemble in SciTech TASM compatible mode\n"
Cyrill Gorcunov984c4db2009-07-31 00:32:17 +0400775 " -g generate debug information in selected format\n");
H. Peter Anvine2c80182005-01-15 22:15:51 +0000776 printf
H. Peter Anvin413fb902007-09-26 15:19:28 -0700777 (" -E (or -e) preprocess only (writes output to stdout by default)\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000778 " -a don't preprocess (assemble only)\n"
H. Peter Anvin37a321f2007-09-24 13:41:58 -0700779 " -M generate Makefile dependencies on stdout\n"
Cyrill Gorcunov984c4db2009-07-31 00:32:17 +0400780 " -MG d:o, missing files assumed generated\n"
781 " -MF <file> set Makefile dependency file\n"
782 " -MD <file> assemble and generate dependencies\n"
783 " -MT <file> dependency target name\n"
784 " -MQ <file> dependency target name (quoted)\n"
785 " -MP emit phony target\n\n"
H. Peter Anvin413fb902007-09-26 15:19:28 -0700786 " -Z<file> redirect error messages to file\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000787 " -s redirect error messages to stdout\n\n"
788 " -F format select a debugging format\n\n"
Cyrill Gorcunovdeb082d2013-04-20 20:37:17 +0400789 " -o outfile write output to an outfile\n\n"
790 " -f format select an output format\n\n"
791 " -l listfile write listing to a listfile\n\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000792 " -I<path> adds a pathname to the include file path\n");
793 printf
H. Peter Anvinab5bd052010-07-25 12:43:30 -0700794 (" -O<digit> optimize branch offsets\n"
Cyrill Gorcunov5bc6d8e2012-03-11 14:19:17 +0400795 " -O0: No optimization\n"
Cyrill Gorcunov73b87c62009-07-31 10:26:55 +0400796 " -O1: Minimal optimization\n"
Cyrill Gorcunov5bc6d8e2012-03-11 14:19:17 +0400797 " -Ox: Multipass optimization (default)\n\n"
H. Peter Anvine2c80182005-01-15 22:15:51 +0000798 " -P<file> pre-includes a file\n"
799 " -D<macro>[=<value>] pre-defines a macro\n"
800 " -U<macro> undefines a macro\n"
801 " -X<format> specifies error reporting format (gnu or vc)\n"
H. Peter Anvinb030c922007-11-13 11:31:15 -0800802 " -w+foo enables warning foo (equiv. -Wfoo)\n"
Cyrill Gorcunov984c4db2009-07-31 00:32:17 +0400803 " -w-foo disable warning foo (equiv. -Wno-foo)\n\n"
Cyrill Gorcunovdeb082d2013-04-20 20:37:17 +0400804 " -h show invocation summary and exit\n\n"
Cyrill Gorcunov984c4db2009-07-31 00:32:17 +0400805 "--prefix,--postfix\n"
806 " this options prepend or append the given argument to all\n"
807 " extern and global variables\n\n"
H. Peter Anvinb030c922007-11-13 11:31:15 -0800808 "Warnings:\n");
809 for (i = 0; i <= ERR_WARN_MAX; i++)
H. Peter Anvine2c80182005-01-15 22:15:51 +0000810 printf(" %-23s %s (default %s)\n",
H. Peter Anvin972079f2008-09-30 17:01:23 -0700811 warnings[i].name, warnings[i].help,
812 warnings[i].enabled ? "on" : "off");
H. Peter Anvine2c80182005-01-15 22:15:51 +0000813 printf
814 ("\nresponse files should contain command line parameters"
815 ", one per line.\n");
816 if (p[2] == 'f') {
817 printf("\nvalid output formats for -f are"
818 " (`*' denotes default):\n");
819 ofmt_list(ofmt, stdout);
820 } else {
821 printf("\nFor a list of valid output formats, use -hf.\n");
822 printf("For a list of debug formats, use -f <form> -y.\n");
823 }
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400824 exit(0); /* never need usage message here */
H. Peter Anvine2c80182005-01-15 22:15:51 +0000825 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800826
H. Peter Anvine2c80182005-01-15 22:15:51 +0000827 case 'y':
828 printf("\nvalid debug formats for '%s' output format are"
829 " ('*' denotes default):\n", ofmt->shortname);
830 dfmt_list(ofmt, stdout);
831 exit(0);
832 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800833
H. Peter Anvine2c80182005-01-15 22:15:51 +0000834 case 't':
H. Peter Anvin6867acc2007-10-10 14:58:45 -0700835 tasm_compatible_mode = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000836 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800837
H. Peter Anvine2c80182005-01-15 22:15:51 +0000838 case 'v':
Cyrill Gorcunove7438432014-05-09 22:34:34 +0400839 show_version();
H. Peter Anvine2c80182005-01-15 22:15:51 +0000840 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800841
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400842 case 'e': /* preprocess only */
843 case 'E':
Cyrill Gorcunov3ed32cb2014-06-22 20:53:12 +0400844 operating_mode = OP_PREPROCESS;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000845 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800846
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400847 case 'a': /* assemble only - don't preprocess */
Cyrill Gorcunovb5e8fec2012-05-07 11:34:27 +0400848 preproc = &preproc_nop;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000849 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800850
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400851 case 'W':
852 if (param[0] == 'n' && param[1] == 'o' && param[2] == '-') {
853 do_warn = false;
854 param += 3;
855 } else {
856 do_warn = true;
857 }
858 goto set_warning;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800859
H. Peter Anvine2c80182005-01-15 22:15:51 +0000860 case 'w':
H. Peter Anvin423e3812007-11-15 17:12:29 -0800861 if (param[0] != '+' && param[0] != '-') {
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400862 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000863 "invalid option to `-w'");
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400864 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +0000865 }
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400866 do_warn = (param[0] == '+');
867 param++;
Cyrill Gorcunov66206e72010-04-20 14:53:44 +0400868
869set_warning:
Cyrill Gorcunov3b8c2972011-12-05 01:39:04 +0400870 for (i = 0; i <= ERR_WARN_MAX; i++) {
871 if (!nasm_stricmp(param, warnings[i].name))
872 break;
873 }
874 if (i <= ERR_WARN_MAX) {
875 warning_on_global[i] = do_warn;
876 } else if (!nasm_stricmp(param, "all")) {
877 for (i = 1; i <= ERR_WARN_MAX; i++)
878 warning_on_global[i] = do_warn;
879 } else if (!nasm_stricmp(param, "none")) {
880 for (i = 1; i <= ERR_WARN_MAX; i++)
881 warning_on_global[i] = !do_warn;
882 } else {
883 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
884 "invalid warning `%s'", param);
885 }
H. Peter Anvine2c80182005-01-15 22:15:51 +0000886 break;
H. Peter Anvin423e3812007-11-15 17:12:29 -0800887
H. Peter Anvine2c80182005-01-15 22:15:51 +0000888 case 'M':
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400889 switch (p[2]) {
890 case 0:
Cyrill Gorcunov3ed32cb2014-06-22 20:53:12 +0400891 operating_mode = OP_DEPEND;
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400892 break;
893 case 'G':
Cyrill Gorcunov3ed32cb2014-06-22 20:53:12 +0400894 operating_mode = OP_DEPEND;
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400895 depend_missing_ok = true;
896 break;
897 case 'P':
898 depend_emit_phony = true;
899 break;
900 case 'D':
901 depend_file = q;
902 advance = true;
903 break;
904 case 'T':
905 depend_target = q;
906 advance = true;
907 break;
908 case 'Q':
909 depend_target = quote_for_make(q);
910 advance = true;
911 break;
912 default:
913 nasm_error(ERR_NONFATAL|ERR_NOFILE|ERR_USAGE,
914 "unknown dependency option `-M%c'", p[2]);
915 break;
916 }
917 if (advance && (!q || !q[0])) {
918 nasm_error(ERR_NONFATAL|ERR_NOFILE|ERR_USAGE,
919 "option `-M%c' requires a parameter", p[2]);
920 break;
921 }
H. Peter Anvine2c80182005-01-15 22:15:51 +0000922 break;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000923
H. Peter Anvine2c80182005-01-15 22:15:51 +0000924 case '-':
925 {
926 int s;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000927
H. Peter Anvine2c80182005-01-15 22:15:51 +0000928 if (p[2] == 0) { /* -- => stop processing options */
929 stopoptions = 1;
930 break;
931 }
Cyrill Gorcunove7438432014-05-09 22:34:34 +0400932
933 if (!nasm_stricmp(p, "--v"))
934 show_version();
935
H. Peter Anvine2c80182005-01-15 22:15:51 +0000936 for (s = 0; textopts[s].label; s++) {
937 if (!nasm_stricmp(p + 2, textopts[s].label)) {
938 break;
939 }
940 }
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +0000941
H. Peter Anvine2c80182005-01-15 22:15:51 +0000942 switch (s) {
943
944 case OPT_PREFIX:
945 case OPT_POSTFIX:
946 {
947 if (!q) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400948 nasm_error(ERR_NONFATAL | ERR_NOFILE |
H. Peter Anvine2c80182005-01-15 22:15:51 +0000949 ERR_USAGE,
950 "option `--%s' requires an argument",
951 p + 2);
952 break;
953 } else {
954 advance = 1, param = q;
955 }
956
957 if (s == OPT_PREFIX) {
958 strncpy(lprefix, param, PREFIX_MAX - 1);
959 lprefix[PREFIX_MAX - 1] = 0;
960 break;
961 }
962 if (s == OPT_POSTFIX) {
963 strncpy(lpostfix, param, POSTFIX_MAX - 1);
964 lpostfix[POSTFIX_MAX - 1] = 0;
965 break;
966 }
967 break;
968 }
969 default:
970 {
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400971 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000972 "unrecognised option `--%s'", p + 2);
973 break;
974 }
975 }
976 break;
977 }
978
979 default:
980 if (!ofmt->setinfo(GI_SWITCH, &p))
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400981 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000982 "unrecognised option `-%c'", p[1]);
983 break;
984 }
985 } else {
986 if (*inname) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -0400987 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvine2c80182005-01-15 22:15:51 +0000988 "more than one input file specified");
H. Peter Anvindc242712007-11-18 11:55:10 -0800989 } else {
990 copy_filename(inname, p);
Cyrill Gorcunov331fd7c2013-02-15 12:20:58 +0400991 }
H. Peter Anvin6768eb72002-04-30 20:52:26 +0000992 }
993
994 return advance;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +0000995}
996
H. Peter Anvineba20a72002-04-30 20:53:55 +0000997#define ARG_BUF_DELTA 128
998
H. Peter Anvine2c80182005-01-15 22:15:51 +0000999static void process_respfile(FILE * rfile)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001000{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001001 char *buffer, *p, *q, *prevarg;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001002 int bufsize, prevargsize;
1003
1004 bufsize = prevargsize = ARG_BUF_DELTA;
1005 buffer = nasm_malloc(ARG_BUF_DELTA);
1006 prevarg = nasm_malloc(ARG_BUF_DELTA);
1007 prevarg[0] = '\0';
1008
H. Peter Anvine2c80182005-01-15 22:15:51 +00001009 while (1) { /* Loop to handle all lines in file */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001010 p = buffer;
1011 while (1) { /* Loop to handle long lines */
1012 q = fgets(p, bufsize - (p - buffer), rfile);
1013 if (!q)
1014 break;
1015 p += strlen(p);
1016 if (p > buffer && p[-1] == '\n')
1017 break;
1018 if (p - buffer > bufsize - 10) {
1019 int offset;
1020 offset = p - buffer;
1021 bufsize += ARG_BUF_DELTA;
1022 buffer = nasm_realloc(buffer, bufsize);
1023 p = buffer + offset;
1024 }
1025 }
H. Peter Anvineba20a72002-04-30 20:53:55 +00001026
H. Peter Anvine2c80182005-01-15 22:15:51 +00001027 if (!q && p == buffer) {
1028 if (prevarg[0])
1029 process_arg(prevarg, NULL);
1030 nasm_free(buffer);
1031 nasm_free(prevarg);
1032 return;
1033 }
H. Peter Anvineba20a72002-04-30 20:53:55 +00001034
H. Peter Anvine2c80182005-01-15 22:15:51 +00001035 /*
1036 * Play safe: remove CRs, LFs and any spurious ^Zs, if any of
1037 * them are present at the end of the line.
1038 */
1039 *(p = &buffer[strcspn(buffer, "\r\n\032")]) = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00001040
H. Peter Anvinbda7a6e2008-06-21 10:23:17 -07001041 while (p > buffer && nasm_isspace(p[-1]))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001042 *--p = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00001043
Cyrill Gorcunovd61debf2009-10-13 19:38:52 +04001044 p = nasm_skip_spaces(buffer);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001045
H. Peter Anvine2c80182005-01-15 22:15:51 +00001046 if (process_arg(prevarg, p))
1047 *p = '\0';
H. Peter Anvineba20a72002-04-30 20:53:55 +00001048
Charles Crayne192d5b52007-10-18 19:02:42 -07001049 if ((int) strlen(p) > prevargsize - 10) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001050 prevargsize += ARG_BUF_DELTA;
1051 prevarg = nasm_realloc(prevarg, prevargsize);
1052 }
H. Peter Anvindc242712007-11-18 11:55:10 -08001053 strncpy(prevarg, p, prevargsize);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001054 }
1055}
1056
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001057/* Function to process args from a string of args, rather than the
1058 * argv array. Used by the environment variable and response file
1059 * processing.
1060 */
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001061static void process_args(char *args)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001062{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001063 char *p, *q, *arg, *prevarg;
1064 char separator = ' ';
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001065
1066 p = args;
1067 if (*p && *p != '-')
H. Peter Anvine2c80182005-01-15 22:15:51 +00001068 separator = *p++;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001069 arg = NULL;
1070 while (*p) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001071 q = p;
1072 while (*p && *p != separator)
1073 p++;
1074 while (*p == separator)
1075 *p++ = '\0';
1076 prevarg = arg;
1077 arg = q;
1078 if (process_arg(prevarg, arg))
1079 arg = NULL;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001080 }
1081 if (arg)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001082 process_arg(arg, NULL);
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001083}
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001084
H. Peter Anvinbe2678c2008-01-21 16:23:59 -08001085static void process_response_file(const char *file)
1086{
1087 char str[2048];
1088 FILE *f = fopen(file, "r");
1089 if (!f) {
Cyrill Gorcunovf1964512013-02-15 12:14:06 +04001090 perror(file);
1091 exit(-1);
H. Peter Anvinbe2678c2008-01-21 16:23:59 -08001092 }
1093 while (fgets(str, sizeof str, f)) {
Cyrill Gorcunovf1964512013-02-15 12:14:06 +04001094 process_args(str);
H. Peter Anvinbe2678c2008-01-21 16:23:59 -08001095 }
1096 fclose(f);
1097}
1098
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001099static void parse_cmdline(int argc, char **argv)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001100{
1101 FILE *rfile;
Cyrill Gorcunovf4941892011-07-17 13:55:25 +04001102 char *envreal, *envcopy = NULL, *p;
H. Peter Anvin972079f2008-09-30 17:01:23 -07001103 int i;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001104
Charles Craynefcce07f2007-09-30 22:15:36 -07001105 *inname = *outname = *listname = *errname = '\0';
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001106
H. Peter Anvin972079f2008-09-30 17:01:23 -07001107 for (i = 0; i <= ERR_WARN_MAX; i++)
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001108 warning_on_global[i] = warnings[i].enabled;
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001109
1110 /*
H. Peter Anvinff7ccc02002-05-06 19:41:57 +00001111 * First, process the NASMENV environment variable.
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001112 */
H. Peter Anvinff7ccc02002-05-06 19:41:57 +00001113 envreal = getenv("NASMENV");
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001114 if (envreal) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001115 envcopy = nasm_strdup(envreal);
1116 process_args(envcopy);
1117 nasm_free(envcopy);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001118 }
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001119
1120 /*
1121 * Now process the actual command line.
1122 */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001123 while (--argc) {
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001124 bool advance;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001125 argv++;
1126 if (argv[0][0] == '@') {
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001127 /*
1128 * We have a response file, so process this as a set of
H. Peter Anvine2c80182005-01-15 22:15:51 +00001129 * arguments like the environment variable. This allows us
1130 * to have multiple arguments on a single line, which is
1131 * different to the -@resp file processing below for regular
1132 * NASM.
1133 */
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001134 process_response_file(argv[0]+1);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001135 argc--;
1136 argv++;
1137 }
1138 if (!stopoptions && argv[0][0] == '-' && argv[0][1] == '@') {
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001139 p = get_param(argv[0], argc > 1 ? argv[1] : NULL, &advance);
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001140 if (p) {
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001141 rfile = fopen(p, "r");
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001142 if (rfile) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001143 process_respfile(rfile);
1144 fclose(rfile);
1145 } else
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001146 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001147 "unable to open response file `%s'", p);
1148 }
1149 } else
H. Peter Anvin423e3812007-11-15 17:12:29 -08001150 advance = process_arg(argv[0], argc > 1 ? argv[1] : NULL);
1151 argv += advance, argc -= advance;
H. Peter Anvin6768eb72002-04-30 20:52:26 +00001152 }
1153
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001154 /*
1155 * Look for basic command line typos. This definitely doesn't
1156 * catch all errors, but it might help cases of fumbled fingers.
1157 */
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001158 if (!*inname)
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001159 nasm_error(ERR_NONFATAL | ERR_NOFILE | ERR_USAGE,
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001160 "no input file specified");
1161 else if (!strcmp(inname, errname) ||
1162 !strcmp(inname, outname) ||
1163 !strcmp(inname, listname) ||
1164 (depend_file && !strcmp(inname, depend_file)))
1165 nasm_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
1166 "file `%s' is both input and output file",
1167 inname);
H. Peter Anvin59ddd262007-10-01 11:26:31 -07001168
H. Peter Anvin70653092007-10-19 14:42:29 -07001169 if (*errname) {
Cyrill Gorcunovd64b8092011-12-05 01:44:43 +04001170 error_file = fopen(errname, "w");
1171 if (!error_file) {
1172 error_file = stderr; /* Revert to default! */
1173 nasm_error(ERR_FATAL | ERR_NOFILE | ERR_USAGE,
1174 "cannot open file `%s' for error messages",
1175 errname);
1176 }
Charles Craynefcce07f2007-09-30 22:15:36 -07001177 }
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001178}
1179
H. Peter Anvin70055962007-10-11 00:05:31 -07001180static enum directives getkw(char **directive, char **value);
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001181
H. Peter Anvin9e1f5282008-05-29 21:38:00 -07001182static void assemble_file(char *fname, StrList **depend_ptr)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001183{
H. Peter Anvin8bec2c72009-08-08 13:49:00 -07001184 char *directive, *value, *p, *q, *special, *line;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001185 insn output_ins;
H. Peter Anvin70055962007-10-11 00:05:31 -07001186 int i, validid;
1187 bool rn_error;
Charles Crayne5fbbc8c2007-11-07 19:03:46 -08001188 int32_t seg;
1189 int64_t offs;
H. Peter Anvin76690a12002-04-30 20:52:49 +00001190 struct tokenval tokval;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001191 expr *e;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001192 int pass_max;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001193
Cyrill Gorcunov08359152013-11-09 22:16:11 +04001194 if (cmd_sb == 32 && iflag_ffs(&cmd_cpu) < IF_386)
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001195 nasm_error(ERR_FATAL, "command line: "
H. Peter Anvine2c80182005-01-15 22:15:51 +00001196 "32-bit segment size requires a higher cpu");
H. Peter Anvineba20a72002-04-30 20:53:55 +00001197
Charles Craynec1905c22008-09-11 18:54:06 -07001198 pass_max = prev_offset_changed = (INT_MAX >> 1) + 2; /* Almost unlimited */
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001199 for (passn = 1; pass0 <= 2; passn++) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001200 int pass1, pass2;
1201 ldfunc def_label;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001202
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001203 pass1 = pass0 == 2 ? 2 : 1; /* 1, 1, 1, ..., 1, 2 */
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001204 pass2 = passn > 1 ? 2 : 1; /* 1, 2, 2, ..., 2, 2 */
1205 /* pass0 0, 0, 0, ..., 1, 2 */
H. Peter Anvin734b1882002-04-30 21:01:08 +00001206
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001207 def_label = passn > 1 ? redefine_label : define_label;
H. Peter Anvin734b1882002-04-30 21:01:08 +00001208
Keith Kaniosb7a89542007-04-12 02:40:54 +00001209 globalbits = sb = cmd_sb; /* set 'bits' to command line default */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001210 cpu = cmd_cpu;
1211 if (pass0 == 2) {
1212 if (*listname)
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001213 nasmlist.init(listname, nasm_error);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001214 }
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001215 in_abs_seg = false;
Charles Craynec1905c22008-09-11 18:54:06 -07001216 global_offset_changed = 0; /* set by redefine_label */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001217 location.segment = ofmt->section(NULL, pass2, &sb);
Keith Kaniosb7a89542007-04-12 02:40:54 +00001218 globalbits = sb;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001219 if (passn > 1) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001220 saa_rewind(forwrefs);
1221 forwref = saa_rstruct(forwrefs);
1222 raa_free(offsets);
1223 offsets = raa_init();
1224 }
H. Peter Anvindbb640b2009-07-18 18:57:16 -07001225 preproc->reset(fname, pass1, &nasmlist,
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001226 pass1 == 2 ? depend_ptr : NULL);
H. Peter Anvin972079f2008-09-30 17:01:23 -07001227 memcpy(warning_on, warning_on_global, (ERR_WARN_MAX+1) * sizeof(bool));
Victor van den Elzen819703a2008-07-16 15:20:56 +02001228
H. Peter Anvine2c80182005-01-15 22:15:51 +00001229 globallineno = 0;
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001230 if (passn == 1)
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001231 location.known = true;
Cyrill Gorcunov190232f2013-02-15 12:35:04 +04001232 location.offset = offs = get_curr_offs();
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001233
H. Peter Anvine2c80182005-01-15 22:15:51 +00001234 while ((line = preproc->getline())) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001235 enum directives d;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001236 globallineno++;
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001237
H. Peter Anvinaeb0e0e2009-06-27 16:30:00 -07001238 /*
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001239 * Here we parse our directives; this is not handled by the
1240 * 'real' parser. This really should be a separate function.
1241 */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001242 directive = line;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001243 d = getkw(&directive, &value);
H. Peter Anvin70055962007-10-11 00:05:31 -07001244 if (d) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001245 int err = 0;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001246
H. Peter Anvin70055962007-10-11 00:05:31 -07001247 switch (d) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001248 case D_SEGMENT: /* [SEGMENT n] */
1249 case D_SECTION:
H. Peter Anvine2c80182005-01-15 22:15:51 +00001250 seg = ofmt->section(value, pass2, &sb);
1251 if (seg == NO_SEG) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001252 nasm_error(pass1 == 1 ? ERR_NONFATAL : ERR_PANIC,
Keith Kaniosb7a89542007-04-12 02:40:54 +00001253 "segment name `%s' not recognized",
H. Peter Anvine2c80182005-01-15 22:15:51 +00001254 value);
1255 } else {
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001256 in_abs_seg = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001257 location.segment = seg;
1258 }
1259 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001260 case D_SECTALIGN: /* [SECTALIGN n] */
Cyrill Gorcunov9fde3352011-05-23 23:50:03 +04001261 if (*value) {
1262 stdscan_reset();
1263 stdscan_set(value);
1264 tokval.t_type = TOKEN_INVALID;
1265 e = evaluate(stdscan, NULL, &tokval, NULL, pass2, nasm_error, NULL);
1266 if (e) {
1267 unsigned int align = (unsigned int)e->value;
1268 if ((uint64_t)e->value > 0x7fffffff) {
1269 /*
1270 * FIXME: Please make some sane message here
1271 * ofmt should have some 'check' method which
1272 * would report segment alignment bounds.
1273 */
1274 nasm_error(ERR_FATAL,
1275 "incorrect segment alignment `%s'", value);
1276 } else if (!is_power2(align)) {
Cyrill Gorcunovd5f2aef2010-04-20 15:33:45 +04001277 nasm_error(ERR_NONFATAL,
1278 "segment alignment `%s' is not power of two",
1279 value);
1280 }
Cyrill Gorcunov2a587ab2010-04-21 00:51:22 +04001281 /* callee should be able to handle all details */
Cyrill Gorcunov2ef5c272010-04-21 13:45:32 +04001282 ofmt->sectalign(location.segment, align);
Cyrill Gorcunovd5f2aef2010-04-20 15:33:45 +04001283 }
1284 }
1285 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001286 case D_EXTERN: /* [EXTERN label:special] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001287 if (*value == '$')
1288 value++; /* skip initial $ if present */
1289 if (pass0 == 2) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001290 q = value;
1291 while (*q && *q != ':')
H. Peter Anvine2c80182005-01-15 22:15:51 +00001292 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001293 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001294 *q++ = '\0';
1295 ofmt->symdef(value, 0L, 0L, 3, q);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001296 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001297 } else if (passn == 1) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001298 q = value;
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001299 validid = true;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001300 if (!isidstart(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001301 validid = false;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001302 while (*q && *q != ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001303 if (!isidchar(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001304 validid = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001305 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001306 }
1307 if (!validid) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001308 nasm_error(ERR_NONFATAL,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001309 "identifier expected after EXTERN");
1310 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001311 }
1312 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001313 *q++ = '\0';
1314 special = q;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001315 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +00001316 special = NULL;
1317 if (!is_extern(value)) { /* allow re-EXTERN to be ignored */
1318 int temp = pass0;
1319 pass0 = 1; /* fake pass 1 in labels.c */
H. Peter Anvin605f5152009-07-18 18:31:41 -07001320 declare_as_global(value, special);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001321 define_label(value, seg_alloc(), 0L, NULL,
H. Peter Anvin605f5152009-07-18 18:31:41 -07001322 false, true);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001323 pass0 = temp;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001324 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001325 } /* else pass0 == 1 */
1326 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001327 case D_BITS: /* [BITS bits] */
Keith Kaniosb7a89542007-04-12 02:40:54 +00001328 globalbits = sb = get_bits(value);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001329 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001330 case D_GLOBAL: /* [GLOBAL symbol:special] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001331 if (*value == '$')
1332 value++; /* skip initial $ if present */
1333 if (pass0 == 2) { /* pass 2 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001334 q = value;
1335 while (*q && *q != ':')
H. Peter Anvine2c80182005-01-15 22:15:51 +00001336 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001337 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001338 *q++ = '\0';
1339 ofmt->symdef(value, 0L, 0L, 3, q);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001340 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001341 } else if (pass2 == 1) { /* pass == 1 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001342 q = value;
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001343 validid = true;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001344 if (!isidstart(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001345 validid = false;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001346 while (*q && *q != ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001347 if (!isidchar(*q))
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001348 validid = false;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001349 q++;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001350 }
1351 if (!validid) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001352 nasm_error(ERR_NONFATAL,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001353 "identifier expected after GLOBAL");
1354 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001355 }
1356 if (*q == ':') {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001357 *q++ = '\0';
1358 special = q;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001359 } else
H. Peter Anvine2c80182005-01-15 22:15:51 +00001360 special = NULL;
H. Peter Anvin605f5152009-07-18 18:31:41 -07001361 declare_as_global(value, special);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001362 } /* pass == 1 */
1363 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001364 case D_COMMON: /* [COMMON symbol size:special] */
1365 {
1366 int64_t size;
H. Peter Anvinaeb0e0e2009-06-27 16:30:00 -07001367
H. Peter Anvine2c80182005-01-15 22:15:51 +00001368 if (*value == '$')
1369 value++; /* skip initial $ if present */
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001370 p = value;
1371 validid = true;
1372 if (!isidstart(*p))
1373 validid = false;
1374 while (*p && !nasm_isspace(*p)) {
1375 if (!isidchar(*p))
1376 validid = false;
1377 p++;
1378 }
1379 if (!validid) {
1380 nasm_error(ERR_NONFATAL,
1381 "identifier expected after COMMON");
1382 break;
1383 }
1384 if (*p) {
H. Peter Anvinff800412009-10-13 12:03:37 -07001385 p = nasm_zap_spaces_fwd(p);
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001386 q = p;
1387 while (*q && *q != ':')
1388 q++;
1389 if (*q == ':') {
1390 *q++ = '\0';
1391 special = q;
1392 } else {
1393 special = NULL;
1394 }
1395 size = readnum(p, &rn_error);
1396 if (rn_error) {
1397 nasm_error(ERR_NONFATAL,
1398 "invalid size specified"
1399 " in COMMON declaration");
1400 break;
1401 }
1402 } else {
1403 nasm_error(ERR_NONFATAL,
1404 "no size specified in"
1405 " COMMON declaration");
1406 break;
1407 }
H. Peter Anvineba20a72002-04-30 20:53:55 +00001408
H. Peter Anvinaeb0e0e2009-06-27 16:30:00 -07001409 if (pass0 < 2) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001410 define_common(value, seg_alloc(), size, special);
H. Peter Anvinaeb0e0e2009-06-27 16:30:00 -07001411 } else if (pass0 == 2) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001412 if (special)
1413 ofmt->symdef(value, 0L, 0L, 3, special);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001414 }
1415 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001416 }
1417 case D_ABSOLUTE: /* [ABSOLUTE address] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001418 stdscan_reset();
Cyrill Gorcunov917117f2009-10-29 23:09:18 +03001419 stdscan_set(value);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001420 tokval.t_type = TOKEN_INVALID;
1421 e = evaluate(stdscan, NULL, &tokval, NULL, pass2,
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001422 nasm_error, NULL);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001423 if (e) {
1424 if (!is_reloc(e))
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001425 nasm_error(pass0 ==
H. Peter Anvine2c80182005-01-15 22:15:51 +00001426 1 ? ERR_NONFATAL : ERR_PANIC,
1427 "cannot use non-relocatable expression as "
1428 "ABSOLUTE address");
1429 else {
1430 abs_seg = reloc_seg(e);
1431 abs_offset = reloc_value(e);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001432 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001433 } else if (passn == 1)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001434 abs_offset = 0x100; /* don't go near zero in case of / */
1435 else
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001436 nasm_error(ERR_PANIC, "invalid ABSOLUTE address "
H. Peter Anvine2c80182005-01-15 22:15:51 +00001437 "in pass two");
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001438 in_abs_seg = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001439 location.segment = NO_SEG;
1440 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001441 case D_DEBUG: /* [DEBUG] */
1442 {
1443 char debugid[128];
1444 bool badid, overlong;
H. Peter Anvin8bec2c72009-08-08 13:49:00 -07001445
H. Peter Anvine2c80182005-01-15 22:15:51 +00001446 p = value;
1447 q = debugid;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001448 badid = overlong = false;
H. Peter Anvin8bec2c72009-08-08 13:49:00 -07001449 if (!isidstart(*p)) {
1450 badid = true;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001451 } else {
1452 while (*p && !nasm_isspace(*p)) {
1453 if (q >= debugid + sizeof debugid - 1) {
1454 overlong = true;
1455 break;
1456 }
1457 if (!isidchar(*p))
1458 badid = true;
1459 *q++ = *p++;
1460 }
1461 *q = 0;
1462 }
H. Peter Anvin8bec2c72009-08-08 13:49:00 -07001463 if (badid) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001464 nasm_error(passn == 1 ? ERR_NONFATAL : ERR_PANIC,
1465 "identifier expected after DEBUG");
1466 break;
1467 }
1468 if (overlong) {
1469 nasm_error(passn == 1 ? ERR_NONFATAL : ERR_PANIC,
1470 "DEBUG identifier too long");
1471 break;
1472 }
Cyrill Gorcunovd61debf2009-10-13 19:38:52 +04001473 p = nasm_skip_spaces(p);
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001474 if (pass0 == 2)
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001475 dfmt->debug_directive(debugid, p);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001476 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001477 }
1478 case D_WARNING: /* [WARNING {+|-|*}warn-name] */
Cyrill Gorcunovd61debf2009-10-13 19:38:52 +04001479 value = nasm_skip_spaces(value);
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001480 switch(*value) {
1481 case '-': validid = 0; value++; break;
1482 case '+': validid = 1; value++; break;
1483 case '*': validid = 2; value++; break;
1484 default: validid = 1; break;
1485 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001486
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001487 for (i = 1; i <= ERR_WARN_MAX; i++)
1488 if (!nasm_stricmp(value, warnings[i].name))
1489 break;
1490 if (i <= ERR_WARN_MAX) {
1491 switch(validid) {
1492 case 0:
1493 warning_on[i] = false;
1494 break;
1495 case 1:
1496 warning_on[i] = true;
1497 break;
1498 case 2:
1499 warning_on[i] = warning_on_global[i];
1500 break;
1501 }
1502 } else
1503 nasm_error(ERR_NONFATAL,
1504 "invalid warning id in WARNING directive");
H. Peter Anvine2c80182005-01-15 22:15:51 +00001505 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001506 case D_CPU: /* [CPU] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001507 cpu = get_cpu(value);
1508 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001509 case D_LIST: /* [LIST {+|-}] */
Cyrill Gorcunovd61debf2009-10-13 19:38:52 +04001510 value = nasm_skip_spaces(value);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001511 if (*value == '+') {
1512 user_nolist = 0;
1513 } else {
1514 if (*value == '-') {
1515 user_nolist = 1;
1516 } else {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001517 err = 1;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001518 }
1519 }
1520 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001521 case D_DEFAULT: /* [DEFAULT] */
1522 stdscan_reset();
Cyrill Gorcunov917117f2009-10-29 23:09:18 +03001523 stdscan_set(value);
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001524 tokval.t_type = TOKEN_INVALID;
Jin Kyu Songb287ff02013-12-04 20:05:55 -08001525 if (stdscan(NULL, &tokval) != TOKEN_INVALID) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001526 switch ((int)tokval.t_integer) {
1527 case S_REL:
1528 globalrel = 1;
1529 break;
1530 case S_ABS:
1531 globalrel = 0;
1532 break;
Jin Kyu Songb287ff02013-12-04 20:05:55 -08001533 case P_BND:
1534 globalbnd = 1;
1535 break;
1536 case P_NOBND:
1537 globalbnd = 0;
1538 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001539 default:
1540 err = 1;
1541 break;
1542 }
1543 } else {
1544 err = 1;
1545 }
1546 break;
1547 case D_FLOAT:
1548 if (float_option(value)) {
1549 nasm_error(pass1 == 1 ? ERR_NONFATAL : ERR_PANIC,
1550 "unknown 'float' directive: %s",
1551 value);
1552 }
1553 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001554 default:
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001555 if (ofmt->directive(d, value, pass2))
1556 break;
1557 /* else fall through */
1558 case D_unknown:
1559 nasm_error(pass1 == 1 ? ERR_NONFATAL : ERR_PANIC,
1560 "unrecognised directive [%s]",
1561 directive);
1562 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001563 }
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001564 if (err) {
1565 nasm_error(ERR_NONFATAL,
1566 "invalid parameter to [%s] directive",
1567 directive);
1568 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001569 } else { /* it isn't a directive */
H. Peter Anvin00444ae2009-07-18 18:49:55 -07001570 parse_line(pass1, line, &output_ins, def_label);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001571
Charles Crayne2581c862008-09-10 19:21:52 -07001572 if (optimizing > 0) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001573 if (forwref != NULL && globallineno == forwref->lineno) {
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001574 output_ins.forw_ref = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001575 do {
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001576 output_ins.oprs[forwref->operand].opflags |= OPFLAG_FORWARD;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001577 forwref = saa_rstruct(forwrefs);
1578 } while (forwref != NULL
1579 && forwref->lineno == globallineno);
1580 } else
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001581 output_ins.forw_ref = false;
H. Peter Anvin323fcff2009-07-12 12:04:56 -07001582
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001583 if (output_ins.forw_ref) {
1584 if (passn == 1) {
1585 for (i = 0; i < output_ins.operands; i++) {
1586 if (output_ins.oprs[i].opflags & OPFLAG_FORWARD) {
1587 struct forwrefinfo *fwinf = (struct forwrefinfo *)saa_wstruct(forwrefs);
1588 fwinf->lineno = globallineno;
1589 fwinf->operand = i;
1590 }
1591 }
1592 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001593 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001594 }
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001595
H. Peter Anvine2c80182005-01-15 22:15:51 +00001596 /* forw_ref */
1597 if (output_ins.opcode == I_EQU) {
1598 if (pass1 == 1) {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001599 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001600 * Special `..' EQUs get processed in pass two,
1601 * except `..@' macro-processor EQUs which are done
1602 * in the normal place.
1603 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001604 if (!output_ins.label)
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001605 nasm_error(ERR_NONFATAL,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001606 "EQU not preceded by label");
H. Peter Anvind7ed89e2002-04-30 20:52:08 +00001607
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001608 else if (output_ins.label[0] != '.' ||
1609 output_ins.label[1] != '.' ||
H. Peter Anvine2c80182005-01-15 22:15:51 +00001610 output_ins.label[2] == '@') {
1611 if (output_ins.operands == 1 &&
1612 (output_ins.oprs[0].type & IMMEDIATE) &&
1613 output_ins.oprs[0].wrt == NO_SEG) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001614 bool isext = !!(output_ins.oprs[0].opflags & OPFLAG_EXTERN);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001615 def_label(output_ins.label,
1616 output_ins.oprs[0].segment,
1617 output_ins.oprs[0].offset, NULL,
H. Peter Anvin605f5152009-07-18 18:31:41 -07001618 false, isext);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001619 } else if (output_ins.operands == 2
H. Peter Anvin72191982009-02-26 14:34:48 -08001620 && (output_ins.oprs[0].type & IMMEDIATE)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001621 && (output_ins.oprs[0].type & COLON)
H. Peter Anvin72191982009-02-26 14:34:48 -08001622 && output_ins.oprs[0].segment == NO_SEG
H. Peter Anvine2c80182005-01-15 22:15:51 +00001623 && output_ins.oprs[0].wrt == NO_SEG
H. Peter Anvin72191982009-02-26 14:34:48 -08001624 && (output_ins.oprs[1].type & IMMEDIATE)
1625 && output_ins.oprs[1].segment == NO_SEG
1626 && output_ins.oprs[1].wrt == NO_SEG) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001627 def_label(output_ins.label,
H. Peter Anvin72191982009-02-26 14:34:48 -08001628 output_ins.oprs[0].offset | SEG_ABS,
1629 output_ins.oprs[1].offset,
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001630 NULL, false, false);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001631 } else
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001632 nasm_error(ERR_NONFATAL,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001633 "bad syntax for EQU");
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001634 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001635 } else {
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001636 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001637 * Special `..' EQUs get processed here, except
1638 * `..@' macro processor EQUs which are done above.
1639 */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001640 if (output_ins.label[0] == '.' &&
H. Peter Anvine2c80182005-01-15 22:15:51 +00001641 output_ins.label[1] == '.' &&
1642 output_ins.label[2] != '@') {
1643 if (output_ins.operands == 1 &&
1644 (output_ins.oprs[0].type & IMMEDIATE)) {
1645 define_label(output_ins.label,
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001646 output_ins.oprs[0].segment,
1647 output_ins.oprs[0].offset,
H. Peter Anvin605f5152009-07-18 18:31:41 -07001648 NULL, false, false);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001649 } else if (output_ins.operands == 2
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001650 && (output_ins.oprs[0].type & IMMEDIATE)
H. Peter Anvine2c80182005-01-15 22:15:51 +00001651 && (output_ins.oprs[0].type & COLON)
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001652 && output_ins.oprs[0].segment == NO_SEG
1653 && (output_ins.oprs[1].type & IMMEDIATE)
1654 && output_ins.oprs[1].segment == NO_SEG) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001655 define_label(output_ins.label,
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001656 output_ins.oprs[0].offset | SEG_ABS,
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001657 output_ins.oprs[1].offset,
H. Peter Anvin605f5152009-07-18 18:31:41 -07001658 NULL, false, false);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001659 } else
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001660 nasm_error(ERR_NONFATAL,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001661 "bad syntax for EQU");
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001662 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001663 }
H. Peter Anvine2c80182005-01-15 22:15:51 +00001664 } else { /* instruction isn't an EQU */
H. Peter Anvineba20a72002-04-30 20:53:55 +00001665
H. Peter Anvine2c80182005-01-15 22:15:51 +00001666 if (pass1 == 1) {
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001667
Charles Crayne5fbbc8c2007-11-07 19:03:46 -08001668 int64_t l = insn_size(location.segment, offs, sb, cpu,
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001669 &output_ins, nasm_error);
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001670
H. Peter Anvine2c80182005-01-15 22:15:51 +00001671 /* if (using_debug_info) && output_ins.opcode != -1) */
1672 if (using_debug_info)
1673 { /* fbk 03/25/01 */
1674 /* this is done here so we can do debug type info */
Keith Kaniosb7a89542007-04-12 02:40:54 +00001675 int32_t typeinfo =
H. Peter Anvine2c80182005-01-15 22:15:51 +00001676 TYS_ELEMENTS(output_ins.operands);
1677 switch (output_ins.opcode) {
1678 case I_RESB:
1679 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001680 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_BYTE;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001681 break;
1682 case I_RESW:
1683 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001684 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_WORD;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001685 break;
1686 case I_RESD:
1687 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001688 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_DWORD;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001689 break;
1690 case I_RESQ:
1691 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001692 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_QWORD;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001693 break;
1694 case I_REST:
1695 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001696 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_TBYTE;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001697 break;
H. Peter Anvindfb91802008-05-20 11:43:53 -07001698 case I_RESO:
1699 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001700 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_OWORD;
H. Peter Anvindfb91802008-05-20 11:43:53 -07001701 break;
1702 case I_RESY:
1703 typeinfo =
Cyrill Gorcunovd8799002010-01-09 16:40:03 +03001704 TYS_ELEMENTS(output_ins.oprs[0].offset) | TY_YWORD;
H. Peter Anvindfb91802008-05-20 11:43:53 -07001705 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001706 case I_DB:
1707 typeinfo |= TY_BYTE;
1708 break;
1709 case I_DW:
1710 typeinfo |= TY_WORD;
1711 break;
1712 case I_DD:
1713 if (output_ins.eops_float)
1714 typeinfo |= TY_FLOAT;
1715 else
1716 typeinfo |= TY_DWORD;
1717 break;
1718 case I_DQ:
1719 typeinfo |= TY_QWORD;
1720 break;
1721 case I_DT:
1722 typeinfo |= TY_TBYTE;
1723 break;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001724 case I_DO:
1725 typeinfo |= TY_OWORD;
1726 break;
1727 case I_DY:
1728 typeinfo |= TY_YWORD;
1729 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001730 default:
1731 typeinfo = TY_LABEL;
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001732
H. Peter Anvine2c80182005-01-15 22:15:51 +00001733 }
H. Peter Anvin1cd0e2d2002-04-30 21:00:33 +00001734
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001735 dfmt->debug_typevalue(typeinfo);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001736 }
1737 if (l != -1) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001738 offs += l;
Cyrill Gorcunov190232f2013-02-15 12:35:04 +04001739 set_curr_offs(offs);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001740 }
H. Peter Anvin734b1882002-04-30 21:01:08 +00001741 /*
H. Peter Anvine2c80182005-01-15 22:15:51 +00001742 * else l == -1 => invalid instruction, which will be
1743 * flagged as an error on pass 2
1744 */
H. Peter Anvin76690a12002-04-30 20:52:49 +00001745
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001746 } else {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001747 offs += assemble(location.segment, offs, sb, cpu,
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001748 &output_ins, ofmt, nasm_error,
H. Peter Anvine2c80182005-01-15 22:15:51 +00001749 &nasmlist);
Cyrill Gorcunov190232f2013-02-15 12:35:04 +04001750 set_curr_offs(offs);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001751
H. Peter Anvine2c80182005-01-15 22:15:51 +00001752 }
1753 } /* not an EQU */
1754 cleanup_insn(&output_ins);
1755 }
1756 nasm_free(line);
Cyrill Gorcunov190232f2013-02-15 12:35:04 +04001757 location.offset = offs = get_curr_offs();
H. Peter Anvine2c80182005-01-15 22:15:51 +00001758 } /* end while (line = preproc->getline... */
H. Peter Anvinaeb0e0e2009-06-27 16:30:00 -07001759
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001760 if (pass0 == 2 && global_offset_changed && !terminate_after_phase)
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001761 nasm_error(ERR_NONFATAL,
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001762 "phase error detected at end of assembly.");
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001763
H. Peter Anvine2c80182005-01-15 22:15:51 +00001764 if (pass1 == 1)
1765 preproc->cleanup(1);
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001766
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -07001767 if ((passn > 1 && !global_offset_changed) || pass0 == 2) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001768 pass0++;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001769 } else if (global_offset_changed &&
1770 global_offset_changed < prev_offset_changed) {
Charles Craynec1905c22008-09-11 18:54:06 -07001771 prev_offset_changed = global_offset_changed;
1772 stall_count = 0;
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001773 } else {
1774 stall_count++;
1775 }
Victor van den Elzen42528232008-09-11 15:07:05 +02001776
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001777 if (terminate_after_phase)
1778 break;
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -07001779
1780 if ((stall_count > 997) || (passn >= pass_max)) {
Victor van den Elzen42528232008-09-11 15:07:05 +02001781 /* We get here if the labels don't converge
1782 * Example: FOO equ FOO + 1
1783 */
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001784 nasm_error(ERR_NONFATAL,
Victor van den Elzen42528232008-09-11 15:07:05 +02001785 "Can't find valid values for all labels "
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -07001786 "after %d passes, giving up.", passn);
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001787 nasm_error(ERR_NONFATAL,
1788 "Possible causes: recursive EQUs, macro abuse.");
1789 break;
1790 }
H. Peter Anvin00835fe2008-01-08 23:03:57 -08001791 }
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001792
H. Peter Anvine2c80182005-01-15 22:15:51 +00001793 preproc->cleanup(0);
1794 nasmlist.cleanup();
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -07001795 if (!terminate_after_phase && opt_verbose_info) {
Cyrill Gorcunov14763192013-02-15 12:13:09 +04001796 /* -On and -Ov switches */
H. Peter Anvinf7a9eca2009-06-27 15:34:32 -07001797 fprintf(stdout, "info: assembly required 1+%d+1 passes\n", passn-3);
1798 }
1799}
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001800
H. Peter Anvin70055962007-10-11 00:05:31 -07001801static enum directives getkw(char **directive, char **value)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001802{
Keith Kaniosa6dfa782007-04-13 16:47:53 +00001803 char *p, *q, *buf;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001804
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001805 buf = nasm_skip_spaces(*directive);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001806
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001807 /* it should be enclosed in [ ] */
H. Peter Anvine2c80182005-01-15 22:15:51 +00001808 if (*buf != '[')
H. Peter Anvin888964a2010-04-06 17:00:12 -07001809 return D_none;
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001810 q = strchr(buf, ']');
1811 if (!q)
H. Peter Anvin888964a2010-04-06 17:00:12 -07001812 return D_none;
H. Peter Anvineba20a72002-04-30 20:53:55 +00001813
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001814 /* stip off the comments */
1815 p = strchr(buf, ';');
1816 if (p) {
1817 if (p < q) /* ouch! somwhere inside */
H. Peter Anvin888964a2010-04-06 17:00:12 -07001818 return D_none;
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001819 *p = '\0';
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001820 }
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001821
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001822 /* no brace, no trailing spaces */
1823 *q = '\0';
1824 nasm_zap_spaces_rev(--q);
1825
1826 /* directive */
1827 p = nasm_skip_spaces(++buf);
1828 q = nasm_skip_word(p);
1829 if (!q)
H. Peter Anvin888964a2010-04-06 17:00:12 -07001830 return D_none; /* sigh... no value there */
Cyrill Gorcunovbd416c62009-09-18 19:23:53 +04001831 *q = '\0';
1832 *directive = p;
1833
1834 /* and value finally */
1835 p = nasm_skip_spaces(++q);
1836 *value = p;
H. Peter Anvin62b24d72007-08-29 16:38:05 +00001837
H. Peter Anvin323fcff2009-07-12 12:04:56 -07001838 return find_directive(*directive);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001839}
1840
Ed Berosetfa771012002-06-09 20:56:40 +00001841/**
1842 * gnu style error reporting
1843 * This function prints an error message to error_file in the
1844 * style used by GNU. An example would be:
1845 * file.asm:50: error: blah blah blah
H. Peter Anvin70653092007-10-19 14:42:29 -07001846 * where file.asm is the name of the file, 50 is the line number on
Ed Berosetfa771012002-06-09 20:56:40 +00001847 * which the error occurs (or is detected) and "error:" is one of
1848 * the possible optional diagnostics -- it can be "error" or "warning"
H. Peter Anvin70653092007-10-19 14:42:29 -07001849 * or something else. Finally the line terminates with the actual
Ed Berosetfa771012002-06-09 20:56:40 +00001850 * error message.
H. Peter Anvin70653092007-10-19 14:42:29 -07001851 *
1852 * @param severity the severity of the warning or error
Ed Berosetfa771012002-06-09 20:56:40 +00001853 * @param fmt the printf style format string
1854 */
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001855static void nasm_verror_gnu(int severity, const char *fmt, va_list ap)
H. Peter Anvineba20a72002-04-30 20:53:55 +00001856{
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001857 char *currentfile = NULL;
1858 int32_t lineno = 0;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001859
Ed Berosetfa771012002-06-09 20:56:40 +00001860 if (is_suppressed_warning(severity))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001861 return;
H. Peter Anvin76690a12002-04-30 20:52:49 +00001862
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001863 if (!(severity & ERR_NOFILE))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001864 src_get(&lineno, &currentfile);
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001865
1866 if (currentfile) {
Cyrill Gorcunov04dba652013-02-15 02:21:07 +04001867 fprintf(error_file, "%s:%"PRId32": ", currentfile, lineno);
1868 nasm_free(currentfile);
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001869 } else {
Cyrill Gorcunov04dba652013-02-15 02:21:07 +04001870 fputs("nasm: ", error_file);
H. Peter Anvineba20a72002-04-30 20:53:55 +00001871 }
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001872
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001873 nasm_verror_common(severity, fmt, ap);
Ed Berosetfa771012002-06-09 20:56:40 +00001874}
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001875
Ed Berosetfa771012002-06-09 20:56:40 +00001876/**
1877 * MS style error reporting
1878 * This function prints an error message to error_file in the
H. Peter Anvin70653092007-10-19 14:42:29 -07001879 * style used by Visual C and some other Microsoft tools. An example
Ed Berosetfa771012002-06-09 20:56:40 +00001880 * would be:
Ed Beroset6e61d0d2002-06-11 03:29:36 +00001881 * file.asm(50) : error: blah blah blah
H. Peter Anvin70653092007-10-19 14:42:29 -07001882 * where file.asm is the name of the file, 50 is the line number on
Ed Beroset6e61d0d2002-06-11 03:29:36 +00001883 * which the error occurs (or is detected) and "error:" is one of
1884 * the possible optional diagnostics -- it can be "error" or "warning"
H. Peter Anvin70653092007-10-19 14:42:29 -07001885 * or something else. Finally the line terminates with the actual
Ed Beroset6e61d0d2002-06-11 03:29:36 +00001886 * error message.
H. Peter Anvin70653092007-10-19 14:42:29 -07001887 *
1888 * @param severity the severity of the warning or error
Ed Berosetfa771012002-06-09 20:56:40 +00001889 * @param fmt the printf style format string
1890 */
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001891static void nasm_verror_vc(int severity, const char *fmt, va_list ap)
Ed Berosetfa771012002-06-09 20:56:40 +00001892{
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001893 char *currentfile = NULL;
1894 int32_t lineno = 0;
Ed Berosetfa771012002-06-09 20:56:40 +00001895
H. Peter Anvine2c80182005-01-15 22:15:51 +00001896 if (is_suppressed_warning(severity))
1897 return;
Ed Berosetfa771012002-06-09 20:56:40 +00001898
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001899 if (!(severity & ERR_NOFILE))
H. Peter Anvine2c80182005-01-15 22:15:51 +00001900 src_get(&lineno, &currentfile);
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001901
1902 if (currentfile) {
Keith Kanios93f2e9a2007-04-14 00:10:59 +00001903 fprintf(error_file, "%s(%"PRId32") : ", currentfile, lineno);
H. Peter Anvine2c80182005-01-15 22:15:51 +00001904 nasm_free(currentfile);
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001905 } else {
1906 fputs("nasm: ", error_file);
Ed Berosetfa771012002-06-09 20:56:40 +00001907 }
H. Peter Anvin48ef4192009-07-01 22:12:59 -07001908
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001909 nasm_verror_common(severity, fmt, ap);
Ed Berosetfa771012002-06-09 20:56:40 +00001910}
1911
1912/**
1913 * check for supressed warning
H. Peter Anvin70653092007-10-19 14:42:29 -07001914 * checks for suppressed warning or pass one only warning and we're
Ed Berosetfa771012002-06-09 20:56:40 +00001915 * not in pass 1
1916 *
1917 * @param severity the severity of the warning or error
1918 * @return true if we should abort error/warning printing
1919 */
H. Peter Anvin2b046cf2008-01-22 14:08:36 -08001920static bool is_suppressed_warning(int severity)
Ed Berosetfa771012002-06-09 20:56:40 +00001921{
Cyrill Gorcunovead87722011-12-04 19:24:25 +04001922 /* Not a warning at all */
1923 if ((severity & ERR_MASK) != ERR_WARNING)
1924 return false;
1925
Cyrill Gorcunovead87722011-12-04 19:24:25 +04001926 /* See if it's a pass-one only warning and we're not in pass one. */
1927 if (((severity & ERR_PASS1) && pass0 != 1) ||
1928 ((severity & ERR_PASS2) && pass0 != 2))
1929 return true;
1930
H. Peter Anvin442a05a2012-02-24 21:50:53 -08001931 /* Might be a warning but suppresed explicitly */
1932 if (severity & ERR_WARN_MASK)
1933 return !warning_on[WARN_IDX(severity)];
1934 else
1935 return false;
Ed Berosetfa771012002-06-09 20:56:40 +00001936}
1937
1938/**
1939 * common error reporting
1940 * This is the common back end of the error reporting schemes currently
H. Peter Anvin70653092007-10-19 14:42:29 -07001941 * implemented. It prints the nature of the warning and then the
Ed Berosetfa771012002-06-09 20:56:40 +00001942 * specific error message to error_file and may or may not return. It
1943 * doesn't return if the error severity is a "panic" or "debug" type.
H. Peter Anvin70653092007-10-19 14:42:29 -07001944 *
1945 * @param severity the severity of the warning or error
Ed Berosetfa771012002-06-09 20:56:40 +00001946 * @param fmt the printf style format string
1947 */
H. Peter Anvin9bd15062009-07-18 21:07:17 -04001948static void nasm_verror_common(int severity, const char *fmt, va_list args)
Ed Berosetfa771012002-06-09 20:56:40 +00001949{
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001950 char msg[1024];
1951 const char *pfx;
H. Peter Anvin323fcff2009-07-12 12:04:56 -07001952
H. Peter Anvin7df04172008-06-10 18:27:38 -07001953 switch (severity & (ERR_MASK|ERR_NO_SEVERITY)) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001954 case ERR_WARNING:
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001955 pfx = "warning: ";
H. Peter Anvine2c80182005-01-15 22:15:51 +00001956 break;
1957 case ERR_NONFATAL:
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001958 pfx = "error: ";
H. Peter Anvine2c80182005-01-15 22:15:51 +00001959 break;
1960 case ERR_FATAL:
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001961 pfx = "fatal: ";
H. Peter Anvine2c80182005-01-15 22:15:51 +00001962 break;
1963 case ERR_PANIC:
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001964 pfx = "panic: ";
H. Peter Anvine2c80182005-01-15 22:15:51 +00001965 break;
1966 case ERR_DEBUG:
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001967 pfx = "debug: ";
H. Peter Anvine2c80182005-01-15 22:15:51 +00001968 break;
H. Peter Anvin7df04172008-06-10 18:27:38 -07001969 default:
Cyrill Gorcunov22ad9042013-02-15 02:20:26 +04001970 pfx = "";
1971 break;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00001972 }
H. Peter Anvin734b1882002-04-30 21:01:08 +00001973
H. Peter Anvina23aa4a2009-07-07 12:04:12 -07001974 vsnprintf(msg, sizeof msg, fmt, args);
1975
1976 fprintf(error_file, "%s%s\n", pfx, msg);
1977
1978 if (*listname)
Cyrill Gorcunov22ad9042013-02-15 02:20:26 +04001979 nasmlist.error(severity, pfx, msg);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001980
1981 if (severity & ERR_USAGE)
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001982 want_usage = true;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00001983
1984 switch (severity & ERR_MASK) {
H. Peter Anvine2c80182005-01-15 22:15:51 +00001985 case ERR_DEBUG:
1986 /* no further action, by definition */
1987 break;
H. Peter Anvinb030c922007-11-13 11:31:15 -08001988 case ERR_WARNING:
Cyrill Gorcunov22ad9042013-02-15 02:20:26 +04001989 /* Treat warnings as errors */
1990 if (warning_on[WARN_IDX(ERR_WARN_TERM)])
1991 terminate_after_phase = true;
1992 break;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001993 case ERR_NONFATAL:
H. Peter Anvin6867acc2007-10-10 14:58:45 -07001994 terminate_after_phase = true;
H. Peter Anvine2c80182005-01-15 22:15:51 +00001995 break;
1996 case ERR_FATAL:
1997 if (ofile) {
1998 fclose(ofile);
1999 remove(outname);
Cyrill Gorcunov22ad9042013-02-15 02:20:26 +04002000 ofile = NULL;
H. Peter Anvine2c80182005-01-15 22:15:51 +00002001 }
2002 if (want_usage)
2003 usage();
2004 exit(1); /* instantly die */
2005 break; /* placate silly compilers */
2006 case ERR_PANIC:
2007 fflush(NULL);
Cyrill Gorcunov22ad9042013-02-15 02:20:26 +04002008 /* abort(); */ /* halt, catch fire, and dump core */
H. Peter Anvine2c80182005-01-15 22:15:51 +00002009 exit(3);
2010 break;
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00002011 }
2012}
2013
H. Peter Anvin734b1882002-04-30 21:01:08 +00002014static void usage(void)
H. Peter Anvineba20a72002-04-30 20:53:55 +00002015{
H. Peter Anvin620515a2002-04-30 20:57:38 +00002016 fputs("type `nasm -h' for help\n", error_file);
H. Peter Anvinea6e34d2002-04-30 20:51:32 +00002017}
2018
Cyrill Gorcunov08359152013-11-09 22:16:11 +04002019static iflag_t get_cpu(char *value)
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002020{
Cyrill Gorcunov08359152013-11-09 22:16:11 +04002021 iflag_t r;
2022
2023 iflag_clear_all(&r);
2024
H. Peter Anvine2c80182005-01-15 22:15:51 +00002025 if (!strcmp(value, "8086"))
Cyrill Gorcunov08359152013-11-09 22:16:11 +04002026 iflag_set(&r, IF_8086);
2027 else if (!strcmp(value, "186"))
2028 iflag_set(&r, IF_186);
2029 else if (!strcmp(value, "286"))
2030 iflag_set(&r, IF_286);
2031 else if (!strcmp(value, "386"))
2032 iflag_set(&r, IF_386);
2033 else if (!strcmp(value, "486"))
2034 iflag_set(&r, IF_486);
2035 else if (!strcmp(value, "586") ||
2036 !nasm_stricmp(value, "pentium"))
2037 iflag_set(&r, IF_PENT);
2038 else if (!strcmp(value, "686") ||
2039 !nasm_stricmp(value, "ppro") ||
2040 !nasm_stricmp(value, "pentiumpro") ||
2041 !nasm_stricmp(value, "p2"))
2042 iflag_set(&r, IF_P6);
2043 else if (!nasm_stricmp(value, "p3") ||
2044 !nasm_stricmp(value, "katmai"))
2045 iflag_set(&r, IF_KATMAI);
2046 else if (!nasm_stricmp(value, "p4") || /* is this right? -- jrc */
2047 !nasm_stricmp(value, "willamette"))
2048 iflag_set(&r, IF_WILLAMETTE);
2049 else if (!nasm_stricmp(value, "prescott"))
2050 iflag_set(&r, IF_PRESCOTT);
2051 else if (!nasm_stricmp(value, "x64") ||
2052 !nasm_stricmp(value, "x86-64"))
2053 iflag_set(&r, IF_X86_64);
2054 else if (!nasm_stricmp(value, "ia64") ||
2055 !nasm_stricmp(value, "ia-64") ||
2056 !nasm_stricmp(value, "itanium")||
2057 !nasm_stricmp(value, "itanic") ||
2058 !nasm_stricmp(value, "merced"))
2059 iflag_set(&r, IF_IA64);
2060 else {
2061 iflag_set(&r, IF_PLEVEL);
2062 nasm_error(pass0 < 2 ? ERR_NONFATAL : ERR_FATAL,
2063 "unknown 'cpu' type");
2064 }
2065 return r;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002066}
2067
Keith Kaniosa6dfa782007-04-13 16:47:53 +00002068static int get_bits(char *value)
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002069{
2070 int i;
H. Peter Anvin734b1882002-04-30 21:01:08 +00002071
H. Peter Anvine2c80182005-01-15 22:15:51 +00002072 if ((i = atoi(value)) == 16)
2073 return i; /* set for a 16-bit segment */
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002074 else if (i == 32) {
Cyrill Gorcunov08359152013-11-09 22:16:11 +04002075 if (iflag_ffs(&cpu) < IF_386) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04002076 nasm_error(ERR_NONFATAL,
H. Peter Anvine2c80182005-01-15 22:15:51 +00002077 "cannot specify 32-bit segment on processor below a 386");
2078 i = 16;
2079 }
Keith Kaniosb7a89542007-04-12 02:40:54 +00002080 } else if (i == 64) {
Cyrill Gorcunov08359152013-11-09 22:16:11 +04002081 if (iflag_ffs(&cpu) < IF_X86_64) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04002082 nasm_error(ERR_NONFATAL,
Keith Kaniosb7a89542007-04-12 02:40:54 +00002083 "cannot specify 64-bit segment on processor below an x86-64");
2084 i = 16;
2085 }
2086 if (i != maxbits) {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04002087 nasm_error(ERR_NONFATAL,
Keith Kaniosb7a89542007-04-12 02:40:54 +00002088 "%s output format does not support 64-bit code",
2089 ofmt->shortname);
2090 i = 16;
2091 }
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002092 } else {
H. Peter Anvin9bd15062009-07-18 21:07:17 -04002093 nasm_error(pass0 < 2 ? ERR_NONFATAL : ERR_FATAL,
Keith Kaniosb7a89542007-04-12 02:40:54 +00002094 "`%s' is not a valid segment size; must be 16, 32 or 64",
H. Peter Anvine2c80182005-01-15 22:15:51 +00002095 value);
2096 i = 16;
H. Peter Anvinaf535c12002-04-30 20:59:21 +00002097 }
2098 return i;
2099}