LWTools: lwasm/pseudo.c annotate

annotate lwasm/pseudo.c @ 359:f318407d2469

Fix some signedness mismatches Use size_t instead of int for stuff that's going to be compared with the strlen() return value. While not technically wrong to use int, it does seem to attract warnings from some compilers. Technically, since it's also the return value from strtol(), there should be one variable that is long and another that is size_t but that's just getting crazy. Thanks to Erik G <erik@6809.org> for pointing these ones out.

author	William Astle <lost@l-w.ca>
date	Tue, 26 May 2015 17:49:26 -0600
parents	b62af915c2cc
children	8764142b3192

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
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	22 #include "lwasm.h"
f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	23
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	24 #include <stdio.h>
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	25 #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	26 #include <string.h>
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	27 #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	28 #include <time.h>
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	29
7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	30 #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	31
2c24602be78f 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 "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	33 #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	34
2c24602be78f 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 #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	36
2c24602be78f 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 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	38
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	39 // for "dts"
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	40 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	41 {
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	42 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	43 char *t;
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	44
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	45 skip_operand(p);
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	46 l -> len = 0;
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	47
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	48 tp = time(NULL);
281 cb24ffb23f7c Make DTS not have problems if used multiple times. William Astle <lost@l-w.ca> parents: 280 diff changeset	49 t = l ->lstr = lw_strdup(ctime(&tp));
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	50
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	51 while (*t)
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	52 {
233 7887a48b74df Remove stray \n from dts William Astle <lost@l-w.ca> parents: 225 diff changeset	53 if (*t == '\n')
7887a48b74df Remove stray \n from dts William Astle <lost@l-w.ca> parents: 225 diff changeset	54 break;
132 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 }
280 4370370f38d1 Correct CRC problems with DTS pseudo op William Astle <lost@l-w.ca> parents: 266 diff changeset	58
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	59 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	60
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	61 EMITFUNC(pseudo_emit_dts)
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	62 {
280 4370370f38d1 Correct CRC problems with DTS pseudo op William Astle <lost@l-w.ca> parents: 266 diff changeset	63 char *t;
4370370f38d1 Correct CRC problems with DTS pseudo op William Astle <lost@l-w.ca> parents: 266 diff changeset	64 int i;
4370370f38d1 Correct CRC problems with DTS pseudo op William Astle <lost@l-w.ca> parents: 266 diff changeset	65
4370370f38d1 Correct CRC problems with DTS pseudo op William Astle <lost@l-w.ca> parents: 266 diff changeset	66 for (t = l -> lstr, i = 0; i < l -> len; i++, t++)
4370370f38d1 Correct CRC problems with DTS pseudo op William Astle <lost@l-w.ca> parents: 266 diff changeset	67 lwasm_emit(l, *t);
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	68 }
fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	69
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	70 // for "dtb"
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	71 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	72 {
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	73 skip_operand(p);
135 fe117454a1e7 Adjustments to dts/dtb lost@l-w.ca parents: 133 diff changeset	74 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	75 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	76
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	77 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	78 {
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	79 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	80 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	81
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	82 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	83 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	84
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	85 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	86 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	87 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	88 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	89 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	90 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	91 }
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	92
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	93 // 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	94 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	95 {
2c24602be78f 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 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	97
2c24602be78f 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 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	99 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	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 (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	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 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	104 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	105 }
2c24602be78f 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 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	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 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	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 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	112 {
2c24602be78f 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 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	114 }
2c24602be78f 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 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	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 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	118 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	119 }
2c24602be78f 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 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	121 }
2c24602be78f 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 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	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 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	126
2c24602be78f 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 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	128
2c24602be78f 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 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	130 {
2c24602be78f 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 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	132 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	133 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	134 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	135 }
2c24602be78f 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 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	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
2c24602be78f 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 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	140 {
2c24602be78f 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 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	142 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	143
2c24602be78f 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 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	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 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	147 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	148 {
147 9cf1796259b2 Fixed segfault in fcb,fdb,fqb with empty operands lost@l-w.ca parents: 145 diff changeset	149 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	150 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	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 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	153 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	154 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	155 (*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	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
2c24602be78f 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 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	159 }
2c24602be78f 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 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	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 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	164 lw_expr_t e;
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	165 // 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	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 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	168 {
2c24602be78f 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 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	170 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	171 }
2c24602be78f 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
2c24602be78f 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 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	175 {
2c24602be78f 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 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	177 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	178
2c24602be78f 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 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	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 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	182 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	183 {
2c24602be78f 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 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	185 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	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 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	188 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	189 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	190 (*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	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
2c24602be78f 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 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	194 }
2c24602be78f 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 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	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 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	199 lw_expr_t e;
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	200 // 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	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 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	203 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	204 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	205 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	206 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	207 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	208
218 b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	209 PARSEFUNC(pseudo_parse_fdbs)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	210 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	211 int i = 0;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	212 lw_expr_t e;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	213
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	214 for (;;)
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 e = lwasm_parse_expr(as, p);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	217 if (!e)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	218 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	219 lwasm_register_error(as, l, "Bad expression (#%d)", i);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	220 break;
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 lwasm_save_expr(l, i++, e);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	223 if (**p != ',')
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	224 break;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	225 (*p)++;
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
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	228 l -> len = i * 2;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	229 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	230
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	231 EMITFUNC(pseudo_emit_fdbs)
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 int i;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	234 lw_expr_t e;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	235 lw_expr_t t;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	236 lw_expr_t t2;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	237 // int v;
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	238
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	239 for (i = 0; i < (l -> len)/2; i++)
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	240 {
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	241 e = lwasm_fetch_expr(l, i);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	242 t = lw_expr_build(lw_expr_type_int, 256);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	243 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	244 lwasm_reduce_expr(as, t2);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	245 lw_expr_destroy(t);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	246 lwasm_emitexpr(l, e, 1);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	247 lwasm_emitexpr(l, t2, 1);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	248 lw_expr_destroy(t2);
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	249 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	250 }
b0c9df865b25 Add FDBS pseudo op. William Astle <lost@l-w.ca> parents: 217 diff changeset	251
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	252 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	253 {
2c24602be78f 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 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	255 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	256
2c24602be78f 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 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	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 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	260 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	261 {
147 9cf1796259b2 Fixed segfault in fcb,fdb,fqb with empty operands lost@l-w.ca parents: 145 diff changeset	262 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	263 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	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 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	266 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	267 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	268 (*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	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
2c24602be78f 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 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	272 }
2c24602be78f 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 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	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 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	277 lw_expr_t e;
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	278 // 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	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 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	281 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	282 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	283 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	284 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	285 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	286
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	287 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	288 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	289 int l = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	290 char *str = NULL;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	291 int blen = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	292 int bsize = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	293
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	294 if (!(as -> pragmas & PRAGMA_CESCAPES))
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	295 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	296 for (; p && p != delim; (*p)++)
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 l++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	299 if (blen >= bsize)
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 str = lw_realloc(str, bsize + 32);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	302 bsize++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	303 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	304 str[blen++] = **p;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	305 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	306 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	307 else
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	308 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	309 while (p && p != delim)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	310 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	311 int wch = **p;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	312 if (**p == '\\')
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	313 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	314 /* escape sequence */
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 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	317 if (!**p)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	318 break;
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	319
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	320 switch (**p)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	321 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	322 /* octal sequence or NUL */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	323 /* skip the "0", then skip up to two more digits */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	324 case '0':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	325 case '1':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	326 case '2':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	327 case '3':
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	328 wch = **p;
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	329 wch -= 0x30;
76 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')
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	331 {
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	332 (*p)++;
75 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;
76 da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	335 }
da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	336 if ((p)[1] >= '0' && (p)[1] < '8')
da74ccf4278c Fixed bug parsing octal constants under cescapes pragma lost@l-w.ca parents: 75 diff changeset	337 {
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	338 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	339 wch *= 8;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	340 wch += **p -0x30;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	341 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	342 break;
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 /* hexadecimal value */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	345 case 'x':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	346 (*p)++; // ignore "x"
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	347 wch = 0;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	348 if (**p) // skip digit 1
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	349 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	350 wch = **p - 0x30;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	351 if (wch > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	352 wch -= 7;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	353 if (wch > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	354 wch -= 32;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	355 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	356 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	357 if (**p)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	358 {
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	359 int i;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	360 i = **p - 0x30;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	361 if (i > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	362 i -= 7;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	363 if (i > 9)
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	364 i -= 32;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	365 wch = wch * 16 + i;
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 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	368
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	369 case 'a':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	370 wch = 7;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	371 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	372
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	373 case 'b':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	374 wch = 8;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	375 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	376
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	377 case 't':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	378 wch = 9;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	379 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	380
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	381 case 'n':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	382 wch = 10;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	383 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	384
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	385 case 'v':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	386 wch = 11;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	387 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	388
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	389 case 'f':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	390 wch = 12;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	391 break;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	392
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	393 case 'r':
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	394 wch = 13;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	395
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	396 /* everything else represents itself */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	397 default:
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	398 break;
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 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	401 /* now "wch" is the character to write out */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	402 l++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	403 (*p)++;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	404 if (blen >= bsize)
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 str = lw_realloc(str, bsize + 32);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	407 bsize += 32;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	408 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	409 str[blen++] = wch;
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 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	412 /* do something with the string here */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	413 /* l is the string length, str is the string itself */
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	414 ln -> lstr = str;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	415 return l;
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	416 }
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	417
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	418 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	419 {
2c24602be78f 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 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	421 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	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 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	424 {
2c24602be78f 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 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	426 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	427 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	428
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	429 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	430 (*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	431
2c24602be78f 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
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	433 i = cstringlen(as, l, p, delim);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	434
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	435 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	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 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	438 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	439 }
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	440 (*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	441 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	442 }
2c24602be78f 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
2c24602be78f 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 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	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 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	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 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	449 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	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
2c24602be78f 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 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	453 {
2c24602be78f 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 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	455 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	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 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	458 {
2c24602be78f 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 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	460 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	461 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	462
2c24602be78f 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 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	464 (*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	465
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	466 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	467
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	468 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	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 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	471 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	472 }
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	473 (*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	474 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	475 }
2c24602be78f 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
2c24602be78f 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 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	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 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	480
2c24602be78f 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 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	482 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	483 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	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
2c24602be78f 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 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	487 {
2c24602be78f 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 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	489 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	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 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	492 {
2c24602be78f 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 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	494 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	495 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	496
2c24602be78f 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 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	498 (*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	499
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	500 i = cstringlen(as, l, p, delim);
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	501
3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	502 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	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 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	505 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	506 }
75 3d50022e16e7 Restored pragma cescapes functionality lost@l-w.ca parents: 63 diff changeset	507 (*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	508 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	509 }
2c24602be78f 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
2c24602be78f 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 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	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 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	514
2c24602be78f 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 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	516 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	517 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	518 }
2c24602be78f 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
2c24602be78f 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 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	521 {
2c24602be78f 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 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	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 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	525 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	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_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	528 }
2c24602be78f 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 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	531 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	532 {
2c24602be78f 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 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	534 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	535 {
2c24602be78f 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 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	537 }
2c24602be78f 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 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	539 {
2c24602be78f 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 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	541 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	542 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	543 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	544 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	545 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	546 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	547 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	548 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	549 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	550 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	551 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	552 l -> dlen = -1;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	553 l -> len = 0;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	554 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	555 }
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	556 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	557 }
2c24602be78f 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
2c24602be78f 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 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	560 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	561 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	562
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	563 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	564 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	565
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	566 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	567 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	568 if (l -> dlen >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	569 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	570 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	571 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	572 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	573 if (l -> len >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	574 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	575 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	576
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	577 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	578
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	579 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	580 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	581 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	582 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	583 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	584 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	585 l -> dlen = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	586 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	587 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	588 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	589 l -> dlen = lw_expr_intval(expr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	590 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	591 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	592 }
2c24602be78f 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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	594
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	595 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	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 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	598 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	599
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	600 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	601 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	602 }
2c24602be78f 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
2c24602be78f 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 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	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 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	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 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	609 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	610 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	611 {
2c24602be78f 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 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	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
2c24602be78f 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 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	616 {
2c24602be78f 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 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	618 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	619 {
2c24602be78f 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 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	621 }
2c24602be78f 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 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	623 {
2c24602be78f 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 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	625 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	626 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	627 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	628 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	629 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	630 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	631 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	632 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	633 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	634 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	635 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	636 l -> dlen = -1;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	637 l -> len = 0;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	638 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	639 }
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	640 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	641 }
2c24602be78f 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
2c24602be78f 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 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	644 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	645 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	646
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	647 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	648 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	649
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	650 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	651 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	652 if (l -> dlen >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	653 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	654 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	655 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	656 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	657 if (l -> len >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	658 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	659 }
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	660
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	661 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	662
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	663 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	664 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	665 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	666 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	667 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	668 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	669 l -> dlen = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	670 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	671 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	672 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	673 l -> dlen = lw_expr_intval(expr) * 2;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	674 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	675 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	676 }
2c24602be78f 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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	678
2c24602be78f 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 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	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 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	682 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	683
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	684 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	685 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	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
2c24602be78f 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
2c24602be78f 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 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	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 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	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 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	694 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	695 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	696 {
2c24602be78f 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 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	698 }
2c24602be78f 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 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	700 {
2c24602be78f 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 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	702 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	703 {
2c24602be78f 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 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	705 }
2c24602be78f 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 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	707 {
2c24602be78f 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 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	709 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	710 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	711 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	712 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	713 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	714 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	715 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	716 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	717 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	718 if (as -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	719 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	720 l -> dlen = -1;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	721 l -> len = 0;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	722 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	723 }
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	724 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	725 }
2c24602be78f 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
2c24602be78f 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 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	728 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	729 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	730
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	731 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	732 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	733
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	734 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	735 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	736 if (l -> dlen >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	737 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	738 }
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	739 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	740 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	741 if (l -> len >= 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	742 return;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	743 }
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	744
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	745 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	746
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	747 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	748 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	749 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	750 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	751 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	752 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	753 l -> dlen = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	754 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	755 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	756 if (l -> inmod)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	757 l -> dlen = lw_expr_intval(expr) * 4;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	758 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	759 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	760 }
2c24602be78f 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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	762
2c24602be78f 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 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	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 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	766 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	767
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	768 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	769 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	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
2c24602be78f 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
2c24602be78f 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 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	774 {
2c24602be78f 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 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	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 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	778 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	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 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	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
2c24602be78f 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 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	784 }
2c24602be78f 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
2c24602be78f 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 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	787 {
2c24602be78f 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 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	789
2c24602be78f 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 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	791 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	792
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	793 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	794
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	795 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	796 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	797 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	798 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	799 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	800 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	801 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	802 }
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	803 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	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 }
2c24602be78f 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 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	808 {
2c24602be78f 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 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	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 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	812 {
2c24602be78f 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 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	814 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	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
2c24602be78f 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 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	818 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	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
2c24602be78f 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
2c24602be78f 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 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	823 {
2c24602be78f 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 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	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 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	827 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	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 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	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
2c24602be78f 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 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	833 }
2c24602be78f 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
2c24602be78f 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 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	836 {
2c24602be78f 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 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	838
2c24602be78f 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 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	840 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	841
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	842 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	843
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	844 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	845 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	846 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	847 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	848 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	849 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	850 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	851 }
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	852 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	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 }
2c24602be78f 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 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	857 {
2c24602be78f 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 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	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 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	861 {
2c24602be78f 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 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	863 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	864 }
2c24602be78f 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 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	867 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	868 }
2c24602be78f 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
2c24602be78f 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 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	871 {
2c24602be78f 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 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	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 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	875 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	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 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	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
2c24602be78f 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 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	881 }
2c24602be78f 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
2c24602be78f 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 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	884 {
2c24602be78f 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 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	886
2c24602be78f 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 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	888 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	889
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	890 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	891
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	892 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	893 {
159 8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	894 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	895 {
251 0e4a9b21ad7b Make the complaint about negative block/reservation sizes show value. William Astle <lost@l-w.ca> parents: 233 diff changeset	896 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	897 l -> len = 0;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	898 return;
8967eb907324 Trap negative sizes for [rz]m[bdq] and flag error lost@l-w.ca parents: 147 diff changeset	899 }
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	900 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	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 }
2c24602be78f 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 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	905 {
2c24602be78f 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 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	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 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	909 {
2c24602be78f 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 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	911 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	912 }
2c24602be78f 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 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	915 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	916 }
2c24602be78f 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 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	919 {
2c24602be78f 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 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	921
2c24602be78f 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 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	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 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	925 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	926 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	927 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	928 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	929 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	930
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	931 lw_expr_destroy(l -> daddr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	932 l -> daddr = e;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	933
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	934 if (l -> inmod == 0)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	935 {
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	936 lw_expr_destroy(l -> addr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	937 l -> addr = e;
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 135 diff changeset	938 }
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	939 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	940 }
2c24602be78f 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 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	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 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	945
2c24602be78f 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 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	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 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	949 {
2c24602be78f 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 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	951 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	952 }
2c24602be78f 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 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	955 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	956 {
2c24602be78f 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 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	958 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	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 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	962 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	963 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	964 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	965 }
2c24602be78f 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 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	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 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	970
2c24602be78f 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 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	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 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	974 {
2c24602be78f 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 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	976 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	977 }
2c24602be78f 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 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	980 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	981 {
2c24602be78f 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 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	983 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	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 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	987 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	988 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	989 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	990 }
2c24602be78f 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 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	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 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	995
2c24602be78f 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 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	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 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	999 {
2c24602be78f 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 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	1001 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	1002 }
2c24602be78f 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 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	1005 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	1006 {
2c24602be78f 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 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	1008 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	1009 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1010
38 7e92484cfbc3 Caused expressions used in setdp and conditionals to be reduced on pass 1 lost@l-w.ca parents: 10 diff changeset	1011 // 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	1012 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	1013 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	1014 {
2c24602be78f 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 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	1016 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	1017 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	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 l -> dpval = lw_expr_intval(e) & 0xff;
88 1a1fdfe860d0 Fixed several memory leaks revealed by valgrind lost@l-w.ca parents: 84 diff changeset	1020 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	1021 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	1022 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	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
2c24602be78f 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 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	1026 {
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1028 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	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 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	1031 {
2c24602be78f 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 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	1033 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	1034 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	1035 }
2c24602be78f 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 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	1038
2c24602be78f 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
2c24602be78f 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 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	1042 {
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1044 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	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 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	1047 {
2c24602be78f 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 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	1049 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	1050 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	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
2c24602be78f 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 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	1054 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1055
2c24602be78f 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 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	1057 {
2c24602be78f 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 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	1059
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1061 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	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 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	1064 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1065 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	1066 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	1067 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	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
2c24602be78f 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 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	1071 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1072 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	1073 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	1074 {
2c24602be78f 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 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	1076 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	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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1079
2c24602be78f 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 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	1081 {
2c24602be78f 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 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	1083
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1085 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	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 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	1088 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1089 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	1090 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	1091 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	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
2c24602be78f 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 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	1095 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1096 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	1097 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	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 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	1100 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	1101 }
2c24602be78f 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
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1104
2c24602be78f 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 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	1106 {
2c24602be78f 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 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	1108
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1110 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	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 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	1113 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1114 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	1115 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	1116 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	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
2c24602be78f 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 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	1120 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1121 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	1122 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	1123 {
2c24602be78f 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 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	1125 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	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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1128
2c24602be78f 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 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	1130 {
2c24602be78f 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 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	1132
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1134 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	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 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	1137 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1138 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	1139 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	1140 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	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
2c24602be78f 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 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	1144 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1145 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	1146 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	1147 {
2c24602be78f 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 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	1149 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	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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1152
2c24602be78f 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 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	1154 {
2c24602be78f 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 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	1156
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1158 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	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 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	1161 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1162 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	1163 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	1164 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	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
2c24602be78f 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 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	1168 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1169 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	1170 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	1171 {
2c24602be78f 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 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	1173 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	1174 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1175 }
2c24602be78f 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
2c24602be78f 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 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	1178 {
2c24602be78f 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 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	1180
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1181 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	1182 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	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 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	1185 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1186 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	1187 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	1188 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	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
2c24602be78f 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 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	1192 if (e)
fa835b780ffb Fix crash on conditionals with undefined symbols William Astle <lost@l-w.ca> parents: 186 diff changeset	1193 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	1194 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	1195 {
2c24602be78f 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 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	1197 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	1198 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1199 }
2c24602be78f 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
2c24602be78f 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 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	1202 {
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1203 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	1204 l -> len = 0;
145 d6e9cc4484f6 Fixed ENDC to work with comments after it lost@l-w.ca parents: 142 diff changeset	1205 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	1206 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	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 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	1209 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	1210 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	1211 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1212 }
2c24602be78f 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 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	1215 {
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1217 l -> hideline = 1;
217 f87c86668d6b Fix handling of comments on ELSE lines William Astle <lost@l-w.ca> parents: 208 diff changeset	1218 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	1219
2c24602be78f 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 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	1221 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	1222
2c24602be78f 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 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	1224 {
2c24602be78f 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 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	1226 {
2c24602be78f 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 = 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	1228 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	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 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	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 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	1233 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	1234 }
2c24602be78f 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 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	1237 {
2c24602be78f 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 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	1239 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	1240 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	1241
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1243 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	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 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	1246 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1247 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	1248 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	1249 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	1250 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1251
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1252 again:
4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1253 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	1254 /* 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	1255
2c24602be78f 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 sym = lw_strndup(*p, i);
84 16a72d9b6eb6 Make ifdef work correctly lost@l-w.ca parents: 76 diff changeset	1257 (*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	1258
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1259 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	1260
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1261 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	1262
133 3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1263 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	1264 {
133 3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1265 if (**p == '\|')
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1266 {
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1267 (*p)++;
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1268 goto again;
3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1269 }
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	1270 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	1271 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	1272 }
133 3c1a80c2fb95 ifdef sym1\|sym2 now works lost@l-w.ca parents: 132 diff changeset	1273 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	1274 }
2c24602be78f 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 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	1277 {
2c24602be78f 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 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	1279 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	1280 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	1281
2c24602be78f 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 l -> len = 0;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1283 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	1284
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1285 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	1286 {
2c24602be78f 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 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	1288 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	1289 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	1290 }
132 4cf44ff89b08 Added DTS and DTB pseudo ops; initial attempt to allow ifdef SYM1\|SYM2 lost@l-w.ca parents: 114 diff changeset	1291 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	1292 /* 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	1293
2c24602be78f 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 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	1295 (*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	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 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	1298
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1299 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	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 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	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 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	1304 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	1305 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	1306 }
2c24602be78f 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_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	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_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	1312 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	1313 }
2c24602be78f 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 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	1316 {
2c24602be78f 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 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	1318 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	1319 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	1320 }
2c24602be78f 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
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1322 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	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 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	1325 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	1326 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	1327 long flen;
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1328 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	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)
2c24602be78f 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 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	1333 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	1334 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1335
2c24602be78f 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 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	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 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	1339 (*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	1340
63 74b82202d355 Make for condition clearer lost@l-w.ca parents: 62 diff changeset	1341 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	1342 /* 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	1343 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1344 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	1345 {
2c24602be78f 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 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	1347 /* 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	1348 }
2c24602be78f 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 fn = lw_strndup(p, p2 - p);
62 5b10ff307463 Fixed problem with filename handling in includebin lost@l-w.ca parents: 58 diff changeset	1350 *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	1351 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	1352 (*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	1353
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1354 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	1355 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	1356 {
2c24602be78f 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 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	1358 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	1359 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	1360 }
2c24602be78f 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
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 219 diff changeset	1362 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	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 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	1365 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	1366 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	1367
2c24602be78f 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 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	1369 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1370
2c24602be78f 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 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	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 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	1374 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	1375
349 b62af915c2cc Fix includebin to use binary mode when emitting the contents of the file. William Astle <lost@l-w.ca> parents: 281 diff changeset	1376 fp = fopen(l -> lstr, "rb");
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	1377 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	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 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	1380 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	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
2c24602be78f 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 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	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 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	1386 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	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 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	1389 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	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 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	1392 }
2c24602be78f 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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1394
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1395 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	1396 {
2c24602be78f 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 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	1398 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	1399 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	1400 int len;
41 c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1401 char buf[110];
c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1402
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	1403 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	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 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	1406 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	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
2c24602be78f 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 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	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 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	1412 (*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	1413
2c24602be78f 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 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	1415 /* 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	1416 }
2c24602be78f 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 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	1418 {
2c24602be78f 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 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	1420 /* 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	1421 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1422 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	1423 (*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	1424 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	1425 (*p)++;
41 c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1426
c6b8b455d67f Fix line number sequence after including a file lost@l-w.ca parents: 38 diff changeset	1427 /* 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	1428 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	1429 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	1430
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	1431 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	1432 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	1433 sprintf(p3, "include:%s", fn);
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1434 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	1435 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	1436 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	1437
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1438 if (as -> fileerr == 0)
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 218 diff changeset	1439 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	1440 l -> len = 0;
93 5bf9edabd661 Squashed the remaining memory leaks revealed by valgrind lost@l-w.ca parents: 88 diff changeset	1441 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	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
2c24602be78f 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 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	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 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	1447 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	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 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	1450 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	1451 }
2c24602be78f 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
2c24602be78f 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 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	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 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	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 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	1458 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	1459 }
2c24602be78f 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
2c24602be78f 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 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	1462
2c24602be78f 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 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	1464 {
114 707eda49ad60 Fix parsing padding argument for align pseudo op lost@l-w.ca parents: 93 diff changeset	1465 (*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	1466 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	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 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	1469 {
2c24602be78f 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 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	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 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	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 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	1475 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	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
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1478 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	1479 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1480
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1481 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	1482 {
2c24602be78f 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 lw_expr_t e;
264 346966cffeef Clean up various warnings when building under -Wall William Astle <lost@l-w.ca> parents: 251 diff changeset	1484 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	1485 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	1486 int a;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1487
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	1488 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	1489
2c24602be78f 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 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	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 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	1493 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	1494 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1495 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	1496 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	1497 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1498 }
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1499 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	1500 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1501 return;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1502 }
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
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1505 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	1506 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	1507 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	1508 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	1509
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1510 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	1511 {
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1512 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	1513 }
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1514 else
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1515 {
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1516 a = -1;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1517 }
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1518 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	1519
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1520 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	1521 {
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	1522 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	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 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	1525 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	1526 }
2c24602be78f 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 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	1528 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	1529 }
2c24602be78f 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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1531
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1532 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	1533 {
2c24602be78f 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 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	1535 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	1536
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1537 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	1538 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	1539 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	1540 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	1541 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1542 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	1543 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1544 }
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1545
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1546 PARSEFUNC(pseudo_parse_fill)
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 lw_expr_t e, e1;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1549 if (!**p)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1550 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1551 lwasm_register_error(as, l, "Bad operand");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1552 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1553 }
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 e1 = lwasm_parse_expr(as, p);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1556 if (**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 lwasm_register_error(as, l, "Bad operand");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1559 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1560 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1561 (*p)++;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1562 e = lwasm_parse_expr(as, p);
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 if (!e)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1565 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1566 lwasm_register_error(as, l, "Bad operand");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1567 return;
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
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1570 lwasm_save_expr(l, 0, e);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1571 lwasm_save_expr(l, 1, e1);
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 if (!e1)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1574 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1575 lwasm_register_error(as, l, "Bad padding");
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1576 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1577 }
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
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1580 RESOLVEFUNC(pseudo_resolve_fill)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1581 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1582 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	1583 int align = 1;
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1584
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1585 e = lwasm_fetch_expr(l, 0);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1586
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1587 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	1588 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	1589 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	1590 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	1591
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1592 if (lw_expr_istype(te, lw_expr_type_int))
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1593 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1594 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	1595 if (align < 0)
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1596 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1597 lw_expr_destroy(te);
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1598 lwasm_register_error(as, l, "Invalid fill length");
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 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1601 }
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1602 else
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1603 {
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1604 lw_expr_destroy(te);
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1605 return;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1606 }
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1607 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	1608
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1609 l -> len = align;
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1610 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1611
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1612 EMITFUNC(pseudo_emit_fill)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1613 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1614 lw_expr_t e;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1615 int i;
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1616
266 35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1617 /* 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	1618 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	1619 return;
35c051bffbff Make fill and align do something useful in the object target William Astle <lost@l-w.ca> parents: 264 diff changeset	1620
186 1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1621 e = lwasm_fetch_expr(l, 1);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1622 for (i = 0; i < l -> len; i++)
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1623 {
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1624 lwasm_emitexpr(l, e, 1);
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1625 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1626 }
1824cabf25ce Various enhancements to lwasm lost@l-w.ca parents: 162 diff changeset	1627
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1628 /* string conditional argument parser */
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 argument syntax:
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1631
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1632 a bare word ended by whitespace, comma, or NUL
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1633 a double quote delimited string containing arbitrary printable characters
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1634 a single quote delimited string containing arbitrary printable characters
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 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	1637 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	1638
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1639 */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1640 char strcond_parsearg(char *p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1641 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1642 char *arg;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1643 char *tstr;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1644 int i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1645 tstr = *p;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1646
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1647 if (!p \|\| isspace(p))
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1648 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1649 return lw_strdup("");
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1650 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1651
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1652 if (*tstr == '"')
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1653 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1654 // double quote delim
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1655 tstr++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1656 for (i = 0; tstr[i] && tstr[i] != '"'; i++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1657 /* do nothing */ ;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1658
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1659 arg = lw_alloc(i + 1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1660 strncpy(arg, tstr, i);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1661 arg[i] = 0;
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 if (tstr[i])
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1664 i++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1665
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1666 *p += i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1667 return arg;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1668 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1669 else if (*tstr == '\'')
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1670 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1671 // single quote delim
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1672 tstr++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1673 for (i = 0; tstr[i] && tstr[i] != '\''; i++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1674 /* do nothing */ ;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1675
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1676 arg = lw_alloc(i + 1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1677 strncpy(arg, tstr, i);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1678 arg[i] = 0;
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 if (tstr[i])
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1681 i++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1682
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1683 *p += i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1684 return arg;
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 else
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1687 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1688 // bare word - whitespace or comma delim
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1689 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	1690 /* do nothing */ ;
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 arg = lw_alloc(i + 1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1693 strncpy(arg, tstr, i);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1694 arg[i] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1695 if (tstr[i] == ',')
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1696 i++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1697
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1698 *p += i;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1699 return arg;
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 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1702
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1703 /* string conditional helpers */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1704 /* return "1" for true, "0" for false */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1705 int strcond_eq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1706 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1707 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1708 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1709 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1710
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1711 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1712 arg2 = strcond_parsearg(p);
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 if (strcmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1715 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1716 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1717 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1718 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1719 }
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 int strcond_ieq(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1722 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1723 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1724 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1725 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1726
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1727 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1728 arg2 = strcond_parsearg(p);
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 if (strcasecmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1731 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1732 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1733 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1734 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1735 }
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 int strcond_ne(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1738 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1739 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1740 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1741 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1742
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1743 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1744 arg2 = strcond_parsearg(p);
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 if (strcmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1747 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1748 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1749 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1750 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1751 }
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 int strcond_ine(char **p)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1754 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1755 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1756 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1757 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1758
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1759 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1760 arg2 = strcond_parsearg(p);
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 if (strcasecmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1763 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1764 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1765 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1766 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1767 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1768
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1769 int strcond_peq(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1772 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1773 char *arg2;
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1774 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1775 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1776
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1777 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1778 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1779 arg2 = strcond_parsearg(p);
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 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1782 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1783 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1784 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1785 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1786
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1787 if (strcmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1788 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1789 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1790 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1791 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1792 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1793 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1794
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1795 int strcond_ipeq(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1798 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1799 char *arg2;
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1800 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1801 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1802
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1803 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1804 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1805 arg2 = strcond_parsearg(p);
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 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1808 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1809 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1810 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1811 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1812
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1813 if (strcasecmp(arg1, arg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1814 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1815 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1816 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1817 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1818 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1819 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1820
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1821 int strcond_pne(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1824 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1825 char *arg2;
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1826 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1827 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1828
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1829 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1830 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1831 arg2 = strcond_parsearg(p);
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 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1834 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1835 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1836 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1837 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1838
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1839 if (strcmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1840 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1841 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1842 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1843 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1844 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1845 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1846
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1847 int strcond_ipne(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1850 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1851 char *arg2;
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1852 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1853 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1854
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1855 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1856 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1857 arg2 = strcond_parsearg(p);
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 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1860 if (strlen(arg1) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1861 arg1[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1862 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1863 arg2[plen] = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1864
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1865 if (strcasecmp(arg1, arg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1866 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1867 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1868 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1869 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1870 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1871 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1872
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1873 int strcond_seq(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1876 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1877 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1878 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1879 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1880
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1881 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1882 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1883
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1884 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1885 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1886 arg2 = strcond_parsearg(p);
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 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1889 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1890
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1891 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1892 if (strlen(arg1) > 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 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1895 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1896 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1897 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1898 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1899 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1900 if (strcmp(rarg1, rarg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1901 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1902 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1903 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1904 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1905 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1906 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1907
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1908 int strcond_iseq(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1911 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1912 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1913 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1914 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1915
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1916 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1917 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1918
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1919 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1920 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1921 arg2 = strcond_parsearg(p);
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 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1924 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1925
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1926 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1927 if (strlen(arg1) > 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 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1930 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1931 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1932 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1933 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1934 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1935
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1936 if (strcasecmp(rarg1, rarg2) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1937 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1938 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1939 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1940 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1941 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1942 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1943
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1944
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1945 int strcond_sne(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1948 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1949 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1950 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1951 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1952
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1953 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1954 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1955
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1956 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1957 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1958 arg2 = strcond_parsearg(p);
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 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1961 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1962
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1963 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1964 if (strlen(arg1) > 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 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1967 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1968 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1969 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1970 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1971 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1972
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1973 if (strcmp(rarg1, rarg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1974 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1975 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1976 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1977 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1978 return c;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1979 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1980
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1981 int strcond_isne(char **p)
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 char *arg0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1984 char *arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1985 char *arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1986 char *rarg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1987 char *rarg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1988
359 f318407d2469 Fix some signedness mismatches William Astle <lost@l-w.ca> parents: 349 diff changeset	1989 size_t plen;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1990 int c = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1991
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1992 arg0 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1993 arg1 = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1994 arg2 = strcond_parsearg(p);
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 = arg1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1997 rarg2 = arg2;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1998
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	1999 plen = strtol(arg0, NULL, 10);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2000 if (strlen(arg1) > 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 rarg1 += strlen(arg1) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2003 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2004 if (strlen(arg2) > plen)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2005 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2006 rarg2 += strlen(arg2) - plen;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2007 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2008
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2009 if (strcasecmp(rarg1, rarg2) != 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2010 c = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2011 lw_free(arg0);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2012 lw_free(arg1);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2013 lw_free(arg2);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2014 return c;
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
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2017 /* string conditionals */
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2018 PARSEFUNC(pseudo_parse_ifstr)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2019 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2020 static struct strconds
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2021 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2022 char *str;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2023 int (fn)(char *ptr);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2024 } strops[] = {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2025 { "eq", strcond_eq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2026 { "ieq", strcond_ieq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2027 { "ne", strcond_ne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2028 { "ine", strcond_ine },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2029 { "peq", strcond_peq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2030 { "ipeq", strcond_ipeq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2031 { "pne", strcond_pne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2032 { "ipne", strcond_ipne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2033 { "seq", strcond_seq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2034 { "iseq", strcond_iseq },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2035 { "sne", strcond_sne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2036 { "isne", strcond_isne },
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2037 { NULL, 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 int tv = 0;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2040 char *tstr;
58 62372522ce9c Clean up warning about unused variable lost@l-w.ca parents: 55 diff changeset	2041 int strop;
55 bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2042
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2043 l -> len = 0;
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 if (as -> skipcond && !(as -> skipmacro))
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2046 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2047 as -> skipcount++;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2048 skip_operand(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2049 return;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2050 }
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 tstr = strcond_parsearg(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2053 if (!p \|\| isspace(p))
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2054 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2055 lwasm_register_error(as, l, "Bad string condition");
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2056 return;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2057 }
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 for (strop = 0; strops[strop].str != NULL; strop++)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2060 if (strcasecmp(strops[strop].str, tstr) == 0)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2061 break;
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 lw_free(tstr);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2064
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2065 if (strops[strop].str == NULL)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2066 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2067 lwasm_register_error(as, l, "Bad string condition");
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2068 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2069
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2070 tv = (*(strops[strop].fn))(p);
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2071
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2072 if (!tv)
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2073 {
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2074 as -> skipcond = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2075 as -> skipcount = 1;
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2076 }
bad2ee25acdd Added string comparison pseudo ops lost@l-w.ca parents: 41 diff changeset	2077 }

Mercurial > hg > index.cgi

annotate lwasm/pseudo.c @ 359:f318407d2469