LWTools Old Repo: src/lwasm.c annotate

annotate src/lwasm.c @ 37:538e15927776

Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes

author	lost
date	Sat, 03 Jan 2009 04:20:49 +0000
parents	9bd0fbfe7405
children	9bd584bb6296

rev	line source
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	1 /*
4 34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	2 lwasm.c
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	3 Copyright © 2008 William Astle
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	4
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	5 This file is part of LWASM.
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	6
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	7 LWASM is free software: you can redistribute it and/or modify it under the
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	8 terms of the GNU General Public License as published by the Free Software
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	9 Foundation, either version 3 of the License, or (at your option) any later
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	10 version.
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	11
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	12 This program is distributed in the hope that it will be useful, but WITHOUT
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	15 more details.
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	16
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	17 You should have received a copy of the GNU General Public License along with
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	18 this program. If not, see <http://www.gnu.org/licenses/>.
34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	19
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	20
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	21 Contains random functions used by the assembler
4 34568fab6058 Fixed package to include all required files; also added copyright preamble to all source files lost parents: 0 diff changeset	22 */
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	23
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	24 #define __lwasm_c_seen__
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	25
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	26 #include <stdarg.h>
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	27 #include <stdlib.h>
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	28 #include <stdio.h>
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	29
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	30 #include "lwasm.h"
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	31 #include "util.h"
37 538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	32 #include "expr.h"
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	33
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	34 int register_error(asmstate_t as, lwasm_line_t l, int pass, const char *fmt, ...)
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	35 {
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	36 lwasm_error_t *e;
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	37 va_list args;
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	38 char errbuff[1024];
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	39 int r;
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	40
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	41 if (as -> passnum != pass)
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	42 return;
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	43
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	44 va_start(args, fmt);
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	45
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	46 e = lwasm_alloc(sizeof(lwasm_error_t));
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	47
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	48 e -> next = l -> err;
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	49 l -> err = e;
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	50
57495da01900 Initial checking of LWASM lost parents: diff changeset	51 as -> errorcount++;
57495da01900 Initial checking of LWASM lost parents: diff changeset	52
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	53 r = vsnprintf(errbuff, 1024, fmt, args);
d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	54 e -> mess = lwasm_strdup(errbuff);
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	55
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	56 va_end(args);
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	57
26 d2e86babd958 Added error tracking infrastructure lost parents: 13 diff changeset	58 return r;
0 57495da01900 Initial checking of LWASM lost parents: diff changeset	59 }
27 f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	60
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	61 void lwasm_emit(asmstate_t as, lwasm_line_t l, int b)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	62 {
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	63 as -> addr += 1;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	64
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	65 if (as -> passnum == 1)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	66 return;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	67
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	68 fprintf(stderr, "FIXME: trying to emit code in pass 2 but not implemented.\n");
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	69 }
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	70
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	71 void lwasm_emitop(asmstate_t as, lwasm_line_t l, int o)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	72 {
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	73 if (o >= 0x100)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	74 lwasm_emit(as, l, o >> 8);
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	75 lwasm_emit(as, l, o & 0xff);
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	76 }
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	77
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	78 int lwasm_lookupreg2(const char reglist, char *str)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	79 {
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	80 int rval = 0;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	81
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	82 while (*reglist)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	83 {
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	84 if (toupper(*str) == reglist)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	85 {
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	86 // first char matches
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	87 if (reglist[1] == ' ' && !isalpha((str + 1)))
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	88 break;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	89 if (toupper((str + 1)) == reglist[1])
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	90 break;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	91 }
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	92 reglist += 2;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	93 rval++;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	94 }
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	95 if (!*reglist)
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	96 return -1;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	97 if (reglist[1] == ' ')
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	98 (*str)++;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	99 else
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	100 (*str) += 2;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	101 return rval;
f736579569b4 Added handlers for inherent and register to register instructions lost parents: 26 diff changeset	102 }
32 9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	103
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	104 int lwasm_lookupreg3(const char rlist, const char *str)
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	105 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	106 int rval = 0;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	107 int f = 0;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	108 const char *reglist = rlist;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	109
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	110 while (*reglist)
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	111 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	112 if (toupper(*str) == reglist)
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	113 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	114 // first char matches
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	115 if (reglist[1] == ' ')
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	116 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	117 f = 1;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	118 break;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	119 }
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	120 if (toupper((str + 1)) == reglist[1])
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	121 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	122 // second char matches
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	123 if (reglist[2] == ' ')
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	124 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	125 f = 1;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	126 break;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	127 }
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	128 if (toupper((str + 2)) == reglist[2])
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	129 {
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	130 f = 1;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	131 break;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	132 }
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	133 }
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	134 }
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	135 reglist += 3;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	136 rval++;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	137 }
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	138 if (f == 0)
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	139 return -1;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	140
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	141
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	142 reglist = rval * 3 + rlist;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	143 if (reglist[1] == ' ')
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	144 (*str) += 1;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	145 else if (reglist[2] == ' ')
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	146 (*str) += 2;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	147 else
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	148 (*str)+=3;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	149 return rval;
9bd0fbfe7405 Added basic indexed mode handling lost parents: 27 diff changeset	150 }
37 538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	151
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	152 struct symstateinfo
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	153 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	154 asmstate_t *as;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	155 lwasm_line_t *l;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	156 };
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	157
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	158 int lwasm_expr_lookup_symbol(char sym, void state, int *val)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	159 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	160 lwasm_symbol_ent_t *se;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	161 struct symstateinfo *st;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	162
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	163 st = state;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	164
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	165 // look for local symbol first then global symbol
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	166 se = lwasm_find_symbol(st -> as, sym, st -> as -> context);
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	167 if (!se)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	168 se = lwasm_find_symbol(st -> as, sym, -1);
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	169 if (!se)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	170 return -1;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	171 *val = se -> value;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	172 return 0;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	173 }
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	174
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	175 lwasm_expr_stack_t lwasm_evaluate_expr(asmstate_t as, lwasm_line_t l, const char inp, const char **outp)
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	176 {
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	177 struct symstateinfo st;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	178
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	179 st.as = as;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	180 st.l = l;
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	181
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	182 return(lwasm_expr_eval(inp, outp, lwasm_expr_lookup_symbol, &st));
538e15927776 Added symbol handling to expression subsystem; adpated instruction handlers to the new scheme; misc fixes lost parents: 32 diff changeset	183 }

Mercurial > hg-old > index.cgi

annotate src/lwasm.c @ 37:538e15927776