LWTools: lwasm/main.c annotate

annotate lwasm/main.c @ 377:67373a053c49

Add ?rts target for branch instructions Add a ?rts target for branch instructions, which brances to the nearest RTS or inverts the branch logic to branch around a generated RTS. Activated by a pragma "qrts". Thanks to Erik G <erik@6809.org> for the patch.

author	William Astle <lost@l-w.ca>
date	Mon, 13 Jul 2015 20:50:02 -0600
parents	71f507f404f1
children	1ebb5a0b2874

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 main.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
2c24602be78f 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 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	5
2c24602be78f 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 This file is part of LWTOOLS.
2c24602be78f 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
2c24602be78f 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 LWTOOLS 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	9 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	10 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	11 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	12
2c24602be78f 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 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	14 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	15 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	16 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	17
2c24602be78f 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 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	19 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	20 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	21
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	22 #include <stdio.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	23 #include <stdlib.h>
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	24 #include <string.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	25
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	26 #include <lw_alloc.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	27 #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	28 #include <lw_stringlist.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	29 #include <lw_expr.h>
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	30 #include <lw_cmdline.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 "lwasm.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	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
374 8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	35 void lwasm_do_unicorns(asmstate_t *as);
222 03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	36
374 8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	37 int parse_pragma_string(asmstate_t as, char str, int ignoreerr);
0 2c24602be78f 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
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	39 /* command line option handling */
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	40 #define PROGVER "lwasm from " PACKAGE_STRING
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	41 char *program_name;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	42
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	43 static struct lw_cmdline_options options[] =
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	44 {
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	45 { "output", 'o', "FILE", 0, "Output to FILE"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	46 { "debug", 'd', "LEVEL", lw_cmdline_opt_optional, "Set debug mode"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	47 { "format", 'f', "TYPE", 0, "Select output format: decb, raw, obj, os9"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	48 { "list", 'l', "FILE", lw_cmdline_opt_optional, "Generate list [to FILE]"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	49 { "symbols", 's', 0, lw_cmdline_opt_optional, "Generate symbol list in listing, no effect without --list"},
365 3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	50 { "symbols-nolocals", 0x103, 0, lw_cmdline_opt_optional, "Same as --symbols but with local labels ignored"},
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	51 { "map", 'm', "FILE", lw_cmdline_opt_optional, "Generate map [to FILE]"},
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	52 { "decb", 'b', 0, 0, "Generate DECB .bin format output, equivalent of --format=decb"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	53 { "raw", 'r', 0, 0, "Generate raw binary format output, equivalent of --format=raw"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	54 { "obj", 0x100, 0, 0, "Generate proprietary object file format for later linking, equivalent of --format=obj" },
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	55 { "depend", 0x101, 0, 0, "Output a dependency list to stdout; do not do any actual output though assembly is completed as usual" },
73 1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	56 { "dependnoerr", 0x102, 0, 0, "Output a dependency list to stdout; do not do any actual output though assembly is completed as usual; don't bail on missing include files" },
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	57 { "pragma", 'p', "PRAGMA", 0, "Set an assembler pragma to any value understood by the \"pragma\" pseudo op"},
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	58 { "6809", '9', 0, 0, "Set assembler to 6809 only mode" },
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	59 { "6309", '3', 0, 0, "Set assembler to 6309 mode (default)" },
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	60 { "includedir", 'I', "PATH", 0, "Add entry to include path" },
101 ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	61 { "define", 'D', "SYM[=VAL]", 0, "Automatically define SYM to be VAL (or 1)"},
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	62 { "preprocess", 'P', 0, 0, "Preprocess macros and conditionals and output revised source to stdout" },
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	63 { "unicorns", 0x142, 0, 0, "Add sooper sekrit sauce"},
333 507f442dc71e Add support for 6800 compatibility instructions. William Astle <lost@l-w.ca> parents: 321 diff changeset	64 { "6800compat", 0x200, 0, 0, "Enable 6800 compatibility instructions, equivalent to --pragma=6800compat" },
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	65 { 0 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	66 };
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	67
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	68
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	69 static int parse_opts(int key, char arg, void state)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	70 {
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	71 asmstate_t *as = state;
106 43a3f1068027 Adjustments for list code lost@l-w.ca parents: 101 diff changeset	72
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	73 switch (key)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	74 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	75 case '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	76 lw_stringlist_addstring(as -> include_list, arg);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	77 break;
101 ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	78
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	79 case 'D':
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	80 {
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	81 char *offs;
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	82 int val = 1;
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	83 lw_expr_t te;
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	84
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	85 if ((offs = strchr(arg, '=')))
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	86 {
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	87 *offs = '\0';
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	88 val = strtol(offs + 1, NULL, 0);
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	89 }
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	90
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	91 /* register global symbol */
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	92 te = lw_expr_build(lw_expr_type_int, val);
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	93 register_symbol(as, NULL, arg, te, symbol_flag_nocheck \| symbol_flag_set);
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	94 lw_expr_destroy(te);
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	95
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	96 if (offs)
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	97 *offs = '=';
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	98 break;
ed7f970f3688 Added --define= option to predfine a symbol for assembly lost@l-w.ca parents: 73 diff changeset	99 }
0 2c24602be78f 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 case 'o':
2c24602be78f 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_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	102 lw_free(as -> output_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	103 as -> output_file = lw_strdup(arg);
2c24602be78f 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 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	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 case 'd':
338 5d401d1eb3e9 Allow disabling debugging messages. William Astle <lost@l-w.ca> parents: 333 diff changeset	107 #ifdef LWASM_NODEBUG
5d401d1eb3e9 Allow disabling debugging messages. William Astle <lost@l-w.ca> parents: 333 diff changeset	108 fprintf(stderr, "This binary has been built without debugging message support\n");
5d401d1eb3e9 Allow disabling debugging messages. William Astle <lost@l-w.ca> parents: 333 diff changeset	109 #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	110 if (!arg)
2c24602be78f 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 as -> debug_level = 50;
2c24602be78f 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 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	113 as -> debug_level = atoi(arg);
338 5d401d1eb3e9 Allow disabling debugging messages. William Astle <lost@l-w.ca> parents: 333 diff changeset	114 #endif
0 2c24602be78f 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 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	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 case 'l':
2c24602be78f 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 if (as -> list_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	119 lw_free(as -> list_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	120 if (!arg)
106 43a3f1068027 Adjustments for list code lost@l-w.ca parents: 101 diff changeset	121 as -> list_file = lw_strdup("-");
0 2c24602be78f 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 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	123 as -> list_file = lw_strdup(arg);
2c24602be78f 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 as -> flags \|= FLAG_LIST;
2c24602be78f 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 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	126
365 3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	127 case 'm':
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	128 if (as -> map_file)
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	129 lw_free(as -> map_file);
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	130 if (!arg)
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	131 as -> map_file = lw_strdup("-");
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	132 else
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	133 as -> map_file = lw_strdup(arg);
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	134 as -> flags \|= FLAG_MAP;
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	135 break;
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	136
0 2c24602be78f 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 case '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	138 as -> flags \|= FLAG_SYMBOLS;
2c24602be78f 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 break;
365 3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	140
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	141 case 0x103:
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	142 as -> flags \|= FLAG_SYMBOLS \| FLAG_SYMBOLS_NOLOCALS;
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	143 break;
3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	144
0 2c24602be78f 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 case 'b':
2c24602be78f 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 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	147 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	148
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	149 case 'r':
2c24602be78f 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 as -> output_format = OUTPUT_RAW;
2c24602be78f 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 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	152
2c24602be78f 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 case 0x100:
2c24602be78f 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 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	155 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	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 case 0x101:
2c24602be78f 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 as -> flags \|= FLAG_DEPEND;
2c24602be78f 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 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	160
73 1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	161 case 0x102:
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	162 as -> flags \|= FLAG_DEPEND \| FLAG_DEPENDNOERR;
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	163 break;
222 03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	164
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	165 case 0x142:
222 03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	166 as -> flags \|= FLAG_UNICORNS;
03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	167 break;
73 1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	168
0 2c24602be78f 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 case 'f':
2c24602be78f 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 if (!strcasecmp(arg, "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	171 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	172 else if (!strcasecmp(arg, "raw"))
2c24602be78f 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 as -> output_format = OUTPUT_RAW;
276 49010c6653e7 Re-enable rawrel output format William Astle <lost@l-w.ca> parents: 249 diff changeset	174 else if (!strcasecmp(arg, "rawrel"))
49010c6653e7 Re-enable rawrel output format William Astle <lost@l-w.ca> parents: 249 diff changeset	175 as -> output_format = OUTPUT_RAWREL;
0 2c24602be78f 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 else if (!strcasecmp(arg, "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	177 as -> output_format = OUTPUT_OBJ;
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 276 diff changeset	178 else if (!strcasecmp(arg, "srec"))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 276 diff changeset	179 as -> output_format = OUTPUT_SREC;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 276 diff changeset	180 else if (!strcasecmp(arg, "ihex"))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 276 diff changeset	181 as -> output_format = OUTPUT_IHEX;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 276 diff changeset	182 else if (!strcasecmp(arg, "hex"))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 276 diff changeset	183 as -> output_format = OUTPUT_HEX;
0 2c24602be78f 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 else if (!strcasecmp(arg, "os9"))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	185 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	186 as -> pragmas \|= PRAGMA_DOLLARNOTLOCAL;
2c24602be78f 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 as -> output_format = OUTPUT_OS9;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	188 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	189 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	190 {
2c24602be78f 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 fprintf(stderr, "Invalid output format: %s\n", arg);
2c24602be78f 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 exit(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	193 }
2c24602be78f 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 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	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 case '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	197 if (parse_pragma_string(as, arg, 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	198 {
2c24602be78f 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 fprintf(stderr, "Unrecognized pragma string: %s\n", arg);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	200 exit(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	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 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	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 case '9':
367 c6d2a1f54e0c Change processor target variations to pragmas. William Astle <lost@l-w.ca> parents: 366 diff changeset	205 as -> pragmas \|= PRAGMA_6809;
0 2c24602be78f 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 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	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 case '3':
367 c6d2a1f54e0c Change processor target variations to pragmas. William Astle <lost@l-w.ca> parents: 366 diff changeset	209 as -> pragmas &= ~PRAGMA_6809;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	210 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	211
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	212 case 'P':
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	213 as -> preprocess = 1;
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	214 break;
333 507f442dc71e Add support for 6800 compatibility instructions. William Astle <lost@l-w.ca> parents: 321 diff changeset	215
507f442dc71e Add support for 6800 compatibility instructions. William Astle <lost@l-w.ca> parents: 321 diff changeset	216 case 0x200:
507f442dc71e Add support for 6800 compatibility instructions. William Astle <lost@l-w.ca> parents: 321 diff changeset	217 as -> pragmas \|= PRAGMA_6800COMPAT;
507f442dc71e Add support for 6800 compatibility instructions. William Astle <lost@l-w.ca> parents: 321 diff changeset	218 break;
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	219
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	220 case lw_cmdline_key_end:
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	221 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	222
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	223 case lw_cmdline_key_arg:
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	224 lw_stringlist_addstring(as -> input_files, arg);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	225 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	226
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	227 default:
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	228 return lw_cmdline_err_unknown;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	229 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	230 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	231 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	232
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	233 static struct lw_cmdline_parser cmdline_parser =
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	234 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	235 options,
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	236 parse_opts,
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	237 "INPUTFILE",
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	238 "lwasm, a HD6309 and MC6809 cross-assembler\vPlease report bugs to lost@l-w.ca.",
917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	239 PROGVER
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	240 };
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	241
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	242 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	243 main function; parse command line, set up assembler state, and run 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	244 assembler on the first 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	245 */
374 8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	246 void do_pass1(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	247 void do_pass2(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	248 void do_pass3(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	249 void do_pass4(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	250 void do_pass5(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	251 void do_pass6(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	252 void do_pass7(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	253 void do_output(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	254 void do_list(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	255 void do_map(asmstate_t *as);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	256 lw_expr_t lwasm_evaluate_special(int t, void ptr, void priv);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	257 lw_expr_t lwasm_evaluate_var(char var, void priv);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	258 lw_expr_t lwasm_parse_term(char *p, void priv);
8e25147c2aa8 Clean up various "externs" William Astle <lost@l-w.ca> parents: 367 diff changeset	259 void lwasm_dividezero(void *priv);
0 2c24602be78f 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
2c24602be78f 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 struct passlist_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	262 {
2c24602be78f 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 char *passname;
2c24602be78f 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 void (fn)(asmstate_t as);
2c24602be78f 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 int fordep;
2c24602be78f 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 } passlist[] = {
2c24602be78f 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 { "parse", do_pass1, 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	268 { "symcheck", do_pass2 },
2c24602be78f 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 { "resolve1", do_pass3 },
2c24602be78f 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 { "resolve2", do_pass4 },
2c24602be78f 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 { "addressresolve", do_pass5 },
2c24602be78f 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 { "finalize", do_pass6 },
2c24602be78f 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 { "emit", do_pass7 },
2c24602be78f 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 { NULL, 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	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
2c24602be78f 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
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	278 int main(int argc, char **argv)
2c24602be78f 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 int passnum;
2c24602be78f 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 /* assembler state */
2c24602be78f 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 asmstate_t asmstate = { 0 };
2c24602be78f 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 program_name = argv[0];
2c24602be78f 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 lw_expr_set_special_handler(lwasm_evaluate_special);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	287 lw_expr_set_var_handler(lwasm_evaluate_var);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	288 lw_expr_set_term_parser(lwasm_parse_term);
249 1f1a28b797e1 Add trap for divide by zero in expression library William Astle <lost@l-w.ca> parents: 229 diff changeset	289 lw_expr_setdivzero(lwasm_dividezero);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	290
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	291 /* initialize assembler state */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	292 asmstate.include_list = lw_stringlist_create();
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	293 asmstate.input_files = lw_stringlist_create();
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	294 asmstate.nextcontext = 1;
366 433dbc18fb41 Make byte overflow detection for 8 bit immediate not fail with COM operator William Astle <lost@l-w.ca> parents: 365 diff changeset	295 asmstate.exprwidth = 16;
212 b0d53e2f3f53 Make --6309/--6809 work properly William Astle <lost@l-w.ca> parents: 186 diff changeset	296
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	297 /* parse command line arguments */
7 917b608b8c66 Switched lwasm to lw_cmdline from argp lost@l-w.ca parents: 2 diff changeset	298 lw_cmdline_parse(&cmdline_parser, argc, argv, 0, 0, &asmstate);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	299
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	300 if (!asmstate.output_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	301 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	302 asmstate.output_file = lw_strdup("a.out");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	303 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	304
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	305 input_init(&asmstate);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	306
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	307 for (passnum = 0; passlist[passnum].fn; passnum++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	308 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	309 if ((asmstate.flags & FLAG_DEPEND) && passlist[passnum].fordep == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	310 continue;
70 ceab04fd2969 Fixed premature installation of external reference under UNDEFEXTERN pragma; should not resolve to external references until after the initial parsing pass lost@l-w.ca parents: 7 diff changeset	311 asmstate.passno = passnum;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	312 debug_message(&asmstate, 50, "Doing pass %d (%s)\n", passnum, passlist[passnum].passname);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	313 (passlist[passnum].fn)(&asmstate);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	314 debug_message(&asmstate, 50, "After pass %d (%s)\n", passnum, passlist[passnum].passname);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	315 dump_state(&asmstate);
219 afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	316
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	317 if (asmstate.preprocess)
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	318 {
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	319 /* we're done if we were preprocessing */
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	320 exit(0);
afd50d6b4113 Add --preprocess option William Astle <lost@l-w.ca> parents: 212 diff changeset	321 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	322 if (asmstate.errorcount > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	323 {
73 1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	324 if (asmstate.flags & FLAG_DEPEND)
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	325 {
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	326 // don't show errors during dependency scanning but
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	327 // stop processing immediately
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	328 break;
1f77ae5c3590 Added --dependnoerr flag to list dependencies on non-existent files without bailing out; also suppress error reports during dependency generation lost@l-w.ca parents: 70 diff changeset	329 }
226 7c2c2239ec9c Make unicorns grok errors and warnings. William Astle <lost@l-w.ca> parents: 224 diff changeset	330 if (asmstate.flags & FLAG_UNICORNS)
7c2c2239ec9c Make unicorns grok errors and warnings. William Astle <lost@l-w.ca> parents: 224 diff changeset	331 lwasm_do_unicorns(&asmstate);
7c2c2239ec9c Make unicorns grok errors and warnings. William Astle <lost@l-w.ca> parents: 224 diff changeset	332 else
7c2c2239ec9c Make unicorns grok errors and warnings. William Astle <lost@l-w.ca> parents: 224 diff changeset	333 lwasm_show_errors(&asmstate);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	334 exit(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	335 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	336 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	337
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	338 if (asmstate.flags & FLAG_DEPEND)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	339 {
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	340 // output dependencies (other than "includebin")
3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	341 char *n;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	342
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	343 while ((n = lw_stack_pop(asmstate.includelist)))
3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	344 {
3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	345 fprintf(stdout, "%s\n", n);
3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	346 lw_free(n);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	347 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	348 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	349 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	350 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	351 debug_message(&asmstate, 50, "Doing output");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	352 do_output(&asmstate);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	353 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	354
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	355 debug_message(&asmstate, 50, "Done assembly");
222 03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	356
03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	357 if (asmstate.flags & FLAG_UNICORNS)
03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	358 {
224 3864d96ee8c7 Make unicorns notice referenced files better William Astle <lost@l-w.ca> parents: 222 diff changeset	359 debug_message(&asmstate, 50, "Invoking unicorns");
222 03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	360 lwasm_do_unicorns(&asmstate);
03f7192fcd20 Add --unicorns option for IDE integration William Astle <lost@l-w.ca> parents: 219 diff changeset	361 }
229 164487152dd9 Add flag to output stream for end of unicorns William Astle <lost@l-w.ca> parents: 226 diff changeset	362 do_list(&asmstate);
365 3f8abaac214c Add map file output and option to suppress local symbols in listings William Astle <lost@l-w.ca> parents: 338 diff changeset	363 do_map(&asmstate);
375 71f507f404f1 Add "testmode" pragma William Astle <lost@l-w.ca> parents: 374 diff changeset	364
71f507f404f1 Add "testmode" pragma William Astle <lost@l-w.ca> parents: 374 diff changeset	365 if (asmstate.testmode_errorcount > 0) exit(1);
71f507f404f1 Add "testmode" pragma William Astle <lost@l-w.ca> parents: 374 diff changeset	366
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	367 exit(0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	368 }

Mercurial > hg > index.cgi

annotate lwasm/main.c @ 377:67373a053c49