H. Peter Anvin | 9e6747c | 2009-06-28 17:13:04 -0700 | [diff] [blame] | 1 | /* ----------------------------------------------------------------------- * |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 2 | * |
H. Peter Anvin | 9e6747c | 2009-06-28 17:13:04 -0700 | [diff] [blame] | 3 | * Copyright 1996-2009 The NASM Authors - All Rights Reserved |
| 4 | * See the file AUTHORS included with the NASM distribution for |
| 5 | * the specific copyright holders. |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 6 | * |
H. Peter Anvin | 9e6747c | 2009-06-28 17:13:04 -0700 | [diff] [blame] | 7 | * 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. |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 17 | * |
H. Peter Anvin | 9e6747c | 2009-06-28 17:13:04 -0700 | [diff] [blame] | 18 | * 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 | |
| 34 | /* |
| 35 | * parser.c source line parser for the Netwide Assembler |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 36 | */ |
| 37 | |
H. Peter Anvin | fe50195 | 2007-10-02 21:53:51 -0700 | [diff] [blame] | 38 | #include "compiler.h" |
| 39 | |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 40 | #include <stdio.h> |
| 41 | #include <stdlib.h> |
| 42 | #include <stddef.h> |
| 43 | #include <string.h> |
| 44 | #include <ctype.h> |
Keith Kanios | b7a8954 | 2007-04-12 02:40:54 +0000 | [diff] [blame] | 45 | #include <inttypes.h> |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 46 | |
| 47 | #include "nasm.h" |
H. Peter Anvin | 24cfef4 | 2002-09-12 16:34:06 +0000 | [diff] [blame] | 48 | #include "insns.h" |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 49 | #include "nasmlib.h" |
H. Peter Anvin | 74cc5e5 | 2007-08-30 22:35:34 +0000 | [diff] [blame] | 50 | #include "stdscan.h" |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 51 | #include "eval.h" |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 52 | #include "parser.h" |
| 53 | #include "float.h" |
H. Peter Anvin | a4835d4 | 2008-05-20 14:21:29 -0700 | [diff] [blame] | 54 | #include "tables.h" |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 55 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 56 | extern int in_abs_seg; /* ABSOLUTE segment flag */ |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 57 | extern int32_t abs_seg; /* ABSOLUTE segment */ |
| 58 | extern int32_t abs_offset; /* ABSOLUTE segment offset */ |
H. Peter Anvin | d0e365d | 2002-05-26 18:19:19 +0000 | [diff] [blame] | 59 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 60 | static int is_comma_next(void); |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 61 | |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 62 | static int i; |
| 63 | static struct tokenval tokval; |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 64 | static struct location *location; /* Pointer to current line's segment,offset */ |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 65 | |
H. Peter Anvin | 605f515 | 2009-07-18 18:31:41 -0700 | [diff] [blame] | 66 | void parser_global_info(struct location * locp) |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 67 | { |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 68 | location = locp; |
| 69 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 70 | |
Cyrill Gorcunov | 18914e6 | 2011-11-12 11:41:51 +0400 | [diff] [blame] | 71 | static int prefix_slot(int prefix) |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 72 | { |
| 73 | switch (prefix) { |
H. Peter Anvin | c2acf7b | 2009-02-21 18:22:56 -0800 | [diff] [blame] | 74 | case P_WAIT: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 75 | return PPS_WAIT; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 76 | case R_CS: |
| 77 | case R_DS: |
| 78 | case R_SS: |
| 79 | case R_ES: |
| 80 | case R_FS: |
| 81 | case R_GS: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 82 | return PPS_SEG; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 83 | case P_LOCK: |
H. Peter Anvin | 10da41e | 2012-02-24 20:57:04 -0800 | [diff] [blame] | 84 | return PPS_LOCK; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 85 | case P_REP: |
| 86 | case P_REPE: |
| 87 | case P_REPZ: |
| 88 | case P_REPNE: |
| 89 | case P_REPNZ: |
H. Peter Anvin | 4ecd5d7 | 2012-02-24 21:51:46 -0800 | [diff] [blame] | 90 | case P_XACQUIRE: |
| 91 | case P_XRELEASE: |
H. Peter Anvin | 10da41e | 2012-02-24 20:57:04 -0800 | [diff] [blame] | 92 | return PPS_REP; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 93 | case P_O16: |
| 94 | case P_O32: |
| 95 | case P_O64: |
| 96 | case P_OSP: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 97 | return PPS_OSIZE; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 98 | case P_A16: |
| 99 | case P_A32: |
| 100 | case P_A64: |
| 101 | case P_ASP: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 102 | return PPS_ASIZE; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 103 | default: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 104 | nasm_error(ERR_PANIC, "Invalid value %d passed to prefix_slot()", prefix); |
| 105 | return -1; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 106 | } |
| 107 | } |
| 108 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 109 | static void process_size_override(insn *result, int operand) |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 110 | { |
| 111 | if (tasm_compatible_mode) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 112 | switch ((int)tokval.t_integer) { |
| 113 | /* For TASM compatibility a size override inside the |
| 114 | * brackets changes the size of the operand, not the |
| 115 | * address type of the operand as it does in standard |
| 116 | * NASM syntax. Hence: |
| 117 | * |
| 118 | * mov eax,[DWORD val] |
| 119 | * |
| 120 | * is valid syntax in TASM compatibility mode. Note that |
| 121 | * you lose the ability to override the default address |
| 122 | * type for the instruction, but we never use anything |
| 123 | * but 32-bit flat model addressing in our code. |
| 124 | */ |
| 125 | case S_BYTE: |
| 126 | result->oprs[operand].type |= BITS8; |
| 127 | break; |
| 128 | case S_WORD: |
| 129 | result->oprs[operand].type |= BITS16; |
| 130 | break; |
| 131 | case S_DWORD: |
| 132 | case S_LONG: |
| 133 | result->oprs[operand].type |= BITS32; |
| 134 | break; |
| 135 | case S_QWORD: |
| 136 | result->oprs[operand].type |= BITS64; |
| 137 | break; |
| 138 | case S_TWORD: |
| 139 | result->oprs[operand].type |= BITS80; |
| 140 | break; |
| 141 | case S_OWORD: |
| 142 | result->oprs[operand].type |= BITS128; |
| 143 | break; |
| 144 | default: |
| 145 | nasm_error(ERR_NONFATAL, |
| 146 | "invalid operand size specification"); |
| 147 | break; |
| 148 | } |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 149 | } else { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 150 | /* Standard NASM compatible syntax */ |
| 151 | switch ((int)tokval.t_integer) { |
| 152 | case S_NOSPLIT: |
| 153 | result->oprs[operand].eaflags |= EAF_TIMESTWO; |
| 154 | break; |
| 155 | case S_REL: |
| 156 | result->oprs[operand].eaflags |= EAF_REL; |
| 157 | break; |
| 158 | case S_ABS: |
| 159 | result->oprs[operand].eaflags |= EAF_ABS; |
| 160 | break; |
| 161 | case S_BYTE: |
| 162 | result->oprs[operand].disp_size = 8; |
| 163 | result->oprs[operand].eaflags |= EAF_BYTEOFFS; |
| 164 | break; |
| 165 | case P_A16: |
| 166 | case P_A32: |
| 167 | case P_A64: |
| 168 | if (result->prefixes[PPS_ASIZE] && |
| 169 | result->prefixes[PPS_ASIZE] != tokval.t_integer) |
| 170 | nasm_error(ERR_NONFATAL, |
| 171 | "conflicting address size specifications"); |
| 172 | else |
| 173 | result->prefixes[PPS_ASIZE] = tokval.t_integer; |
| 174 | break; |
| 175 | case S_WORD: |
| 176 | result->oprs[operand].disp_size = 16; |
| 177 | result->oprs[operand].eaflags |= EAF_WORDOFFS; |
| 178 | break; |
| 179 | case S_DWORD: |
| 180 | case S_LONG: |
| 181 | result->oprs[operand].disp_size = 32; |
| 182 | result->oprs[operand].eaflags |= EAF_WORDOFFS; |
| 183 | break; |
| 184 | case S_QWORD: |
| 185 | result->oprs[operand].disp_size = 64; |
| 186 | result->oprs[operand].eaflags |= EAF_WORDOFFS; |
| 187 | break; |
| 188 | default: |
| 189 | nasm_error(ERR_NONFATAL, "invalid size specification in" |
| 190 | " effective address"); |
| 191 | break; |
| 192 | } |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 193 | } |
| 194 | } |
| 195 | |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 196 | insn *parse_line(int pass, char *buffer, insn *result, ldfunc ldef) |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 197 | { |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 198 | bool insn_is_label = false; |
| 199 | struct eval_hints hints; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 200 | int operand; |
| 201 | int critical; |
H. Peter Anvin | 9c98769 | 2007-11-04 21:09:32 -0800 | [diff] [blame] | 202 | bool first; |
H. Peter Anvin | 552bc2c | 2009-06-23 11:34:42 -0700 | [diff] [blame] | 203 | bool recover; |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 204 | int j; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 205 | |
H. Peter Anvin | 9c98769 | 2007-11-04 21:09:32 -0800 | [diff] [blame] | 206 | restart_parse: |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 207 | first = true; |
| 208 | result->forw_ref = false; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 209 | |
H. Peter Anvin | 76690a1 | 2002-04-30 20:52:49 +0000 | [diff] [blame] | 210 | stdscan_reset(); |
Cyrill Gorcunov | 917117f | 2009-10-29 23:09:18 +0300 | [diff] [blame] | 211 | stdscan_set(buffer); |
H. Peter Anvin | 76690a1 | 2002-04-30 20:52:49 +0000 | [diff] [blame] | 212 | i = stdscan(NULL, &tokval); |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 213 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 214 | result->label = NULL; /* Assume no label */ |
| 215 | result->eops = NULL; /* must do this, whatever happens */ |
| 216 | result->operands = 0; /* must initialize this */ |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 217 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 218 | /* Ignore blank lines */ |
| 219 | if (i == TOKEN_EOS) { |
| 220 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 221 | return result; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 222 | } |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 223 | |
Cyrill Gorcunov | 5abbe37 | 2011-08-28 18:49:00 +0400 | [diff] [blame] | 224 | if (i != TOKEN_ID && |
| 225 | i != TOKEN_INSN && |
| 226 | i != TOKEN_PREFIX && |
| 227 | (i != TOKEN_REG || !IS_SREG(tokval.t_integer))) { |
| 228 | nasm_error(ERR_NONFATAL, |
| 229 | "label or instruction expected at start of line"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 230 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 231 | return result; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 232 | } |
| 233 | |
H. Peter Anvin | 9c98769 | 2007-11-04 21:09:32 -0800 | [diff] [blame] | 234 | if (i == TOKEN_ID || (insn_is_label && i == TOKEN_INSN)) { |
| 235 | /* there's a label here */ |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 236 | first = false; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 237 | result->label = tokval.t_charptr; |
| 238 | i = stdscan(NULL, &tokval); |
| 239 | if (i == ':') { /* skip over the optional colon */ |
| 240 | i = stdscan(NULL, &tokval); |
| 241 | } else if (i == 0) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 242 | nasm_error(ERR_WARNING | ERR_WARN_OL | ERR_PASS1, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 243 | "label alone on a line without a colon might be in error"); |
| 244 | } |
| 245 | if (i != TOKEN_INSN || tokval.t_integer != I_EQU) { |
| 246 | /* |
| 247 | * FIXME: location->segment could be NO_SEG, in which case |
| 248 | * it is possible we should be passing 'abs_seg'. Look into this. |
| 249 | * Work out whether that is *really* what we should be doing. |
| 250 | * Generally fix things. I think this is right as it is, but |
| 251 | * am still not certain. |
| 252 | */ |
| 253 | ldef(result->label, in_abs_seg ? abs_seg : location->segment, |
H. Peter Anvin | 605f515 | 2009-07-18 18:31:41 -0700 | [diff] [blame] | 254 | location->offset, NULL, true, false); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 255 | } |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 256 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 257 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 258 | /* Just a label here */ |
| 259 | if (i == TOKEN_EOS) { |
| 260 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 261 | return result; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 262 | } |
| 263 | |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 264 | for (j = 0; j < MAXPREFIX; j++) |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 265 | result->prefixes[j] = P_none; |
H. Peter Anvin | d7ed89e | 2002-04-30 20:52:08 +0000 | [diff] [blame] | 266 | result->times = 1L; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 267 | |
| 268 | while (i == TOKEN_PREFIX || |
Cyrill Gorcunov | 5abbe37 | 2011-08-28 18:49:00 +0400 | [diff] [blame] | 269 | (i == TOKEN_REG && IS_SREG(tokval.t_integer))) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 270 | first = false; |
H. Peter Anvin | 9c98769 | 2007-11-04 21:09:32 -0800 | [diff] [blame] | 271 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 272 | /* |
| 273 | * Handle special case: the TIMES prefix. |
| 274 | */ |
| 275 | if (i == TOKEN_PREFIX && tokval.t_integer == P_TIMES) { |
| 276 | expr *value; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 277 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 278 | i = stdscan(NULL, &tokval); |
Cyrill Gorcunov | 1f4ccb9 | 2011-08-28 19:53:11 +0400 | [diff] [blame] | 279 | value = evaluate(stdscan, NULL, &tokval, NULL, pass0, nasm_error, NULL); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 280 | i = tokval.t_type; |
| 281 | if (!value) { /* but, error in evaluator */ |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 282 | result->opcode = I_none; /* unrecoverable parse error: */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 283 | return result; /* ignore this instruction */ |
| 284 | } |
| 285 | if (!is_simple(value)) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 286 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 287 | "non-constant argument supplied to TIMES"); |
| 288 | result->times = 1L; |
| 289 | } else { |
| 290 | result->times = value->value; |
Charles Crayne | 7f596e7 | 2008-09-23 21:49:09 -0700 | [diff] [blame] | 291 | if (value->value < 0 && pass0 == 2) { |
Victor van den Elzen | 15bb233 | 2009-08-11 02:10:16 +0200 | [diff] [blame] | 292 | nasm_error(ERR_NONFATAL, "TIMES value %"PRId64" is negative", |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 293 | value->value); |
| 294 | result->times = 0; |
| 295 | } |
| 296 | } |
| 297 | } else { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 298 | int slot = prefix_slot(tokval.t_integer); |
| 299 | if (result->prefixes[slot]) { |
Charles Crayne | 052c0bd | 2007-10-29 18:24:59 -0700 | [diff] [blame] | 300 | if (result->prefixes[slot] == tokval.t_integer) |
Victor van den Elzen | d55a158 | 2010-11-07 23:47:13 +0100 | [diff] [blame] | 301 | nasm_error(ERR_WARNING | ERR_PASS1, |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 302 | "instruction has redundant prefixes"); |
Charles Crayne | 052c0bd | 2007-10-29 18:24:59 -0700 | [diff] [blame] | 303 | else |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 304 | nasm_error(ERR_NONFATAL, |
| 305 | "instruction has conflicting prefixes"); |
| 306 | } |
| 307 | result->prefixes[slot] = tokval.t_integer; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 308 | i = stdscan(NULL, &tokval); |
| 309 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 310 | } |
| 311 | |
| 312 | if (i != TOKEN_INSN) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 313 | int j; |
| 314 | enum prefixes pfx; |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 315 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 316 | for (j = 0; j < MAXPREFIX; j++) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 317 | if ((pfx = result->prefixes[j]) != P_none) |
| 318 | break; |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 319 | } |
H. Peter Anvin | cb583b9 | 2007-10-28 22:04:42 -0700 | [diff] [blame] | 320 | |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 321 | if (i == 0 && pfx != P_none) { |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 322 | /* |
| 323 | * Instruction prefixes are present, but no actual |
| 324 | * instruction. This is allowed: at this point we |
| 325 | * invent a notional instruction of RESB 0. |
| 326 | */ |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 327 | result->opcode = I_RESB; |
| 328 | result->operands = 1; |
| 329 | result->oprs[0].type = IMMEDIATE; |
| 330 | result->oprs[0].offset = 0L; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 331 | result->oprs[0].segment = result->oprs[0].wrt = NO_SEG; |
| 332 | return result; |
| 333 | } else { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 334 | nasm_error(ERR_NONFATAL, "parser: instruction expected"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 335 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 336 | return result; |
| 337 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 338 | } |
| 339 | |
| 340 | result->opcode = tokval.t_integer; |
| 341 | result->condition = tokval.t_inttwo; |
| 342 | |
| 343 | /* |
Charles Crayne | 2581c86 | 2008-09-10 19:21:52 -0700 | [diff] [blame] | 344 | * INCBIN cannot be satisfied with incorrectly |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 345 | * evaluated operands, since the correct values _must_ be known |
| 346 | * on the first pass. Hence, even in pass one, we set the |
| 347 | * `critical' flag on calling evaluate(), so that it will bomb |
Charles Crayne | 2581c86 | 2008-09-10 19:21:52 -0700 | [diff] [blame] | 348 | * out on undefined symbols. |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 349 | */ |
Charles Crayne | 2581c86 | 2008-09-10 19:21:52 -0700 | [diff] [blame] | 350 | if (result->opcode == I_INCBIN) { |
Charles Crayne | 5a7976c | 2008-03-26 17:20:21 -0700 | [diff] [blame] | 351 | critical = (pass0 < 2 ? 1 : 2); |
| 352 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 353 | } else |
| 354 | critical = (pass == 2 ? 2 : 0); |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 355 | |
H. Peter Anvin | 41c9f6f | 2007-09-18 13:01:32 -0700 | [diff] [blame] | 356 | if (result->opcode == I_DB || result->opcode == I_DW || |
| 357 | result->opcode == I_DD || result->opcode == I_DQ || |
| 358 | result->opcode == I_DT || result->opcode == I_DO || |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 359 | result->opcode == I_DY || result->opcode == I_INCBIN) { |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 360 | extop *eop, **tail = &result->eops, **fixptr; |
| 361 | int oper_num = 0; |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 362 | int32_t sign; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 363 | |
H. Peter Anvin | 6867acc | 2007-10-10 14:58:45 -0700 | [diff] [blame] | 364 | result->eops_float = false; |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 365 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 366 | /* |
H. Peter Anvin | 41c9f6f | 2007-09-18 13:01:32 -0700 | [diff] [blame] | 367 | * Begin to read the DB/DW/DD/DQ/DT/DO/INCBIN operands. |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 368 | */ |
| 369 | while (1) { |
| 370 | i = stdscan(NULL, &tokval); |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 371 | if (i == TOKEN_EOS) |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 372 | break; |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 373 | else if (first && i == ':') { |
| 374 | insn_is_label = true; |
| 375 | goto restart_parse; |
| 376 | } |
| 377 | first = false; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 378 | fixptr = tail; |
| 379 | eop = *tail = nasm_malloc(sizeof(extop)); |
| 380 | tail = &eop->next; |
| 381 | eop->next = NULL; |
| 382 | eop->type = EOT_NOTHING; |
| 383 | oper_num++; |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 384 | sign = +1; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 385 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 386 | /* |
| 387 | * is_comma_next() here is to distinguish this from |
| 388 | * a string used as part of an expression... |
| 389 | */ |
H. Peter Anvin | 1162704 | 2008-06-09 20:45:19 -0700 | [diff] [blame] | 390 | if (i == TOKEN_STR && is_comma_next()) { |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 391 | eop->type = EOT_DB_STRING; |
| 392 | eop->stringval = tokval.t_charptr; |
| 393 | eop->stringlen = tokval.t_inttwo; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 394 | i = stdscan(NULL, &tokval); /* eat the comma */ |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 395 | } else if (i == TOKEN_STRFUNC) { |
| 396 | bool parens = false; |
| 397 | const char *funcname = tokval.t_charptr; |
| 398 | enum strfunc func = tokval.t_integer; |
| 399 | i = stdscan(NULL, &tokval); |
| 400 | if (i == '(') { |
| 401 | parens = true; |
| 402 | i = stdscan(NULL, &tokval); |
| 403 | } |
| 404 | if (i != TOKEN_STR) { |
| 405 | nasm_error(ERR_NONFATAL, |
| 406 | "%s must be followed by a string constant", |
| 407 | funcname); |
| 408 | eop->type = EOT_NOTHING; |
| 409 | } else { |
| 410 | eop->type = EOT_DB_STRING_FREE; |
| 411 | eop->stringlen = |
| 412 | string_transform(tokval.t_charptr, tokval.t_inttwo, |
| 413 | &eop->stringval, func); |
| 414 | if (eop->stringlen == (size_t)-1) { |
| 415 | nasm_error(ERR_NONFATAL, "invalid string for transform"); |
| 416 | eop->type = EOT_NOTHING; |
| 417 | } |
| 418 | } |
| 419 | if (parens && i && i != ')') { |
| 420 | i = stdscan(NULL, &tokval); |
| 421 | if (i != ')') { |
| 422 | nasm_error(ERR_NONFATAL, "unterminated %s function", |
| 423 | funcname); |
| 424 | } |
| 425 | } |
| 426 | if (i && i != ',') |
| 427 | i = stdscan(NULL, &tokval); |
| 428 | } else if (i == '-' || i == '+') { |
| 429 | char *save = stdscan_get(); |
| 430 | int token = i; |
| 431 | sign = (i == '-') ? -1 : 1; |
| 432 | i = stdscan(NULL, &tokval); |
| 433 | if (i != TOKEN_FLOAT) { |
| 434 | stdscan_set(save); |
| 435 | i = tokval.t_type = token; |
| 436 | goto is_expression; |
| 437 | } else { |
| 438 | goto is_float; |
| 439 | } |
H. Peter Anvin | 518df30 | 2008-06-14 16:53:48 -0700 | [diff] [blame] | 440 | } else if (i == TOKEN_FLOAT) { |
Cyrill Gorcunov | bafd877 | 2009-10-31 20:02:14 +0300 | [diff] [blame] | 441 | is_float: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 442 | eop->type = EOT_DB_STRING; |
| 443 | result->eops_float = true; |
Cyrill Gorcunov | bafd877 | 2009-10-31 20:02:14 +0300 | [diff] [blame] | 444 | |
| 445 | eop->stringlen = idata_bytes(result->opcode); |
| 446 | if (eop->stringlen > 16) { |
| 447 | nasm_error(ERR_NONFATAL, "floating-point constant" |
| 448 | " encountered in DY instruction"); |
| 449 | eop->stringlen = 0; |
| 450 | } else if (eop->stringlen < 1) { |
| 451 | nasm_error(ERR_NONFATAL, "floating-point constant" |
| 452 | " encountered in unknown instruction"); |
| 453 | /* |
| 454 | * fix suggested by Pedro Gimeno... original line was: |
| 455 | * eop->type = EOT_NOTHING; |
| 456 | */ |
| 457 | eop->stringlen = 0; |
| 458 | } |
| 459 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 460 | eop = nasm_realloc(eop, sizeof(extop) + eop->stringlen); |
| 461 | tail = &eop->next; |
| 462 | *fixptr = eop; |
| 463 | eop->stringval = (char *)eop + sizeof(extop); |
| 464 | if (!eop->stringlen || |
| 465 | !float_const(tokval.t_charptr, sign, |
| 466 | (uint8_t *)eop->stringval, |
| 467 | eop->stringlen, nasm_error)) |
| 468 | eop->type = EOT_NOTHING; |
| 469 | i = stdscan(NULL, &tokval); /* eat the comma */ |
| 470 | } else { |
| 471 | /* anything else, assume it is an expression */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 472 | expr *value; |
H. Peter Anvin | 518df30 | 2008-06-14 16:53:48 -0700 | [diff] [blame] | 473 | |
Cyrill Gorcunov | bafd877 | 2009-10-31 20:02:14 +0300 | [diff] [blame] | 474 | is_expression: |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 475 | value = evaluate(stdscan, NULL, &tokval, NULL, |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 476 | critical, nasm_error, NULL); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 477 | i = tokval.t_type; |
| 478 | if (!value) { /* error in evaluator */ |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 479 | result->opcode = I_none; /* unrecoverable parse error: */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 480 | return result; /* ignore this instruction */ |
| 481 | } |
| 482 | if (is_unknown(value)) { |
| 483 | eop->type = EOT_DB_NUMBER; |
| 484 | eop->offset = 0; /* doesn't matter what we put */ |
| 485 | eop->segment = eop->wrt = NO_SEG; /* likewise */ |
| 486 | } else if (is_reloc(value)) { |
| 487 | eop->type = EOT_DB_NUMBER; |
| 488 | eop->offset = reloc_value(value); |
| 489 | eop->segment = reloc_seg(value); |
| 490 | eop->wrt = reloc_wrt(value); |
| 491 | } else { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 492 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 493 | "operand %d: expression is not simple" |
| 494 | " or relocatable", oper_num); |
| 495 | } |
| 496 | } |
H. Peter Anvin | 6768eb7 | 2002-04-30 20:52:26 +0000 | [diff] [blame] | 497 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 498 | /* |
| 499 | * We're about to call stdscan(), which will eat the |
| 500 | * comma that we're currently sitting on between |
| 501 | * arguments. However, we'd better check first that it |
| 502 | * _is_ a comma. |
| 503 | */ |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 504 | if (i == TOKEN_EOS) /* also could be EOL */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 505 | break; |
| 506 | if (i != ',') { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 507 | nasm_error(ERR_NONFATAL, "comma expected after operand %d", |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 508 | oper_num); |
| 509 | result->opcode = I_none;/* unrecoverable parse error: */ |
| 510 | return result; /* ignore this instruction */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 511 | } |
| 512 | } |
H. Peter Anvin | d7ed89e | 2002-04-30 20:52:08 +0000 | [diff] [blame] | 513 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 514 | if (result->opcode == I_INCBIN) { |
| 515 | /* |
| 516 | * Correct syntax for INCBIN is that there should be |
| 517 | * one string operand, followed by one or two numeric |
| 518 | * operands. |
| 519 | */ |
| 520 | if (!result->eops || result->eops->type != EOT_DB_STRING) |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 521 | nasm_error(ERR_NONFATAL, "`incbin' expects a file name"); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 522 | else if (result->eops->next && |
| 523 | result->eops->next->type != EOT_DB_NUMBER) |
Victor van den Elzen | 15bb233 | 2009-08-11 02:10:16 +0200 | [diff] [blame] | 524 | nasm_error(ERR_NONFATAL, "`incbin': second parameter is" |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 525 | " non-numeric"); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 526 | else if (result->eops->next && result->eops->next->next && |
| 527 | result->eops->next->next->type != EOT_DB_NUMBER) |
Victor van den Elzen | 15bb233 | 2009-08-11 02:10:16 +0200 | [diff] [blame] | 528 | nasm_error(ERR_NONFATAL, "`incbin': third parameter is" |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 529 | " non-numeric"); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 530 | else if (result->eops->next && result->eops->next->next && |
| 531 | result->eops->next->next->next) |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 532 | nasm_error(ERR_NONFATAL, |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 533 | "`incbin': more than three parameters"); |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 534 | else |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 535 | return result; |
| 536 | /* |
| 537 | * If we reach here, one of the above errors happened. |
| 538 | * Throw the instruction away. |
| 539 | */ |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 540 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 541 | return result; |
| 542 | } else /* DB ... */ if (oper_num == 0) |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 543 | nasm_error(ERR_WARNING | ERR_PASS1, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 544 | "no operand for data declaration"); |
| 545 | else |
| 546 | result->operands = oper_num; |
H. Peter Anvin | d7ed89e | 2002-04-30 20:52:08 +0000 | [diff] [blame] | 547 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 548 | return result; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 549 | } |
| 550 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 551 | /* |
| 552 | * Now we begin to parse the operands. There may be up to four |
| 553 | * of these, separated by commas, and terminated by a zero token. |
| 554 | */ |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 555 | |
H. Peter Anvin | 8f94f98 | 2007-09-17 16:31:33 -0700 | [diff] [blame] | 556 | for (operand = 0; operand < MAX_OPERANDS; operand++) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 557 | expr *value; /* used most of the time */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 558 | int mref; /* is this going to be a memory ref? */ |
| 559 | int bracket; /* is it a [] mref, or a & mref? */ |
| 560 | int setsize = 0; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 561 | |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 562 | result->oprs[operand].disp_size = 0; /* have to zero this whatever */ |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 563 | result->oprs[operand].eaflags = 0; /* and this */ |
| 564 | result->oprs[operand].opflags = 0; |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 565 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 566 | i = stdscan(NULL, &tokval); |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 567 | if (i == TOKEN_EOS) |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 568 | break; /* end of operands: get out of here */ |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 569 | else if (first && i == ':') { |
| 570 | insn_is_label = true; |
| 571 | goto restart_parse; |
| 572 | } |
| 573 | first = false; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 574 | result->oprs[operand].type = 0; /* so far, no override */ |
| 575 | while (i == TOKEN_SPECIAL) { /* size specifiers */ |
| 576 | switch ((int)tokval.t_integer) { |
| 577 | case S_BYTE: |
| 578 | if (!setsize) /* we want to use only the first */ |
| 579 | result->oprs[operand].type |= BITS8; |
| 580 | setsize = 1; |
| 581 | break; |
| 582 | case S_WORD: |
| 583 | if (!setsize) |
| 584 | result->oprs[operand].type |= BITS16; |
| 585 | setsize = 1; |
| 586 | break; |
| 587 | case S_DWORD: |
| 588 | case S_LONG: |
| 589 | if (!setsize) |
| 590 | result->oprs[operand].type |= BITS32; |
| 591 | setsize = 1; |
| 592 | break; |
| 593 | case S_QWORD: |
| 594 | if (!setsize) |
| 595 | result->oprs[operand].type |= BITS64; |
| 596 | setsize = 1; |
| 597 | break; |
| 598 | case S_TWORD: |
| 599 | if (!setsize) |
| 600 | result->oprs[operand].type |= BITS80; |
| 601 | setsize = 1; |
| 602 | break; |
H. Peter Anvin | 41c9f6f | 2007-09-18 13:01:32 -0700 | [diff] [blame] | 603 | case S_OWORD: |
| 604 | if (!setsize) |
| 605 | result->oprs[operand].type |= BITS128; |
| 606 | setsize = 1; |
| 607 | break; |
H. Peter Anvin | dfb9180 | 2008-05-20 11:43:53 -0700 | [diff] [blame] | 608 | case S_YWORD: |
| 609 | if (!setsize) |
| 610 | result->oprs[operand].type |= BITS256; |
| 611 | setsize = 1; |
| 612 | break; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 613 | case S_TO: |
| 614 | result->oprs[operand].type |= TO; |
| 615 | break; |
| 616 | case S_STRICT: |
| 617 | result->oprs[operand].type |= STRICT; |
| 618 | break; |
| 619 | case S_FAR: |
| 620 | result->oprs[operand].type |= FAR; |
| 621 | break; |
| 622 | case S_NEAR: |
| 623 | result->oprs[operand].type |= NEAR; |
| 624 | break; |
| 625 | case S_SHORT: |
| 626 | result->oprs[operand].type |= SHORT; |
| 627 | break; |
| 628 | default: |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 629 | nasm_error(ERR_NONFATAL, "invalid operand size specification"); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 630 | } |
| 631 | i = stdscan(NULL, &tokval); |
| 632 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 633 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 634 | if (i == '[' || i == '&') { /* memory reference */ |
H. Peter Anvin | 6867acc | 2007-10-10 14:58:45 -0700 | [diff] [blame] | 635 | mref = true; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 636 | bracket = (i == '['); |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 637 | i = stdscan(NULL, &tokval); /* then skip the colon */ |
| 638 | while (i == TOKEN_SPECIAL || i == TOKEN_PREFIX) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 639 | process_size_override(result, operand); |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 640 | i = stdscan(NULL, &tokval); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 641 | } |
| 642 | } else { /* immediate operand, or register */ |
H. Peter Anvin | 6867acc | 2007-10-10 14:58:45 -0700 | [diff] [blame] | 643 | mref = false; |
| 644 | bracket = false; /* placate optimisers */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 645 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 646 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 647 | if ((result->oprs[operand].type & FAR) && !mref && |
| 648 | result->opcode != I_JMP && result->opcode != I_CALL) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 649 | nasm_error(ERR_NONFATAL, "invalid use of FAR operand specifier"); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 650 | } |
Debbie Wiles | 63b53f7 | 2002-06-04 19:31:24 +0000 | [diff] [blame] | 651 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 652 | value = evaluate(stdscan, NULL, &tokval, |
| 653 | &result->oprs[operand].opflags, |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 654 | critical, nasm_error, &hints); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 655 | i = tokval.t_type; |
| 656 | if (result->oprs[operand].opflags & OPFLAG_FORWARD) { |
H. Peter Anvin | 6867acc | 2007-10-10 14:58:45 -0700 | [diff] [blame] | 657 | result->forw_ref = true; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 658 | } |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 659 | if (!value) { /* nasm_error in evaluator */ |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 660 | result->opcode = I_none; /* unrecoverable parse error: */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 661 | return result; /* ignore this instruction */ |
| 662 | } |
| 663 | if (i == ':' && mref) { /* it was seg:offset */ |
| 664 | /* |
| 665 | * Process the segment override. |
| 666 | */ |
Cyrill Gorcunov | 5abbe37 | 2011-08-28 18:49:00 +0400 | [diff] [blame] | 667 | if (value[1].type != 0 || |
| 668 | value->value != 1 || |
| 669 | !IS_SREG(value->type)) |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 670 | nasm_error(ERR_NONFATAL, "invalid segment override"); |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 671 | else if (result->prefixes[PPS_SEG]) |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 672 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 673 | "instruction has conflicting segment overrides"); |
H. Peter Anvin | 99c4ecd | 2007-08-28 23:06:00 +0000 | [diff] [blame] | 674 | else { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 675 | result->prefixes[PPS_SEG] = value->type; |
Cyrill Gorcunov | 5abbe37 | 2011-08-28 18:49:00 +0400 | [diff] [blame] | 676 | if (IS_FSGS(value->type)) |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 677 | result->oprs[operand].eaflags |= EAF_FSGS; |
| 678 | } |
H. Peter Anvin | 76690a1 | 2002-04-30 20:52:49 +0000 | [diff] [blame] | 679 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 680 | i = stdscan(NULL, &tokval); /* then skip the colon */ |
H. Peter Anvin | de4b89b | 2007-10-01 15:41:25 -0700 | [diff] [blame] | 681 | while (i == TOKEN_SPECIAL || i == TOKEN_PREFIX) { |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 682 | process_size_override(result, operand); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 683 | i = stdscan(NULL, &tokval); |
| 684 | } |
| 685 | value = evaluate(stdscan, NULL, &tokval, |
| 686 | &result->oprs[operand].opflags, |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 687 | critical, nasm_error, &hints); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 688 | i = tokval.t_type; |
| 689 | if (result->oprs[operand].opflags & OPFLAG_FORWARD) { |
H. Peter Anvin | 6867acc | 2007-10-10 14:58:45 -0700 | [diff] [blame] | 690 | result->forw_ref = true; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 691 | } |
| 692 | /* and get the offset */ |
| 693 | if (!value) { /* but, error in evaluator */ |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 694 | result->opcode = I_none; /* unrecoverable parse error: */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 695 | return result; /* ignore this instruction */ |
| 696 | } |
| 697 | } |
Victor van den Elzen | 02846d3 | 2009-06-23 03:47:07 +0200 | [diff] [blame] | 698 | |
H. Peter Anvin | 552bc2c | 2009-06-23 11:34:42 -0700 | [diff] [blame] | 699 | recover = false; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 700 | if (mref && bracket) { /* find ] at the end */ |
| 701 | if (i != ']') { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 702 | nasm_error(ERR_NONFATAL, "parser: expecting ]"); |
Victor van den Elzen | 02846d3 | 2009-06-23 03:47:07 +0200 | [diff] [blame] | 703 | recover = true; |
| 704 | } else { /* we got the required ] */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 705 | i = stdscan(NULL, &tokval); |
Victor van den Elzen | 02846d3 | 2009-06-23 03:47:07 +0200 | [diff] [blame] | 706 | if (i != 0 && i != ',') { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 707 | nasm_error(ERR_NONFATAL, "comma or end of line expected"); |
Victor van den Elzen | 02846d3 | 2009-06-23 03:47:07 +0200 | [diff] [blame] | 708 | recover = true; |
| 709 | } |
| 710 | } |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 711 | } else { /* immediate operand */ |
| 712 | if (i != 0 && i != ',' && i != ':') { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 713 | nasm_error(ERR_NONFATAL, "comma, colon or end of line expected"); |
Victor van den Elzen | 02846d3 | 2009-06-23 03:47:07 +0200 | [diff] [blame] | 714 | recover = true; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 715 | } else if (i == ':') { |
| 716 | result->oprs[operand].type |= COLON; |
| 717 | } |
| 718 | } |
Victor van den Elzen | 02846d3 | 2009-06-23 03:47:07 +0200 | [diff] [blame] | 719 | if (recover) { |
| 720 | do { /* error recovery */ |
| 721 | i = stdscan(NULL, &tokval); |
| 722 | } while (i != 0 && i != ','); |
| 723 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 724 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 725 | /* |
| 726 | * now convert the exprs returned from evaluate() |
| 727 | * into operand descriptions... |
| 728 | */ |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 729 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 730 | if (mref) { /* it's a memory reference */ |
| 731 | expr *e = value; |
| 732 | int b, i, s; /* basereg, indexreg, scale */ |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 733 | int64_t o; /* offset */ |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 734 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 735 | b = i = -1, o = s = 0; |
| 736 | result->oprs[operand].hintbase = hints.base; |
| 737 | result->oprs[operand].hinttype = hints.type; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 738 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 739 | if (e->type && e->type <= EXPR_REG_END) { /* this bit's a register */ |
| 740 | if (e->value == 1) /* in fact it can be basereg */ |
| 741 | b = e->type; |
| 742 | else /* no, it has to be indexreg */ |
| 743 | i = e->type, s = e->value; |
| 744 | e++; |
| 745 | } |
| 746 | if (e->type && e->type <= EXPR_REG_END) { /* it's a 2nd register */ |
| 747 | if (b != -1) /* If the first was the base, ... */ |
| 748 | i = e->type, s = e->value; /* second has to be indexreg */ |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 749 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 750 | else if (e->value != 1) { /* If both want to be index */ |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 751 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 752 | "beroset-p-592-invalid effective address"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 753 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 754 | return result; |
| 755 | } else |
| 756 | b = e->type; |
| 757 | e++; |
| 758 | } |
| 759 | if (e->type != 0) { /* is there an offset? */ |
| 760 | if (e->type <= EXPR_REG_END) { /* in fact, is there an error? */ |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 761 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 762 | "beroset-p-603-invalid effective address"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 763 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 764 | return result; |
| 765 | } else { |
| 766 | if (e->type == EXPR_UNKNOWN) { |
Victor van den Elzen | 154e592 | 2009-02-25 17:32:00 +0100 | [diff] [blame] | 767 | result->oprs[operand].opflags |= OPFLAG_UNKNOWN; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 768 | o = 0; /* doesn't matter what */ |
| 769 | result->oprs[operand].wrt = NO_SEG; /* nor this */ |
| 770 | result->oprs[operand].segment = NO_SEG; /* or this */ |
| 771 | while (e->type) |
| 772 | e++; /* go to the end of the line */ |
| 773 | } else { |
| 774 | if (e->type == EXPR_SIMPLE) { |
| 775 | o = e->value; |
| 776 | e++; |
| 777 | } |
| 778 | if (e->type == EXPR_WRT) { |
| 779 | result->oprs[operand].wrt = e->value; |
| 780 | e++; |
| 781 | } else |
| 782 | result->oprs[operand].wrt = NO_SEG; |
| 783 | /* |
| 784 | * Look for a segment base type. |
| 785 | */ |
| 786 | if (e->type && e->type < EXPR_SEGBASE) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 787 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 788 | "beroset-p-630-invalid effective address"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 789 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 790 | return result; |
| 791 | } |
| 792 | while (e->type && e->value == 0) |
| 793 | e++; |
| 794 | if (e->type && e->value != 1) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 795 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 796 | "beroset-p-637-invalid effective address"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 797 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 798 | return result; |
| 799 | } |
| 800 | if (e->type) { |
| 801 | result->oprs[operand].segment = |
| 802 | e->type - EXPR_SEGBASE; |
| 803 | e++; |
| 804 | } else |
| 805 | result->oprs[operand].segment = NO_SEG; |
| 806 | while (e->type && e->value == 0) |
| 807 | e++; |
| 808 | if (e->type) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 809 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 810 | "beroset-p-650-invalid effective address"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 811 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 812 | return result; |
| 813 | } |
| 814 | } |
| 815 | } |
| 816 | } else { |
| 817 | o = 0; |
| 818 | result->oprs[operand].wrt = NO_SEG; |
| 819 | result->oprs[operand].segment = NO_SEG; |
| 820 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 821 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 822 | if (e->type != 0) { /* there'd better be nothing left! */ |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 823 | nasm_error(ERR_NONFATAL, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 824 | "beroset-p-663-invalid effective address"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 825 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 826 | return result; |
| 827 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 828 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 829 | /* It is memory, but it can match any r/m operand */ |
H. Peter Anvin | 0da6b58 | 2007-09-12 20:32:39 -0700 | [diff] [blame] | 830 | result->oprs[operand].type |= MEMORY_ANY; |
H. Peter Anvin | 99c4ecd | 2007-08-28 23:06:00 +0000 | [diff] [blame] | 831 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 832 | if (b == -1 && (i == -1 || s == 0)) { |
| 833 | int is_rel = globalbits == 64 && |
| 834 | !(result->oprs[operand].eaflags & EAF_ABS) && |
| 835 | ((globalrel && |
| 836 | !(result->oprs[operand].eaflags & EAF_FSGS)) || |
| 837 | (result->oprs[operand].eaflags & EAF_REL)); |
H. Peter Anvin | 99c4ecd | 2007-08-28 23:06:00 +0000 | [diff] [blame] | 838 | |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 839 | result->oprs[operand].type |= is_rel ? IP_REL : MEM_OFFS; |
| 840 | } |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 841 | result->oprs[operand].basereg = b; |
| 842 | result->oprs[operand].indexreg = i; |
| 843 | result->oprs[operand].scale = s; |
| 844 | result->oprs[operand].offset = o; |
| 845 | } else { /* it's not a memory reference */ |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 846 | if (is_just_unknown(value)) { /* it's immediate but unknown */ |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 847 | result->oprs[operand].type |= IMMEDIATE; |
| 848 | result->oprs[operand].opflags |= OPFLAG_UNKNOWN; |
| 849 | result->oprs[operand].offset = 0; /* don't care */ |
| 850 | result->oprs[operand].segment = NO_SEG; /* don't care again */ |
| 851 | result->oprs[operand].wrt = NO_SEG; /* still don't care */ |
Victor van den Elzen | 154e592 | 2009-02-25 17:32:00 +0100 | [diff] [blame] | 852 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 853 | if(optimizing >= 0 && !(result->oprs[operand].type & STRICT)) { |
Cyrill Gorcunov | 210c101 | 2009-11-01 10:24:48 +0300 | [diff] [blame] | 854 | /* Be optimistic */ |
H. Peter Anvin | 9df0107 | 2010-08-24 14:08:16 -0700 | [diff] [blame] | 855 | result->oprs[operand].type |= |
Ben Rudiak-Gould | 4e8396b | 2013-03-01 10:28:32 +0400 | [diff] [blame^] | 856 | UNITY | SBYTEWORD | SBYTEDWORD | UDWORD | SDWORD; |
Cyrill Gorcunov | 210c101 | 2009-11-01 10:24:48 +0300 | [diff] [blame] | 857 | } |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 858 | } else if (is_reloc(value)) { /* it's immediate */ |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 859 | result->oprs[operand].type |= IMMEDIATE; |
| 860 | result->oprs[operand].offset = reloc_value(value); |
| 861 | result->oprs[operand].segment = reloc_seg(value); |
| 862 | result->oprs[operand].wrt = reloc_wrt(value); |
| 863 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 864 | if (is_simple(value)) { |
Ben Rudiak-Gould | 4e8396b | 2013-03-01 10:28:32 +0400 | [diff] [blame^] | 865 | uint64_t n = reloc_value(value); |
| 866 | if (n == 1) |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 867 | result->oprs[operand].type |= UNITY; |
| 868 | if (optimizing >= 0 && |
| 869 | !(result->oprs[operand].type & STRICT)) { |
Ben Rudiak-Gould | 4e8396b | 2013-03-01 10:28:32 +0400 | [diff] [blame^] | 870 | if ((uint32_t) (n + 128) <= 255) |
| 871 | result->oprs[operand].type |= SBYTEDWORD; |
| 872 | if ((uint16_t) (n + 128) <= 255) |
| 873 | result->oprs[operand].type |= SBYTEWORD; |
| 874 | if (n <= 0xFFFFFFFF) |
| 875 | result->oprs[operand].type |= UDWORD; |
| 876 | if (n + 0x80000000 <= 0xFFFFFFFF) |
| 877 | result->oprs[operand].type |= SDWORD; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 878 | } |
| 879 | } |
| 880 | } else { /* it's a register */ |
Cyrill Gorcunov | 167917a | 2012-09-10 00:19:12 +0400 | [diff] [blame] | 881 | opflags_t rs; |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 882 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 883 | if (value->type >= EXPR_SIMPLE || value->value != 1) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 884 | nasm_error(ERR_NONFATAL, "invalid operand type"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 885 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 886 | return result; |
| 887 | } |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 888 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 889 | /* |
| 890 | * check that its only 1 register, not an expression... |
| 891 | */ |
| 892 | for (i = 1; value[i].type; i++) |
| 893 | if (value[i].value) { |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 894 | nasm_error(ERR_NONFATAL, "invalid operand type"); |
Cyrill Gorcunov | 3757524 | 2009-08-16 12:00:01 +0400 | [diff] [blame] | 895 | result->opcode = I_none; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 896 | return result; |
| 897 | } |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 898 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 899 | /* clear overrides, except TO which applies to FPU regs */ |
| 900 | if (result->oprs[operand].type & ~TO) { |
| 901 | /* |
| 902 | * we want to produce a warning iff the specified size |
| 903 | * is different from the register size |
| 904 | */ |
H. Peter Anvin | 6822214 | 2007-11-18 22:18:09 -0800 | [diff] [blame] | 905 | rs = result->oprs[operand].type & SIZE_MASK; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 906 | } else |
H. Peter Anvin | 6822214 | 2007-11-18 22:18:09 -0800 | [diff] [blame] | 907 | rs = 0; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 908 | |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 909 | result->oprs[operand].type &= TO; |
| 910 | result->oprs[operand].type |= REGISTER; |
| 911 | result->oprs[operand].type |= nasm_reg_flags[value->type]; |
| 912 | result->oprs[operand].basereg = value->type; |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 913 | |
H. Peter Anvin | 6822214 | 2007-11-18 22:18:09 -0800 | [diff] [blame] | 914 | if (rs && (result->oprs[operand].type & SIZE_MASK) != rs) |
H. Peter Anvin | 00444ae | 2009-07-18 18:49:55 -0700 | [diff] [blame] | 915 | nasm_error(ERR_WARNING | ERR_PASS1, |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 916 | "register size specification ignored"); |
| 917 | } |
| 918 | } |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 919 | } |
| 920 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 921 | result->operands = operand; /* set operand count */ |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 922 | |
Cyrill Gorcunov | c250950 | 2009-10-14 15:36:45 +0400 | [diff] [blame] | 923 | /* clear remaining operands */ |
| 924 | while (operand < MAX_OPERANDS) |
| 925 | result->oprs[operand++].type = 0; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 926 | |
| 927 | /* |
H. Peter Anvin | dfb9180 | 2008-05-20 11:43:53 -0700 | [diff] [blame] | 928 | * Transform RESW, RESD, RESQ, REST, RESO, RESY into RESB. |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 929 | */ |
| 930 | switch (result->opcode) { |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 931 | case I_RESW: |
| 932 | result->opcode = I_RESB; |
| 933 | result->oprs[0].offset *= 2; |
| 934 | break; |
| 935 | case I_RESD: |
| 936 | result->opcode = I_RESB; |
| 937 | result->oprs[0].offset *= 4; |
| 938 | break; |
| 939 | case I_RESQ: |
| 940 | result->opcode = I_RESB; |
| 941 | result->oprs[0].offset *= 8; |
| 942 | break; |
| 943 | case I_REST: |
| 944 | result->opcode = I_RESB; |
| 945 | result->oprs[0].offset *= 10; |
| 946 | break; |
H. Peter Anvin | 41c9f6f | 2007-09-18 13:01:32 -0700 | [diff] [blame] | 947 | case I_RESO: |
| 948 | result->opcode = I_RESB; |
| 949 | result->oprs[0].offset *= 16; |
| 950 | break; |
H. Peter Anvin | dfb9180 | 2008-05-20 11:43:53 -0700 | [diff] [blame] | 951 | case I_RESY: |
| 952 | result->opcode = I_RESB; |
| 953 | result->oprs[0].offset *= 32; |
| 954 | break; |
H. Peter Anvin | 16b0a33 | 2007-09-12 20:27:41 -0700 | [diff] [blame] | 955 | default: |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 956 | break; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 957 | } |
| 958 | |
| 959 | return result; |
| 960 | } |
| 961 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 962 | static int is_comma_next(void) |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 963 | { |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 964 | struct tokenval tv; |
Keith Kanios | a6dfa78 | 2007-04-13 16:47:53 +0000 | [diff] [blame] | 965 | char *p; |
H. Peter Anvin | 76690a1 | 2002-04-30 20:52:49 +0000 | [diff] [blame] | 966 | int i; |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 967 | |
Cyrill Gorcunov | 917117f | 2009-10-29 23:09:18 +0300 | [diff] [blame] | 968 | p = stdscan_get(); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 969 | i = stdscan(NULL, &tv); |
Cyrill Gorcunov | 917117f | 2009-10-29 23:09:18 +0300 | [diff] [blame] | 970 | stdscan_set(p); |
Cyrill Gorcunov | 447e20c | 2011-08-28 18:02:31 +0400 | [diff] [blame] | 971 | |
H. Peter Anvin | 76690a1 | 2002-04-30 20:52:49 +0000 | [diff] [blame] | 972 | return (i == ',' || i == ';' || !i); |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 973 | } |
| 974 | |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 975 | void cleanup_insn(insn * i) |
H. Peter Anvin | eba20a7 | 2002-04-30 20:53:55 +0000 | [diff] [blame] | 976 | { |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 977 | extop *e; |
| 978 | |
H. Peter Anvin | 2aa7739 | 2008-06-15 17:39:45 -0700 | [diff] [blame] | 979 | while ((e = i->eops)) { |
| 980 | i->eops = e->next; |
Cyrill Gorcunov | cfbcddf | 2009-10-31 20:05:32 +0300 | [diff] [blame] | 981 | if (e->type == EOT_DB_STRING_FREE) |
| 982 | nasm_free(e->stringval); |
H. Peter Anvin | e2c8018 | 2005-01-15 22:15:51 +0000 | [diff] [blame] | 983 | nasm_free(e); |
H. Peter Anvin | ea6e34d | 2002-04-30 20:51:32 +0000 | [diff] [blame] | 984 | } |
| 985 | } |