LWTools Old Repo: lwasm/pass1.c annotate

annotate lwasm/pass1.c @ 370:6b33faa21a0a

Debugging output and bugfixing pass 0

author	lost@starbug
date	Tue, 20 Apr 2010 21:59:58 -0600
parents	d96c30e60ddf
children	90de73ba0cac

rev	line source
332 67224d8d1024 Basic input layer works lost parents: diff changeset	1 /*
67224d8d1024 Basic input layer works lost parents: diff changeset	2 pass1.c
67224d8d1024 Basic input layer works lost parents: diff changeset	3
67224d8d1024 Basic input layer works lost parents: diff changeset	4 Copyright © 2010 William Astle
67224d8d1024 Basic input layer works lost parents: diff changeset	5
67224d8d1024 Basic input layer works lost parents: diff changeset	6 This file is part of LWTOOLS.
67224d8d1024 Basic input layer works lost parents: diff changeset	7
67224d8d1024 Basic input layer works lost parents: diff changeset	8 LWTOOLS is free software: you can redistribute it and/or modify it under the
67224d8d1024 Basic input layer works lost parents: diff changeset	9 terms of the GNU General Public License as published by the Free Software
67224d8d1024 Basic input layer works lost parents: diff changeset	10 Foundation, either version 3 of the License, or (at your option) any later
67224d8d1024 Basic input layer works lost parents: diff changeset	11 version.
67224d8d1024 Basic input layer works lost parents: diff changeset	12
67224d8d1024 Basic input layer works lost parents: diff changeset	13 This program is distributed in the hope that it will be useful, but WITHOUT
67224d8d1024 Basic input layer works lost parents: diff changeset	14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
67224d8d1024 Basic input layer works lost parents: diff changeset	15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
67224d8d1024 Basic input layer works lost parents: diff changeset	16 more details.
67224d8d1024 Basic input layer works lost parents: diff changeset	17
67224d8d1024 Basic input layer works lost parents: diff changeset	18 You should have received a copy of the GNU General Public License along with
67224d8d1024 Basic input layer works lost parents: diff changeset	19 this program. If not, see <http://www.gnu.org/licenses/>.
67224d8d1024 Basic input layer works lost parents: diff changeset	20 */
67224d8d1024 Basic input layer works lost parents: diff changeset	21
67224d8d1024 Basic input layer works lost parents: diff changeset	22 #include <config.h>
67224d8d1024 Basic input layer works lost parents: diff changeset	23
67224d8d1024 Basic input layer works lost parents: diff changeset	24 #include <stdio.h>
346 a82c55070624 Added expression parsing infrastructure and misc fixes lost@starbug parents: 345 diff changeset	25 #include <string.h>
332 67224d8d1024 Basic input layer works lost parents: diff changeset	26
67224d8d1024 Basic input layer works lost parents: diff changeset	27 #include <lw_alloc.h>
342 7b4123dce741 Added basic symbol registration lost@starbug parents: 340 diff changeset	28 #include <lw_string.h>
332 67224d8d1024 Basic input layer works lost parents: diff changeset	29
67224d8d1024 Basic input layer works lost parents: diff changeset	30 #include "lwasm.h"
342 7b4123dce741 Added basic symbol registration lost@starbug parents: 340 diff changeset	31 #include "instab.h"
332 67224d8d1024 Basic input layer works lost parents: diff changeset	32 #include "input.h"
67224d8d1024 Basic input layer works lost parents: diff changeset	33
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	34 /*
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	35 pass 1: parse the lines
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	36
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	37 line format:
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	38
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	39 [<symbol>] <opcode> <operand>[ <comment>]
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	40
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	41 If <symbol> is followed by a :, whitespace may precede the symbol
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	42
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	43 A line may optionally start with a number which must not be preceded by
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	44 white space and must be followed by a single whitespace character. After
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	45 that whitespace character, the line is parsed as if it had no line number.
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	46
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	47 */
332 67224d8d1024 Basic input layer works lost parents: diff changeset	48 void do_pass1(asmstate_t *as)
67224d8d1024 Basic input layer works lost parents: diff changeset	49 {
67224d8d1024 Basic input layer works lost parents: diff changeset	50 char *line;
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	51 line_t *cl;
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	52 char *p1;
342 7b4123dce741 Added basic symbol registration lost@starbug parents: 340 diff changeset	53 int stspace;
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	54 char tok, sym;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	55 int opnum;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	56
332 67224d8d1024 Basic input layer works lost parents: diff changeset	57 for (;;)
67224d8d1024 Basic input layer works lost parents: diff changeset	58 {
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	59 sym = NULL;
332 67224d8d1024 Basic input layer works lost parents: diff changeset	60 line = input_readline(as);
67224d8d1024 Basic input layer works lost parents: diff changeset	61 if (!line)
67224d8d1024 Basic input layer works lost parents: diff changeset	62 break;
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	63 if (line[0] == 1 && line[1] == 1)
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	64 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	65 // special internal directive
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	66 // these DO NOT appear in the output anywhere
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	67 // they are generated by the parser to pass information
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	68 // forward
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	69 for (p1 = line + 2; p1 && !isspace(p1); p1++)
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	70 /* do nothing */ ;
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	71 *p1++ = '\0';
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	72 if (!strcmp(line + 2, "SETCONTEXT"))
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	73 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	74 as -> context = strtol(p1, NULL, 10);
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	75 }
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	76 lw_free(line);
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	77 continue;
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	78 }
332 67224d8d1024 Basic input layer works lost parents: diff changeset	79 printf("%s\n", line);
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	80
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	81 cl = lw_alloc(sizeof(line_t));
346 a82c55070624 Added expression parsing infrastructure and misc fixes lost@starbug parents: 345 diff changeset	82 memset(cl, 0, sizeof(line_t));
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	83 cl -> prev = as -> line_tail;
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	84 cl -> insn = -1;
346 a82c55070624 Added expression parsing infrastructure and misc fixes lost@starbug parents: 345 diff changeset	85 cl -> as = as;
354 60568b123281 Added os9 opcodes and ERROR lost@starbug parents: 351 diff changeset	86 cl -> inmod = as -> inmod;
60568b123281 Added os9 opcodes and ERROR lost@starbug parents: 351 diff changeset	87 cl -> csect = as -> csect;
360 7d91ab7ac7d6 Indexed stage 2; set line structure to track pragmas in effect for that line lost@starbug parents: 354 diff changeset	88 cl -> pragmas = as -> pragmas;
363 d96c30e60ddf Added pass2 and various supporting logic including symbol lookups lost@starbug parents: 360 diff changeset	89 cl -> context = as -> context;
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	90 if (!as -> line_tail)
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	91 {
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	92 as -> line_head = cl;
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	93 cl -> addr = lw_expr_build(lw_expr_type_int, 0);
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	94 }
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	95 else
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	96 {
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	97 lw_expr_t te;
351 4dba8c7e242c conditional pseudo ops added lost@starbug parents: 347 diff changeset	98
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	99 as -> line_tail -> next = cl;
351 4dba8c7e242c conditional pseudo ops added lost@starbug parents: 347 diff changeset	100
4dba8c7e242c conditional pseudo ops added lost@starbug parents: 347 diff changeset	101 // set the line address
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	102 te = lw_expr_build(lw_expr_type_special, lwasm_expr_linelen, cl -> prev);
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	103 cl -> addr = lw_expr_build(lw_expr_type_oper, lw_expr_oper_plus, cl -> prev -> addr, te);
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	104 lw_expr_destroy(te);
346 a82c55070624 Added expression parsing infrastructure and misc fixes lost@starbug parents: 345 diff changeset	105 lw_expr_simplify(cl -> addr, as);
351 4dba8c7e242c conditional pseudo ops added lost@starbug parents: 347 diff changeset	106
4dba8c7e242c conditional pseudo ops added lost@starbug parents: 347 diff changeset	107 // carry DP value forward
4dba8c7e242c conditional pseudo ops added lost@starbug parents: 347 diff changeset	108 cl -> dpval = cl -> prev -> dpval;
337 04c80c51b16a Checkpoint development lost parents: 332 diff changeset	109 }
04c80c51b16a Checkpoint development lost parents: 332 diff changeset	110 as -> line_tail = cl;
346 a82c55070624 Added expression parsing infrastructure and misc fixes lost@starbug parents: 345 diff changeset	111 as -> cl = cl;
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	112 // blank lines don't count for anything
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	113 // except a local symbol context break
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	114 if (!*line)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	115 {
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	116 as -> context = lwasm_next_context(as);
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	117 goto nextline;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	118 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	119
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	120 // skip comments
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	121 // commends do not create a context break
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	122 if (line == '' \|\| line == ';' \|\| line == '#')
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	123 goto nextline;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	124
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	125 p1 = line;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	126 if (isdigit(*p1))
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	127 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	128 // skip line number
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	129 while (p1 && isdigit(p1))
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	130 p1++;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	131 if (!p1 && !isspace(p1))
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	132 p1 = line;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	133 else if (p1 && isspace(p1))
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	134 p1++;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	135 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	136
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	137 // blank line - context break
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	138 if (!*p1)
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	139 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	140 as -> context = lwasm_next_context(as);
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	141 goto nextline;
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	142 }
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	143
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	144 // comment - no context break
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	145 if (p1 == '' \|\| p1 == ';' \|\| p1 == '#')
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	146 goto nextline;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	147
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	148 if (isspace(*p1))
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	149 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	150 for (; p1 && isspace(p1); p1++)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	151 /* do nothing */ ;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	152 stspace = 1;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	153 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	154 else
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	155 stspace = 0;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	156
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	157 if (p1 == '' \|\| p1 == ';' \|\| p1 == '#')
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	158 goto nextline;
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	159 if (!*p1)
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	160 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	161 // nothing but whitespace - context break
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	162 as -> context = lwasm_next_context(as);
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	163 goto nextline;
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	164 }
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	165
342 7b4123dce741 Added basic symbol registration lost@starbug parents: 340 diff changeset	166 // find the end of the first token
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	167 for (tok = p1; p1 && !isspace(p1) && *p1 != ':'; p1++)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	168 /* do nothing */ ;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	169
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	170 if (*p1 == ':' \|\| stspace == 0)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	171 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	172 // have a symbol here
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	173 sym = lw_strndup(tok, p1 - tok);
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	174 if (*p1 == ':')
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	175 p1++;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	176 for (; p1 && isspace(p1); p1++)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	177 /* do nothing */ ;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	178
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	179 for (tok = p1; p1 && !isspace(p1); p1++)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	180 /* do nothing */ ;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	181 }
370 6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	182 if (sym)
6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	183 cl -> sym = lw_strdup(sym);
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	184 cl -> symset = 0;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	185
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	186 // tok points to the opcode for the line or NUL if none
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	187 if (*tok)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	188 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	189 // look up operation code
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	190 sym = lw_strndup(tok, p1 - tok);
370 6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	191 for (; p1 && isspace(p1); p1++)
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	192 /* do nothing */ ;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	193
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	194 for (opnum = 0; instab[opnum].opcode; opnum++)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	195 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	196 if (!strcasecmp(instab[opnum].opcode, sym))
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	197 break;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	198 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	199
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	200 // p1 points to the start of the operand
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	201
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	202 // if we're inside a macro definition and not at ENDM,
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	203 // add the line to the macro definition and continue
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	204 if (as -> inmacro && !(instab[opnum].flags & lwasm_insn_endm))
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	205 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	206 add_macro_line(as, line);
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	207 goto linedone;
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	208 }
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	209
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	210 // if skipping a condition and the operation code doesn't
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	211 // operate within a condition (not a conditional)
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	212 // do nothing
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	213 if (as -> skipcond && !(instab[opnum].flags & lwasm_insn_cond))
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	214 goto linedone;
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	215
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	216 if (instab[opnum].opcode == NULL)
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	217 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	218 cl -> insn = -1;
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	219 if (tok != ';' && tok != '*')
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	220 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	221 // bad opcode; check for macro here
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	222 if (expand_macro(as, cl, &p1, sym) != 0)
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	223 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	224 // macro expansion failed
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	225 lwasm_register_error(as, cl, "Bad opcode");
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	226 }
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	227 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	228 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	229 else
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	230 {
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	231 cl -> insn = opnum;
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	232 // no parse func means operand doesn't matter
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	233 if (instab[opnum].parse)
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	234 {
346 a82c55070624 Added expression parsing infrastructure and misc fixes lost@starbug parents: 345 diff changeset	235 cl -> len = -1;
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	236 // call parse function
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	237 (instab[opnum].parse)(as, cl, &p1);
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	238
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	239 if (p1 && !isspace(p1))
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	240 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	241 // flag bad operand error
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	242 lwasm_register_error(as, cl, "Bad operand (%s)", p1);
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	243 }
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	244 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	245 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	246 }
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	247
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	248 linedone:
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	249 lw_free(sym);
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	250
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	251 if (!as -> skipcond && !as -> inmacro)
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	252 {
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	253 if (cl -> sym && cl -> symset == 0)
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	254 {
370 6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	255 printf("Register symbol %s:", cl -> sym);
6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	256 lw_expr_print(cl -> addr, stderr);
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	257 printf("\n");
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	258
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	259 // register symbol at line address
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	260 if (!register_symbol(as, cl, cl -> sym, cl -> addr, symbol_flag_none))
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	261 {
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	262 // symbol error
370 6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	263 // lwasm_register_error(as, cl, "Bad symbol '%s'", cl -> sym);
345 7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	264 }
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	265 }
7416c3f9c321 Basic macro processor ported forward; added context break handling for local symbols lost@starbug parents: 344 diff changeset	266
370 6b33faa21a0a Debugging output and bugfixing pass 0 lost@starbug parents: 363 diff changeset	267 lw_expr_print(cl -> addr, stderr);
342 7b4123dce741 Added basic symbol registration lost@starbug parents: 340 diff changeset	268 printf("\n");
340 1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	269 }
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	270
1a6fc6ebb31c Checkpoint lost parents: 337 diff changeset	271 nextline:
332 67224d8d1024 Basic input layer works lost parents: diff changeset	272 lw_free(line);
347 1649bc7bda5a Some data oriented pseudo ops added lost@starbug parents: 346 diff changeset	273
1649bc7bda5a Some data oriented pseudo ops added lost@starbug parents: 346 diff changeset	274 // if we've hit the "end" bit, finish out
1649bc7bda5a Some data oriented pseudo ops added lost@starbug parents: 346 diff changeset	275 if (as -> endseen)
1649bc7bda5a Some data oriented pseudo ops added lost@starbug parents: 346 diff changeset	276 return;
332 67224d8d1024 Basic input layer works lost parents: diff changeset	277 }
67224d8d1024 Basic input layer works lost parents: diff changeset	278 }

Mercurial > hg-old > index.cgi

annotate lwasm/pass1.c @ 370:6b33faa21a0a