LWTools: lwasm/pseudo.c annotate

annotate lwasm/pseudo.c @ 266:35c051bffbff

Make fill and align do something useful in the object target Now, instead of being ignored, both directives will work on the offset from the start of the section instance in the current file. In a bss or constant section, no code will be emitted regardless of the padding byte specified. Otherwise, code will be emitted as usual.

author	William Astle <lost@l-w.ca>
date	Sat, 09 Mar 2013 11:11:51 -0700
parents	346966cffeef
children	4370370f38d1

rev	line source
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	2 pseudo.c
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	3 Copyright © 2010 William Astle
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	4
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	5 This file is part of LWASM.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	6
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	7 LWASM is free software: you can redistribute it and/or modify it under the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	8 terms of the GNU General Public License as published by the Free Software
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	9 Foundation, either version 3 of the License, or (at your option) any later
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	10 version.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	11
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	12 This program is distributed in the hope that it will be useful, but WITHOUT
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	15 more details.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	16
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	17 You should have received a copy of the GNU General Public License along with
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	18 this program. If not, see <http://www.gnu.org/licenses/>.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	19
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	20 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	21
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	22 #include <stdio.h>
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	23 #include <ctype.h>
10 127e5b1e01c0 Removed use of asprintf() and added Makefile options for cross compiling; also a bugfix with sizeof{} in lwasm lost@l-w.ca parents: 2 diff changeset	24 #include <string.h>
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	25 #include <stdlib.h>
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	26 #include <time.h>
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	27
7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	28 #include <lw_alloc.h>
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	29
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	30 #include "lwasm.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	31 #include "instab.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	32 #include "input.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	33
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	34 #include "lw_string.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	35
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	36 extern void register_struct_entry(asmstate_t as, line_t l, int size, structtab_t *ss);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	37
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	38 // for "dts"
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	39 PARSEFUNC(pseudo_parse_dts)
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	40 {
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	41 time_t tp;
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	42 char *t;
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	43
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	44 skip_operand(p);
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	45 l -> len = 0;
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	46
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	47 tp = time(NULL);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	48 t = ctime(&tp);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	49
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	50 while (*t)
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	51 {
233 7887a48b74df Remove stray \n from dts William Astle <lost@l-w.ca> parents: 225 diff changeset	52 if (*t == '\n')
7887a48b74df Remove stray \n from dts William Astle <lost@l-w.ca> parents: 225 diff changeset	53 break;
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	54 lwasm_emit(l, *t);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	55 t++;
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	56 l -> len += 1;
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	57 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	58 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	59
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	60 EMITFUNC(pseudo_emit_dts)
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	61 {
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	62 }
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	63
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	64 // for "dtb"
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	65 PARSEFUNC(pseudo_parse_dtb)
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	66 {
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	67 skip_operand(p);
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	68 l -> len = 6;
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	69 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	70
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	71 EMITFUNC(pseudo_emit_dtb)
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	72 {
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	73 time_t tp;
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	74 struct tm *t;
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	75
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	76 tp = time(NULL);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	77 t = localtime(&tp);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	78
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	79 lwasm_emit(l, t -> tm_year);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	80 lwasm_emit(l, t -> tm_mon + 1);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	81 lwasm_emit(l, t -> tm_mday);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	82 lwasm_emit(l, t -> tm_hour);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	83 lwasm_emit(l, t -> tm_min);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	84 lwasm_emit(l, t -> tm_sec);
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	85 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	86
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	87 // for "end"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	88 PARSEFUNC(pseudo_parse_end)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	89 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	90 lw_expr_t addr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	91
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	92 as -> endseen = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	93 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	94
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	95 if (as -> output_format != OUTPUT_DECB)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	96 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	97 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	98 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	99 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	100
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	101 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	102 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	103 addr = lw_expr_build(lw_expr_type_int, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	104 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	105 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	106 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	107 addr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	108 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	109 if (!addr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	110 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	111 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	112 addr = lw_expr_build(lw_expr_type_int, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	113 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	114 lwasm_save_expr(l, 0, addr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	115 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	116
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	117 EMITFUNC(pseudo_emit_end)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	118 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	119 lw_expr_t addr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	120
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	121 addr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	122
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	123 if (addr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	124 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	125 if (!lw_expr_istype(addr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	126 lwasm_register_error(as, l, "Exec address not constant!");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	127 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	128 as -> execaddr = lw_expr_intval(addr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	129 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	130 as -> endseen = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	131 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	132
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	133 PARSEFUNC(pseudo_parse_fcb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	134 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	135 int i = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	136 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	137
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	138 for (;;)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	139 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	140 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	141 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	142 {
147 9cf1796259b2 Fixed segfault in fcb,fdb,fqb with empty operands lost@l-w.ca parents: 145 diff changeset	143 lwasm_register_error(as, l, "Bad expression (#%d)", i);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	144 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	145 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	146 lwasm_save_expr(l, i++, e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	147 if (**p != ',')
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	148 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	149 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	150 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	151
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	152 l -> len = i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	153 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	154
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	155 EMITFUNC(pseudo_emit_fcb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	156 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	157 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	158 lw_expr_t e;
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	159 // int v;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	160
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	161 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	162 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	163 e = lwasm_fetch_expr(l, i);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	164 lwasm_emitexpr(l, e, 1);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	165 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	166 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	167
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	168 PARSEFUNC(pseudo_parse_fdb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	169 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	170 int i = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	171 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	172
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	173 for (;;)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	174 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	175 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	176 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	177 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	178 lwasm_register_error(as, l, "Bad expression (#%d)", i);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	179 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	180 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	181 lwasm_save_expr(l, i++, e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	182 if (**p != ',')
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	183 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	184 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	185 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	186
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	187 l -> len = i * 2;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	188 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	189
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	190 EMITFUNC(pseudo_emit_fdb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	191 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	192 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	193 lw_expr_t e;
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	194 // int v;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	195
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	196 for (i = 0; i < (l -> len)/2; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	197 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	198 e = lwasm_fetch_expr(l, i);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	199 lwasm_emitexpr(l, e, 2);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	200 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	201 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	202
218 b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	203 PARSEFUNC(pseudo_parse_fdbs)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	204 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	205 int i = 0;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	206 lw_expr_t e;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	207
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	208 for (;;)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	209 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	210 e = lwasm_parse_expr(as, p);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	211 if (!e)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	212 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	213 lwasm_register_error(as, l, "Bad expression (#%d)", i);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	214 break;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	215 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	216 lwasm_save_expr(l, i++, e);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	217 if (**p != ',')
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	218 break;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	219 (*p)++;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	220 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	221
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	222 l -> len = i * 2;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	223 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	224
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	225 EMITFUNC(pseudo_emit_fdbs)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	226 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	227 int i;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	228 lw_expr_t e;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	229 lw_expr_t t;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	230 lw_expr_t t2;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	231 // int v;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	232
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	233 for (i = 0; i < (l -> len)/2; i++)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	234 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	235 e = lwasm_fetch_expr(l, i);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	236 t = lw_expr_build(lw_expr_type_int, 256);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	237 t2 = lw_expr_build(lw_expr_type_oper, lw_expr_oper_divide, e, t);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	238 lwasm_reduce_expr(as, t2);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	239 lw_expr_destroy(t);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	240 lwasm_emitexpr(l, e, 1);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	241 lwasm_emitexpr(l, t2, 1);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	242 lw_expr_destroy(t2);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	243 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	244 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	245
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	246 PARSEFUNC(pseudo_parse_fqb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	247 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	248 int i = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	249 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	250
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	251 for (;;)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	252 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	253 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	254 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	255 {
147 9cf1796259b2 Fixed segfault in fcb,fdb,fqb with empty operands lost@l-w.ca parents: 145 diff changeset	256 lwasm_register_error(as, l, "Bad expression (#%d)", i);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	257 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	258 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	259 lwasm_save_expr(l, i++, e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	260 if (**p != ',')
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	261 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	262 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	263 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	264
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	265 l -> len = i * 4;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	266 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	267
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	268 EMITFUNC(pseudo_emit_fqb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	269 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	270 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	271 lw_expr_t e;
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	272 // int v;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	273
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	274 for (i = 0; i < (l -> len)/4; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	275 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	276 e = lwasm_fetch_expr(l, i);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	277 lwasm_emitexpr(l, e, 4);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	278 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	279 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	280
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	281 static int cstringlen(asmstate_t as, line_t ln, char **p, char delim)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	282 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	283 int l = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	284 char *str = NULL;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	285 int blen = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	286 int bsize = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	287
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	288 if (!(as -> pragmas & PRAGMA_CESCAPES))
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	289 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	290 for (; p && p != delim; (*p)++)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	291 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	292 l++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	293 if (blen >= bsize)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	294 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	295 str = lw_realloc(str, bsize + 32);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	296 bsize++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	297 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	298 str[blen++] = **p;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	299 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	300 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	301 else
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	302 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	303 while (p && p != delim)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	304 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	305 int wch = **p;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	306 if (**p == '\\')
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	307 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	308 /* escape sequence */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	309
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	310 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	311 if (!**p)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	312 break;
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	313
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	314 switch (**p)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	315 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	316 /* octal sequence or NUL */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	317 /* skip the "0", then skip up to two more digits */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	318 case '0':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	319 case '1':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	320 case '2':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	321 case '3':
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	322 wch = **p;
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	323 wch -= 0x30;
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	324 if ((p)[1] >= '0' && (p)[1] < '8')
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	325 {
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	326 (*p)++;
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	327 wch *= 8;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	328 wch += **p - 0x30;
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	329 }
da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	330 if ((p)[1] >= '0' && (p)[1] < '8')
da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	331 {
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	332 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	333 wch *= 8;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	334 wch += **p -0x30;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	335 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	336 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	337
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	338 /* hexadecimal value */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	339 case 'x':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	340 (*p)++; // ignore "x"
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	341 wch = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	342 if (**p) // skip digit 1
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	343 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	344 wch = **p - 0x30;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	345 if (wch > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	346 wch -= 7;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	347 if (wch > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	348 wch -= 32;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	349 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	350 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	351 if (**p)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	352 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	353 int i;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	354 i = **p - 0x30;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	355 if (i > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	356 i -= 7;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	357 if (i > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	358 i -= 32;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	359 wch = wch * 16 + i;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	360 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	361 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	362
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	363 case 'a':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	364 wch = 7;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	365 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	366
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	367 case 'b':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	368 wch = 8;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	369 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	370
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	371 case 't':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	372 wch = 9;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	373 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	374
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	375 case 'n':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	376 wch = 10;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	377 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	378
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	379 case 'v':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	380 wch = 11;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	381 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	382
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	383 case 'f':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	384 wch = 12;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	385 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	386
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	387 case 'r':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	388 wch = 13;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	389
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	390 /* everything else represents itself */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	391 default:
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	392 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	393 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	394 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	395 /* now "wch" is the character to write out */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	396 l++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	397 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	398 if (blen >= bsize)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	399 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	400 str = lw_realloc(str, bsize + 32);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	401 bsize += 32;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	402 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	403 str[blen++] = wch;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	404 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	405 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	406 /* do something with the string here */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	407 /* l is the string length, str is the string itself */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	408 ln -> lstr = str;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	409 return l;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	410 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	411
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	412 PARSEFUNC(pseudo_parse_fcc)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	413 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	414 char delim;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	415 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	416
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	417 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	418 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	419 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	420 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	421 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	422
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	423 delim = **p;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	424 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	425
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	426
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	427 i = cstringlen(as, l, p, delim);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	428
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	429 if (**p != delim)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	430 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	431 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	432 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	433 }
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	434 (*p)++;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	435 l -> len = i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	436 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	437
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	438 EMITFUNC(pseudo_emit_fcc)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	439 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	440 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	441
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	442 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	443 lwasm_emit(l, l -> lstr[i]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	444 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	445
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	446 PARSEFUNC(pseudo_parse_fcs)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	447 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	448 char delim;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	449 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	450
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	451 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	452 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	453 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	454 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	455 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	456
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	457 delim = **p;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	458 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	459
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	460 i = cstringlen(as, l, p, delim);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	461
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	462 if (**p != delim)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	463 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	464 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	465 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	466 }
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	467 (*p)++;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	468 l -> len = i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	469 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	470
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	471 EMITFUNC(pseudo_emit_fcs)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	472 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	473 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	474
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	475 for (i = 0; i < l -> len - 1; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	476 lwasm_emit(l, l -> lstr[i]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	477 lwasm_emit(l, l -> lstr[i] \| 0x80);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	478 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	479
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	480 PARSEFUNC(pseudo_parse_fcn)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	481 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	482 char delim;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	483 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	484
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	485 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	486 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	487 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	488 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	489 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	490
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	491 delim = **p;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	492 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	493
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	494 i = cstringlen(as, l, p, delim);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	495
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	496 if (**p != delim)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	497 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	498 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	499 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	500 }
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	501 (*p)++;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	502 l -> len = i + 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	503 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	504
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	505 EMITFUNC(pseudo_emit_fcn)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	506 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	507 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	508
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	509 for (i = 0; i < (l -> len - 1); i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	510 lwasm_emit(l, l -> lstr[i]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	511 lwasm_emit(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	512 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	513
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	514 PARSEFUNC(pseudo_parse_rmb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	515 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	516 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	517
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	518 expr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	519 if (!expr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	520 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	521 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	522 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	523
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	524 l -> lint = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	525 if (as -> instruct)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	526 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	527 lwasm_reduce_expr(as, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	528 if (!lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	529 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	530 lwasm_register_error(as, l, "Expression must be constant at parse time");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	531 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	532 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	533 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	534 int e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	535 e = lw_expr_intval(expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	536 register_struct_entry(as, l, e, NULL);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	537 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	538 l -> lint = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	539 l -> symset = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	540 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	541 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	542 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	543 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	544 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	545 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	546 l -> dlen = -1;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	547 l -> len = 0;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	548 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	549 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	550 lwasm_save_expr(l, 0, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	551 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	552
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	553 RESOLVEFUNC(pseudo_resolve_rmb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	554 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	555 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	556
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	557 if (l -> lint)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	558 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	559
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	560 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	561 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	562 if (l -> dlen >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	563 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	564 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	565 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	566 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	567 if (l -> len >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	568 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	569 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	570
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	571 expr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	572
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	573 if (lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	574 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	575 if (lw_expr_intval(expr) < 0)
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	576 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	577 lwasm_register_error(as, l, "Negative reservation sizes make no sense! (%d)", lw_expr_intval(expr));
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	578 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	579 l -> dlen = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	580 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	581 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	582 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	583 l -> dlen = lw_expr_intval(expr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	584 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	585 l -> len = lw_expr_intval(expr);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	586 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	587 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	588
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	589 EMITFUNC(pseudo_emit_rmb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	590 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	591 if (l -> lint)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	592 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	593
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	594 if (l -> len < 0 \|\| l -> dlen < 0)
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	595 lwasm_register_error(as, l, "Expression not constant: %d %d", l -> len, l -> dlen);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	596 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	597
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	598 PARSEFUNC(pseudo_parse_rmd)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	599 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	600 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	601
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	602 l -> lint = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	603 expr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	604 if (!expr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	605 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	606 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	607 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	608
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	609 if (as -> instruct)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	610 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	611 lwasm_reduce_expr(as, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	612 if (!lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	613 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	614 lwasm_register_error(as, l, "Expression must be constant at parse time");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	615 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	616 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	617 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	618 int e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	619 e = lw_expr_intval(expr) * 2;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	620 register_struct_entry(as, l, e, NULL);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	621 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	622 l -> symset = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	623 l -> lint = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	624 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	625 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	626 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	627 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	628 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	629 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	630 l -> dlen = -1;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	631 l -> len = 0;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	632 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	633 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	634 lwasm_save_expr(l, 0, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	635 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	636
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	637 RESOLVEFUNC(pseudo_resolve_rmd)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	638 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	639 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	640
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	641 if (l -> lint)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	642 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	643
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	644 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	645 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	646 if (l -> dlen >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	647 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	648 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	649 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	650 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	651 if (l -> len >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	652 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	653 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	654
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	655 expr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	656
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	657 if (lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	658 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	659 if (lw_expr_intval(expr) < 0)
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	660 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	661 lwasm_register_error(as, l, "Negative reservation sizes make no sense! (%d)", lw_expr_intval(expr));
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	662 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	663 l -> dlen = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	664 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	665 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	666 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	667 l -> dlen = lw_expr_intval(expr) * 2;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	668 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	669 l -> len = lw_expr_intval(expr) * 2;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	670 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	671 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	672
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	673 EMITFUNC(pseudo_emit_rmd)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	674 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	675 if (l -> lint)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	676 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	677
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	678 if (l -> len < 0 \|\| l -> dlen < 0)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	679 lwasm_register_error(as, l, "Expression not constant");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	680 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	681
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	682
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	683 PARSEFUNC(pseudo_parse_rmq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	684 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	685 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	686
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	687 l -> lint = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	688 expr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	689 if (!expr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	690 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	691 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	692 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	693 if (as -> instruct)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	694 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	695 lwasm_reduce_expr(as, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	696 if (!lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	697 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	698 lwasm_register_error(as, l, "Expression must be constant at parse time");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	699 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	700 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	701 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	702 int e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	703 e = lw_expr_intval(expr) * 4;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	704 register_struct_entry(as, l, e, NULL);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	705 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	706 l -> symset = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	707 l -> lint = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	708 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	709 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	710 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	711 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	712 if (as -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	713 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	714 l -> dlen = -1;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	715 l -> len = 0;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	716 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	717 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	718 lwasm_save_expr(l, 0, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	719 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	720
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	721 RESOLVEFUNC(pseudo_resolve_rmq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	722 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	723 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	724
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	725 if (l -> lint)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	726 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	727
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	728 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	729 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	730 if (l -> dlen >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	731 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	732 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	733 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	734 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	735 if (l -> len >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	736 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	737 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	738
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	739 expr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	740
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	741 if (lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	742 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	743 if (lw_expr_intval(expr) < 0)
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	744 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	745 lwasm_register_error(as, l, "Negative reservation sizes make no sense! (%d)", lw_expr_intval(expr));
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	746 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	747 l -> dlen = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	748 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	749 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	750 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	751 l -> dlen = lw_expr_intval(expr) * 4;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	752 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	753 l -> len = lw_expr_intval(expr) * 4;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	754 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	755 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	756
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	757 EMITFUNC(pseudo_emit_rmq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	758 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	759 if (l -> lint)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	760 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	761
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	762 if (l -> len < 0 \|\| l -> dlen < 0)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	763 lwasm_register_error(as, l, "Expression not constant");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	764 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	765
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	766
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	767 PARSEFUNC(pseudo_parse_zmq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	768 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	769 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	770
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	771 expr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	772 if (!expr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	773 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	774 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	775 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	776
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	777 lwasm_save_expr(l, 0, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	778 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	779
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	780 RESOLVEFUNC(pseudo_resolve_zmq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	781 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	782 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	783
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	784 if (l -> len >= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	785 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	786
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	787 expr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	788
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	789 if (lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	790 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	791 if (lw_expr_intval(expr) < 0)
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	792 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	793 lwasm_register_error(as, l, "Negative block sizes make no sense! (%d)", lw_expr_intval(expr));
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	794 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	795 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	796 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	797 l -> len = lw_expr_intval(expr) * 4;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	798 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	799 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	800
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	801 EMITFUNC(pseudo_emit_zmq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	802 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	803 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	804
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	805 if (l -> len < 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	806 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	807 lwasm_register_error(as, l, "Expression not constant");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	808 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	809 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	810
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	811 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	812 lwasm_emit(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	813 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	814
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	815
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	816 PARSEFUNC(pseudo_parse_zmd)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	817 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	818 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	819
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	820 expr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	821 if (!expr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	822 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	823 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	824 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	825
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	826 lwasm_save_expr(l, 0, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	827 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	828
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	829 RESOLVEFUNC(pseudo_resolve_zmd)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	830 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	831 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	832
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	833 if (l -> len >= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	834 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	835
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	836 expr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	837
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	838 if (lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	839 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	840 if (lw_expr_intval(expr) < 0)
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	841 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	842 lwasm_register_error(as, l, "Negative block sizes make no sense! (%d)", lw_expr_intval(expr));
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	843 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	844 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	845 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	846 l -> len = lw_expr_intval(expr) * 2;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	847 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	848 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	849
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	850 EMITFUNC(pseudo_emit_zmd)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	851 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	852 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	853
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	854 if (l -> len < 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	855 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	856 lwasm_register_error(as, l, "Expression not constant");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	857 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	858 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	859
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	860 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	861 lwasm_emit(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	862 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	863
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	864 PARSEFUNC(pseudo_parse_zmb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	865 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	866 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	867
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	868 expr = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	869 if (!expr)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	870 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	871 lwasm_register_error(as, l, "Bad expression");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	872 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	873
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	874 lwasm_save_expr(l, 0, expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	875 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	876
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	877 RESOLVEFUNC(pseudo_resolve_zmb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	878 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	879 lw_expr_t expr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	880
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	881 if (l -> len >= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	882 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	883
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	884 expr = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	885
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	886 if (lw_expr_istype(expr, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	887 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	888 if (lw_expr_intval(expr) < 0)
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	889 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	890 lwasm_register_error(as, l, "Negative block sizes make no sense! (%d)", lw_expr_intval(expr));
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	891 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	892 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	893 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	894 l -> len = lw_expr_intval(expr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	895 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	896 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	897
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	898 EMITFUNC(pseudo_emit_zmb)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	899 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	900 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	901
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	902 if (l -> len < 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	903 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	904 lwasm_register_error(as, l, "Expression not constant");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	905 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	906 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	907
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	908 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	909 lwasm_emit(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	910 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	911
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	912 PARSEFUNC(pseudo_parse_org)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	913 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	914 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	915
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	916 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	917
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	918 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	919 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	920 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	921 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	922 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	923 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	924
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	925 lw_expr_destroy(l -> daddr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	926 l -> daddr = e;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	927
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	928 if (l -> inmod == 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	929 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	930 lw_expr_destroy(l -> addr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	931 l -> addr = e;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	932 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	933 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	934 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	935
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	936 PARSEFUNC(pseudo_parse_equ)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	937 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	938 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	939
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	940 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	941
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	942 if (!(l -> sym))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	943 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	944 lwasm_register_error(as, l, "Missing symbol");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	945 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	946 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	947
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	948 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	949 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	950 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	951 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	952 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	953 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	954
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	955 register_symbol(as, l, l -> sym, e, symbol_flag_none);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	956 l -> symset = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	957 l -> dptr = lookup_symbol(as, l, l -> sym);
88 1a1fdfe860d0 Fixed several memory leaks revealed by valgrind lost@l-w.ca parents: 84 diff changeset	958 lw_expr_destroy(e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	959 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	960
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	961 PARSEFUNC(pseudo_parse_set)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	962 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	963 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	964
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	965 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	966
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	967 if (!(l -> sym))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	968 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	969 lwasm_register_error(as, l, "Missing symbol");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	970 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	971 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	972
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	973 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	974 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	975 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	976 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	977 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	978 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	979
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	980 register_symbol(as, l, l -> sym, e, symbol_flag_set);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	981 l -> symset = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	982 l -> dptr = lookup_symbol(as, l, l -> sym);
88 1a1fdfe860d0 Fixed several memory leaks revealed by valgrind lost@l-w.ca parents: 84 diff changeset	983 lw_expr_destroy(e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	984 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	985
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	986 PARSEFUNC(pseudo_parse_setdp)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	987 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	988 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	989
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	990 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	991
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	992 if (as -> output_format == OUTPUT_OBJ)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	993 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	994 lwasm_register_error(as, l, "SETDP not permitted for object target");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	995 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	996 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	997
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	998 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	999 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1000 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1001 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1002 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1003 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1004
38 7e92484cfbc3 Caused expressions used in setdp and conditionals to be reduced on pass 1 lost@l-w.ca parents: 10 diff changeset	1005 // try simplifying the expression and see if it turns into an int
7e92484cfbc3 Caused expressions used in setdp and conditionals to be reduced on pass 1 lost@l-w.ca parents: 10 diff changeset	1006 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1007 if (!lw_expr_istype(e, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1008 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1009 lwasm_register_error(as, l, "SETDP must be constant on pass 1");
88 1a1fdfe860d0 Fixed several memory leaks revealed by valgrind lost@l-w.ca parents: 84 diff changeset	1010 lw_expr_destroy(e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1011 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1012 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1013 l -> dpval = lw_expr_intval(e) & 0xff;
88 1a1fdfe860d0 Fixed several memory leaks revealed by valgrind lost@l-w.ca parents: 84 diff changeset	1014 lw_expr_destroy(e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1015 l -> dshow = l -> dpval;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1016 l -> dsize = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1017 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1018
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1019 PARSEFUNC(pseudo_parse_ifp1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1020 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1021 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1022 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1023
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1024 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1025 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1026 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1027 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1028 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1029 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1030
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1031 lwasm_register_warning(as, l, "IFP1 if is not supported; ignoring");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1032
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1033 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1034
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1035 PARSEFUNC(pseudo_parse_ifp2)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1036 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1037 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1038 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1039
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1040 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1041 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1042 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1043 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1044 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1045 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1046
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1047 lwasm_register_warning(as, l, "IFP2 if is not supported; ignoring");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1048 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1049
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1050 PARSEFUNC(pseudo_parse_ifeq)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1051 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1052 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1053
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1054 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1055 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1056
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1057 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1058 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1059 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1060 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1061 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1062 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1063
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1064 e = lwasm_parse_cond(as, p);
208 fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1065 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1066 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1067 if (e && lw_expr_intval(e) != 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1068 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1069 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1070 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1071 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1072 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1073
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1074 PARSEFUNC(pseudo_parse_ifne)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1075 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1076 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1077
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1078 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1079 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1080
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1081 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1082 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1083 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1084 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1085 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1086 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1087
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1088 e = lwasm_parse_cond(as, p);
208 fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1089 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1090 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1091 if (e && lw_expr_intval(e) == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1092 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1093 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1094 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1095 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1096 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1097
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1098
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1099 PARSEFUNC(pseudo_parse_ifgt)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1100 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1101 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1102
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1103 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1104 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1105
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1106 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1107 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1108 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1109 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1110 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1111 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1112
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1113 e = lwasm_parse_cond(as, p);
208 fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1114 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1115 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1116 if (e && lw_expr_intval(e) <= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1117 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1118 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1119 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1120 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1121 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1122
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1123 PARSEFUNC(pseudo_parse_ifge)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1124 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1125 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1126
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1127 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1128 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1129
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1130 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1131 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1132 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1133 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1134 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1135 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1136
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1137 e = lwasm_parse_cond(as, p);
208 fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1138 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1139 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1140 if (e && lw_expr_intval(e) < 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1141 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1142 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1143 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1144 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1145 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1146
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1147 PARSEFUNC(pseudo_parse_iflt)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1148 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1149 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1150
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1151 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1152 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1153
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1154 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1155 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1156 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1157 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1158 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1159 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1160
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1161 e = lwasm_parse_cond(as, p);
208 fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1162 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1163 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1164 if (e && lw_expr_intval(e) >= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1165 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1166 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1167 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1168 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1169 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1170
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1171 PARSEFUNC(pseudo_parse_ifle)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1172 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1173 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1174
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1175 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1176 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1177
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1178 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1179 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1180 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1181 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1182 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1183 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1184
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1185 e = lwasm_parse_cond(as, p);
208 fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1186 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1187 lwasm_reduce_expr(as, e);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1188 if (e && lw_expr_intval(e) > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1189 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1190 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1191 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1192 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1193 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1194
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1195 PARSEFUNC(pseudo_parse_endc)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1196 {
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1197 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1198 l -> len = 0;
145 d6e9cc4484f6 Fixed ENDC to work with comments after it lost@l-w.ca parents: 142 diff changeset	1199 skip_operand(p);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1200 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1201 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1202 as -> skipcount--;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1203 if (as -> skipcount <= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1204 as -> skipcond = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1205 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1206 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1207
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1208 PARSEFUNC(pseudo_parse_else)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1209 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1210 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1211 l -> hideline = 1;
217 f87c86668d6b Fix handling of comments on ELSE lines William Astle <lost@l-w.ca> parents: 208 diff changeset	1212 skip_operand(p);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1213
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1214 if (as -> skipmacro)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1215 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1216
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1217 if (as -> skipcond)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1218 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1219 if (as -> skipcount == 1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1220 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1221 as -> skipcount = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1222 as -> skipcond = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1223 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1224 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1225 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1226 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1227 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1228 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1229
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1230 PARSEFUNC(pseudo_parse_ifdef)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1231 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1232 char *sym;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1233 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1234 struct symtabe *s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1235
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1236 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1237 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1238
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1239 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1240 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1241 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1242 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1243 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1244 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1245
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1246 again:
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1247 for (i = 0; (p)[i] && !isspace((p)[i]) && (p)[i] != '\|' && (p)[i] != '&'; i++)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1248 /* do nothing */ ;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1249
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1250 sym = lw_strndup(*p, i);
84 16a72d9b6eb6 Make ifdef work correctly lost@l-w.ca parents: 76 diff changeset	1251 (*p) += i;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1252
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1253 s = lookup_symbol(as, l, sym);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1254
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1255 lw_free(sym);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1256
133 3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1257 if (!s)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1258 {
133 3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1259 if (**p == '\|')
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1260 {
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1261 (*p)++;
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1262 goto again;
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1263 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1264 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1265 as -> skipcount = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1266 }
133 3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1267 skip_operand(p);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1268 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1269
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1270 PARSEFUNC(pseudo_parse_ifndef)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1271 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1272 char *sym;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1273 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1274 struct symtabe *s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1275
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1276 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1277 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1278
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1279 if (as -> skipcond && !(as -> skipmacro))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1280 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1281 as -> skipcount++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1282 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1283 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1284 }
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1285 for (i = 0; (p)[i] && !isspace((p)[i]) && (p)[i] != '&' && (p)[i] != '\|'; i++)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1286 /* do nothing */ ;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1287
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1288 sym = lw_strndup(*p, i);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1289 (*p) += i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1290
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1291 s = lookup_symbol(as, l, sym);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1292
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1293 lw_free(sym);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1294
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1295 if (s)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1296 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1297 as -> skipcond = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1298 as -> skipcount = 1;
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1299 return;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1300 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1301 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1302
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1303 PARSEFUNC(pseudo_parse_error)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1304 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1305 lwasm_register_error(as, l, "User error: %s", *p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1306 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1307 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1308
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1309 PARSEFUNC(pseudo_parse_warning)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1310 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1311 lwasm_register_warning(as, l, "User warning: %s", *p);
225 823560a8c251 Prevent infinite loop due to warning directive William Astle <lost@l-w.ca> parents: 224 diff changeset	1312 l -> len = 0;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1313 skip_operand(p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1314 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1315
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1316 PARSEFUNC(pseudo_parse_includebin)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1317 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1318 char fn, p2;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1319 int delim = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1320 FILE *fp;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1321 long flen;
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1322 char *rfn;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1323
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1324 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1325 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1326 lwasm_register_error(as, l, "Missing filename");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1327 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1328 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1329
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1330 if (p == '"' \|\| p == '\'')
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1331 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1332 delim = **p;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1333 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1334
63 74b82202d355 Make for condition clearer lost@l-w.ca parents: 62 diff changeset	1335 for (p2 = p; p2 && (*p2 != delim); p2++)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1336 /* do nothing */ ;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1337 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1338 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1339 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1340 for (p2 = p; p2 && !isspace(*p2); p2++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1341 /* do nothing */ ;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1342 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1343 fn = lw_strndup(p, p2 - p);
62 5b10ff307463 Fixed problem with filename handling in includebin lost@l-w.ca parents: 58 diff changeset	1344 *p = p2;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1345 if (delim && **p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1346 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1347
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1348 fp = input_open_standalone(as, fn, &rfn);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1349 if (!fp)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1350 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1351 lwasm_register_error(as, l, "Cannot open file");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1352 lw_free(fn);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1353 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1354 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1355
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1356 l -> lstr = rfn;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1357
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1358 fseek(fp, 0, SEEK_END);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1359 flen = ftell(fp);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1360 fclose(fp);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1361
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1362 l -> len = flen;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1363 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1364
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1365 EMITFUNC(pseudo_emit_includebin)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1366 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1367 FILE *fp;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1368 int c;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1369
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1370 fp = fopen(l -> lstr, "r");
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1371 if (!fp)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1372 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1373 lwasm_register_error(as, l, "Cannot open file (emit)!");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1374 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1375 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1376
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1377 for (;;)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1378 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1379 c = fgetc(fp);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1380 if (c == EOF)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1381 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1382 fclose(fp);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1383 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1384 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1385 lwasm_emit(l, c);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1386 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1387 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1388
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1389 PARSEFUNC(pseudo_parse_include)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1390 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1391 char fn, p2;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1392 char *p3;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1393 int delim = 0;
10 127e5b1e01c0 Removed use of asprintf() and added Makefile options for cross compiling; also a bugfix with sizeof{} in lwasm lost@l-w.ca parents: 2 diff changeset	1394 int len;
41 c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1395 char buf[110];
c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1396
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1397 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1398 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1399 lwasm_register_error(as, l, "Missing filename");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1400 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1401 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1402
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1403 if (p == '"' \|\| p == '\'')
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1404 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1405 delim = **p;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1406 (*p)++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1407
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1408 for (p2 = p; p2 && *p2 != delim; p2++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1409 /* do nothing */ ;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1410 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1411 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1412 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1413 for (p2 = p; p2 && !isspace(*p2); p2++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1414 /* do nothing */ ;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1415 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1416 fn = lw_strndup(p, p2 - p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1417 (*p) = p2;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1418 if (delim && **p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1419 (*p)++;
41 c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1420
c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1421 /* add a book-keeping entry for line numbers */
c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1422 snprintf(buf, 100, "\001\001SETLINENO %d\n", l -> lineno + 1);
c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1423 input_openstring(as, "INTERNAL", buf);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1424
10 127e5b1e01c0 Removed use of asprintf() and added Makefile options for cross compiling; also a bugfix with sizeof{} in lwasm lost@l-w.ca parents: 2 diff changeset	1425 len = strlen(fn) + 8;
127e5b1e01c0 Removed use of asprintf() and added Makefile options for cross compiling; also a bugfix with sizeof{} in lwasm lost@l-w.ca parents: 2 diff changeset	1426 p3 = lw_alloc(len + 1);
127e5b1e01c0 Removed use of asprintf() and added Makefile options for cross compiling; also a bugfix with sizeof{} in lwasm lost@l-w.ca parents: 2 diff changeset	1427 sprintf(p3, "include:%s", fn);
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1428 as -> fileerr = 0;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1429 input_open(as, p3);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1430 lw_free(p3);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1431
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1432 if (as -> fileerr == 0)
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1433 l -> hideline = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1434 l -> len = 0;
93 5bf9edabd661 Squashed the remaining memory leaks revealed by valgrind lost@l-w.ca parents: 88 diff changeset	1435 lw_free(fn);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1436 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1437
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1438 PARSEFUNC(pseudo_parse_align)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1439 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1440 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1441 if (!**p)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1442 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1443 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1444 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1445 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1446
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1447 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1448
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1449 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1450 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1451 lwasm_register_error(as, l, "Bad operand");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1452 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1453 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1454
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1455 lwasm_save_expr(l, 0, e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1456
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1457 if (**p == ',')
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1458 {
114 707eda49ad60 Fix parsing padding argument for align pseudo op lost@l-w.ca parents: 93 diff changeset	1459 (*p)++;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1460 e = lwasm_parse_expr(as, p);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1461 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1462 else
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1463 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1464 e = lw_expr_build(lw_expr_type_int, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1465 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1466 if (!e)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1467 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1468 lwasm_register_error(as, l, "Bad padding");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1469 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1470 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1471
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1472 lwasm_save_expr(l, 1, e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1473 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1474
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1475 RESOLVEFUNC(pseudo_resolve_align)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1476 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1477 lw_expr_t e;
264 346966cffeef Clean up various warnings when building under -Wall William Astle <lost@l-w.ca> parents: 251 diff changeset	1478 int align = 1;
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1479 lw_expr_t te;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1480 int a;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1481
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1482 e = lwasm_fetch_expr(l, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1483
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1484 if (lw_expr_istype(e, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1485 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1486 align = lw_expr_intval(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1487 if (align < 1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1488 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1489 lwasm_register_error(as, l, "Invalid alignment");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1490 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1491 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1492 }
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1493 else
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1494 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1495 return;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1496 }
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1497
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1498
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1499 te = lw_expr_copy(l -> addr);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1500 as -> exportcheck = 1;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1501 lwasm_reduce_expr(as, te);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1502 as -> exportcheck = 0;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1503
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1504 if (lw_expr_istype(te, lw_expr_type_int))
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1505 {
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1506 a = lw_expr_intval(te);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1507 }
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1508 else
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1509 {
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1510 a = -1;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1511 }
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1512 lw_expr_destroy(te);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1513
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1514 if (a >= 0)
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1515 {
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1516 if (a % align == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1517 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1518 l -> len = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1519 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1520 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1521 l -> len = align - (a % align);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1522 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1523 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1524 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1525
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1526 EMITFUNC(pseudo_emit_align)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1527 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1528 lw_expr_t e;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1529 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1530
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1531 if (l -> csect && (l -> csect -> flags & (section_flag_bss \| section_flag_constant)))
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1532 return;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1533 e = lwasm_fetch_expr(l, 1);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1534 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1535 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1536 lwasm_emitexpr(l, e, 1);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1537 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1538 }
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1539
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1540 PARSEFUNC(pseudo_parse_fill)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1541 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1542 lw_expr_t e, e1;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1543 if (!**p)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1544 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1545 lwasm_register_error(as, l, "Bad operand");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1546 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1547 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1548
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1549 e1 = lwasm_parse_expr(as, p);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1550 if (**p != ',')
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1551 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1552 lwasm_register_error(as, l, "Bad operand");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1553 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1554 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1555 (*p)++;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1556 e = lwasm_parse_expr(as, p);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1557
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1558 if (!e)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1559 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1560 lwasm_register_error(as, l, "Bad operand");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1561 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1562 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1563
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1564 lwasm_save_expr(l, 0, e);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1565 lwasm_save_expr(l, 1, e1);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1566
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1567 if (!e1)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1568 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1569 lwasm_register_error(as, l, "Bad padding");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1570 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1571 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1572 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1573
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1574 RESOLVEFUNC(pseudo_resolve_fill)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1575 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1576 lw_expr_t e, te;
264 346966cffeef Clean up various warnings when building under -Wall William Astle <lost@l-w.ca> parents: 251 diff changeset	1577 int align = 1;
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1578
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1579 e = lwasm_fetch_expr(l, 0);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1580
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1581 te = lw_expr_copy(e);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1582 as -> exportcheck = 1;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1583 lwasm_reduce_expr(as, te);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1584 as -> exportcheck = 0;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1585
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1586 if (lw_expr_istype(te, lw_expr_type_int))
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1587 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1588 align = lw_expr_intval(te);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1589 if (align < 0)
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1590 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1591 lw_expr_destroy(te);
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1592 lwasm_register_error(as, l, "Invalid fill length");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1593 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1594 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1595 }
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1596 else
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1597 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1598 lw_expr_destroy(te);
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1599 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1600 }
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1601 lw_expr_destroy(te);
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1602
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1603 l -> len = align;
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1604 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1605
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1606 EMITFUNC(pseudo_emit_fill)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1607 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1608 lw_expr_t e;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1609 int i;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1610
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1611 /* don't emit anything in bss */
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1612 if (l -> csect && (l -> csect -> flags & (section_flag_bss \| section_flag_constant)))
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1613 return;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1614
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1615 e = lwasm_fetch_expr(l, 1);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1616 for (i = 0; i < l -> len; i++)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1617 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1618 lwasm_emitexpr(l, e, 1);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1619 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1620 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1621
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1622 /* string conditional argument parser */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1623 /*
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1624 argument syntax:
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1625
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1626 a bare word ended by whitespace, comma, or NUL
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1627 a double quote delimited string containing arbitrary printable characters
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1628 a single quote delimited string containing arbitrary printable characters
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1629
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1630 In a double quoted string, a double quote cannot be represented.
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1631 In a single quoted string, a single quote cannot be represented.
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1632
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1633 */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1634 char strcond_parsearg(char *p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1635 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1636 char *arg;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1637 char *tstr;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1638 int i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1639 tstr = *p;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1640
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1641 if (!p \|\| isspace(p))
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1642 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1643 return lw_strdup("");
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1644 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1645
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1646 if (*tstr == '"')
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1647 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1648 // double quote delim
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1649 tstr++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1650 for (i = 0; tstr[i] && tstr[i] != '"'; i++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1651 /* do nothing */ ;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1652
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1653 arg = lw_alloc(i + 1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1654 strncpy(arg, tstr, i);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1655 arg[i] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1656
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1657 if (tstr[i])
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1658 i++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1659
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1660 *p += i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1661 return arg;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1662 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1663 else if (*tstr == '\'')
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1664 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1665 // single quote delim
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1666 tstr++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1667 for (i = 0; tstr[i] && tstr[i] != '\''; i++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1668 /* do nothing */ ;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1669
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1670 arg = lw_alloc(i + 1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1671 strncpy(arg, tstr, i);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1672 arg[i] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1673
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1674 if (tstr[i])
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1675 i++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1676
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1677 *p += i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1678 return arg;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1679 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1680 else
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1681 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1682 // bare word - whitespace or comma delim
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1683 for (i = 0; tstr[i] && !isspace(tstr[i]) && tstr[i] != ','; i++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1684 /* do nothing */ ;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1685
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1686 arg = lw_alloc(i + 1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1687 strncpy(arg, tstr, i);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1688 arg[i] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1689 if (tstr[i] == ',')
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1690 i++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1691
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1692 *p += i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1693 return arg;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1694 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1695 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1696
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1697 /* string conditional helpers */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1698 /* return "1" for true, "0" for false */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1699 int strcond_eq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1700 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1701 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1702 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1703 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1704
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1705 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1706 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1707
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1708 if (strcmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1709 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1710 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1711 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1712 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1713 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1714
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1715 int strcond_ieq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1716 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1717 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1718 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1719 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1720
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1721 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1722 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1723
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1724 if (strcasecmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1725 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1726 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1727 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1728 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1729 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1730
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1731 int strcond_ne(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1732 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1733 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1734 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1735 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1736
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1737 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1738 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1739
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1740 if (strcmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1741 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1742 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1743 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1744 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1745 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1746
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1747 int strcond_ine(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1748 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1749 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1750 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1751 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1752
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1753 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1754 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1755
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1756 if (strcasecmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1757 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1758 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1759 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1760 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1761 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1762
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1763 int strcond_peq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1764 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1765 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1766 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1767 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1768 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1769 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1770
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1771 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1772 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1773 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1774
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1775 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1776 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1777 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1778 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1779 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1780
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1781 if (strcmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1782 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1783 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1784 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1785 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1786 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1787 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1788
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1789 int strcond_ipeq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1790 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1791 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1792 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1793 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1794 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1795 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1796
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1797 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1798 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1799 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1800
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1801 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1802 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1803 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1804 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1805 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1806
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1807 if (strcasecmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1808 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1809 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1810 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1811 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1812 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1813 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1814
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1815 int strcond_pne(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1816 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1817 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1818 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1819 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1820 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1821 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1822
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1823 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1824 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1825 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1826
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1827 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1828 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1829 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1830 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1831 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1832
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1833 if (strcmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1834 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1835 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1836 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1837 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1838 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1839 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1840
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1841 int strcond_ipne(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1842 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1843 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1844 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1845 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1846 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1847 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1848
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1849 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1850 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1851 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1852
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1853 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1854 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1855 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1856 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1857 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1858
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1859 if (strcasecmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1860 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1861 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1862 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1863 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1864 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1865 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1866
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1867 int strcond_seq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1868 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1869 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1870 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1871 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1872 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1873 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1874
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1875 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1876 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1877
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1878 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1879 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1880 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1881
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1882 rarg1 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1883 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1884
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1885 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1886 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1887 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1888 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1889 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1890 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1891 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1892 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1893 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1894 if (strcmp(rarg1, rarg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1895 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1896 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1897 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1898 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1899 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1900 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1901
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1902 int strcond_iseq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1903 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1904 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1905 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1906 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1907 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1908 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1909
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1910 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1911 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1912
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1913 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1914 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1915 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1916
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1917 rarg1 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1918 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1919
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1920 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1921 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1922 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1923 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1924 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1925 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1926 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1927 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1928 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1929
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1930 if (strcasecmp(rarg1, rarg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1931 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1932 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1933 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1934 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1935 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1936 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1937
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1938
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1939 int strcond_sne(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1940 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1941 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1942 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1943 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1944 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1945 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1946
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1947 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1948 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1949
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1950 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1951 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1952 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1953
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1954 rarg1 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1955 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1956
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1957 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1958 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1959 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1960 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1961 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1962 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1963 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1964 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1965 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1966
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1967 if (strcmp(rarg1, rarg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1968 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1969 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1970 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1971 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1972 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1973 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1974
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1975 int strcond_isne(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1976 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1977 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1978 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1979 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1980 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1981 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1982
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1983 int plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1984 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1985
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1986 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1987 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1988 arg2 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1989
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1990 rarg1 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1991 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1992
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1993 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1994 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1995 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1996 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1997 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1998 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1999 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2000 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2001 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2002
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2003 if (strcasecmp(rarg1, rarg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2004 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2005 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2006 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2007 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2008 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2009 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2010
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2011 /* string conditionals */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2012 PARSEFUNC(pseudo_parse_ifstr)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2013 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2014 static struct strconds
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2015 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2016 char *str;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2017 int (fn)(char *ptr);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2018 } strops[] = {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2019 { "eq", strcond_eq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2020 { "ieq", strcond_ieq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2021 { "ne", strcond_ne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2022 { "ine", strcond_ine },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2023 { "peq", strcond_peq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2024 { "ipeq", strcond_ipeq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2025 { "pne", strcond_pne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2026 { "ipne", strcond_ipne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2027 { "seq", strcond_seq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2028 { "iseq", strcond_iseq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2029 { "sne", strcond_sne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2030 { "isne", strcond_isne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2031 { NULL, 0 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2032 };
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2033 int tv = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2034 char *tstr;
58 62372522ce9c Clean up warning about unused variable lost@l-w.ca parents: 55 diff changeset	2035 int strop;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2036
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2037 l -> len = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2038
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2039 if (as -> skipcond && !(as -> skipmacro))
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2040 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2041 as -> skipcount++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2042 skip_operand(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2043 return;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2044 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2045
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2046 tstr = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2047 if (!p \|\| isspace(p))
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2048 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2049 lwasm_register_error(as, l, "Bad string condition");
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2050 return;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2051 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2052
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2053 for (strop = 0; strops[strop].str != NULL; strop++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2054 if (strcasecmp(strops[strop].str, tstr) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2055 break;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2056
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2057 lw_free(tstr);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2058
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2059 if (strops[strop].str == NULL)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2060 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2061 lwasm_register_error(as, l, "Bad string condition");
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2062 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2063
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2064 tv = (*(strops[strop].fn))(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2065
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2066 if (!tv)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2067 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2068 as -> skipcond = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2069 as -> skipcount = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2070 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2071 }

Mercurial > hg > index.cgi

annotate lwasm/pseudo.c @ 266:35c051bffbff