LWTools: lwasm/list.c annotate

annotate lwasm/list.c @ 494:836dc5371980 ccdev

Remove stray semicolon that almost certainly was causing a bug of some kind.

author	William Astle <lost@l-w.ca>
date	Mon, 05 Aug 2019 21:07:14 -0600
parents	1409debcb1a0
children	dc763f806dc4

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 list.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 <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	24
2c24602be78f 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 #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	26 #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	27
2c24602be78f 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 "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	29 #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	30
2c24602be78f 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 void list_symbols(asmstate_t as, FILE of);
2c24602be78f 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
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	33 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	34 Do listing
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	35 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	36 void do_list(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	37 {
50 f55650f5e9b8 Fixed problems with macro expansion supression lost@l-w.ca parents: 49 diff changeset	38 line_t cl, nl, *nl2;
106 43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	39 FILE *of = NULL;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	40 int i;
50 f55650f5e9b8 Fixed problems with macro expansion supression lost@l-w.ca parents: 49 diff changeset	41 unsigned char *obytes = NULL;
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	42 int obytelen = 0;
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	43
14 5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	44 char *tc;
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	45
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	46 if (!(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	47 return;
106 43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	48
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	49 if (as -> list_file)
106 43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	50 {
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	51 if (strcmp(as -> list_file, "-") == 0)
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	52 {
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	53 of = stdout;
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	54 }
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	55 else
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	56 of = fopen(as -> list_file, "w");
43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	57 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	58 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	59 of = stdout;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	60 if (!of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	61 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	62 fprintf(stderr, "Cannot open list file; list not generated\n");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	63 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	64 }
106 43a3f1068027 Adjustments for list code lost@l-w.ca parents: 81 diff changeset	65
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	66 for (cl = as -> line_head; cl; cl = nl)
0 2c24602be78f 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 {
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	68 nl = cl -> next;
81 428068681cbf Added nolist pragma to suppress listing output of non-code generating lines Lost Wizard (lost@starbug3) parents: 50 diff changeset	69 if (CURPRAGMA(cl, PRAGMA_NOLIST))
428068681cbf Added nolist pragma to suppress listing output of non-code generating lines Lost Wizard (lost@starbug3) parents: 50 diff changeset	70 {
428068681cbf Added nolist pragma to suppress listing output of non-code generating lines Lost Wizard (lost@starbug3) parents: 50 diff changeset	71 if (cl -> outputl <= 0)
428068681cbf Added nolist pragma to suppress listing output of non-code generating lines Lost Wizard (lost@starbug3) parents: 50 diff changeset	72 continue;
428068681cbf Added nolist pragma to suppress listing output of non-code generating lines Lost Wizard (lost@starbug3) parents: 50 diff changeset	73 }
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	74 if (cl -> noexpand_start)
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	75 {
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	76 obytelen = 0;
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	77 int nc = 0;
273 1409debcb1a0 Fix crash on listing when nested noexpand macros are used William Astle <lost@l-w.ca> parents: 230 diff changeset	78 for (nl = cl; nl; nl = nl -> next)
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	79 {
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	80 if (nl -> noexpand_start)
273 1409debcb1a0 Fix crash on listing when nested noexpand macros are used William Astle <lost@l-w.ca> parents: 230 diff changeset	81 nc += nl -> noexpand_start;
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	82 if (nl -> noexpand_end)
273 1409debcb1a0 Fix crash on listing when nested noexpand macros are used William Astle <lost@l-w.ca> parents: 230 diff changeset	83 nc -= nl -> noexpand_end;
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	84
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	85 if (nl -> outputl > 0)
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	86 obytelen += nl -> outputl;
227 721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	87 if (nl -> warn)
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	88 {
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	89 lwasm_error_t *e;
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	90 for (e = nl -> warn; e; e = e -> next)
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	91 {
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	92 printf("Warning: %s\n", e -> mess);
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	93 }
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	94 }
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	95 if (nc == 0)
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	96 break;
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	97 }
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	98 obytes = lw_alloc(obytelen);
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	99 nc = 0;
50 f55650f5e9b8 Fixed problems with macro expansion supression lost@l-w.ca parents: 49 diff changeset	100 for (nl2 = cl; ; nl2 = nl2 -> next)
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	101 {
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	102 int i;
50 f55650f5e9b8 Fixed problems with macro expansion supression lost@l-w.ca parents: 49 diff changeset	103 for (i = 0; i < nl2 -> outputl; i++)
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	104 {
50 f55650f5e9b8 Fixed problems with macro expansion supression lost@l-w.ca parents: 49 diff changeset	105 obytes[nc++] = nl2 -> output[i];
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	106 }
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	107 if (nc >= obytelen)
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	108 break;
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	109 }
273 1409debcb1a0 Fix crash on listing when nested noexpand macros are used William Astle <lost@l-w.ca> parents: 230 diff changeset	110 if (nl)
1409debcb1a0 Fix crash on listing when nested noexpand macros are used William Astle <lost@l-w.ca> parents: 230 diff changeset	111 nl = nl -> next;
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	112 }
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	113 else
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	114 {
227 721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	115 if (cl -> warn)
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	116 {
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	117 lwasm_error_t *e;
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	118 for (e = cl -> warn; e; e = e -> next)
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	119 {
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	120 printf("Warning: %s\n", e -> mess);
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	121 }
721a5ea5e36a Make warnings show up in assembly listings. William Astle <lost@l-w.ca> parents: 194 diff changeset	122 }
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	123 obytelen = cl -> outputl;
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	124 if (obytelen > 0)
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	125 {
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	126 obytes = lw_alloc(obytelen);
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	127 memmove(obytes, cl -> output, cl -> outputl);
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	128 }
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	129 }
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	130 if ((cl -> len < 1 && cl -> dlen < 1) && obytelen < 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	131 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	132 if (cl -> soff >= 0)
2c24602be78f 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 {
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	134 fprintf(of, "%04Xs ", cl -> soff & 0xffff);
0 2c24602be78f 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 else if (cl -> dshow >= 0)
2c24602be78f 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 if (cl -> 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	139 {
42 31adb7c09b4e Cosmetic fixup in listings for SETDP lost@l-w.ca parents: 14 diff changeset	140 fprintf(of, " %02X ", cl -> dshow & 0xff);
0 2c24602be78f 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 }
2c24602be78f 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 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	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 fprintf(of, " %04X ", cl -> dshow & 0xff);
2c24602be78f 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 }
2c24602be78f 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 else if (cl -> dptr)
2c24602be78f 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 lw_expr_t te;
2c24602be78f 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 te = lw_expr_copy(cl -> dptr -> value);
2c24602be78f 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 as -> exportcheck = 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	152 as -> csect = cl -> csect;
2c24602be78f 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 lwasm_reduce_expr(as, te);
2c24602be78f 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 -> exportcheck = 0;
2c24602be78f 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 if (lw_expr_istype(te, 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	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 fprintf(of, " %04X ", lw_expr_intval(te) & 0xffff);
2c24602be78f 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 }
2c24602be78f 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 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	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 fprintf(of, " ???? ");
2c24602be78f 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 lw_expr_destroy(te);
2c24602be78f 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 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	165 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	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 fprintf(of, " ");
2c24602be78f 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 }
2c24602be78f 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 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	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 lw_expr_t te;
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	173 if (instab[cl -> insn].flags & lwasm_insn_setdata)
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	174 te = lw_expr_copy(cl -> daddr);
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	175 else
697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	176 te = lw_expr_copy(cl -> addr);
0 2c24602be78f 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 -> exportcheck = 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	178 as -> csect = cl -> csect;
2c24602be78f 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 lwasm_reduce_expr(as, te);
2c24602be78f 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 as -> exportcheck = 0;
2c24602be78f 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 // fprintf(of, "%s\n", lw_expr_print(te));
142 697bc543368c Implement distinction between . and * for OS9 modules lost@l-w.ca parents: 106 diff changeset	182 fprintf(of, "%04X%c", lw_expr_intval(te) & 0xffff, ((cl -> inmod \|\| (cl -> dlen != cl -> len)) && instab[cl -> insn].flags & lwasm_insn_setdata) ? '.' : ' ');
0 2c24602be78f 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 lw_expr_destroy(te);
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	184 for (i = 0; i < obytelen && i < 8; 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	185 {
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	186 fprintf(of, "%02X", obytes[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	187 }
2c24602be78f 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 for (; i < 8; 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	189 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	190 fprintf(of, " ");
2c24602be78f 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 fprintf(of, " ");
2c24602be78f 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 }
14 5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	194 /* the 32.32 below is deliberately chosen so that the start of the line text is at
0 2c24602be78f 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 a multiple of 8 from the start of the list line */
14 5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	196 fprintf(of, "(%32.32s):%05d ", cl -> linespec, cl -> lineno);
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	197 i = 0;
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	198 for (tc = cl -> ltext; *tc; tc++)
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	199 {
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	200 if ((*tc) == '\t')
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	201 {
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	202 if (i % 8 == 0)
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	203 {
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	204 i += 8;
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	205 fprintf(of, " ");
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	206 }
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	207 else
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	208 {
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	209 while (i % 8)
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	210 {
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	211 fputc(' ', of);
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	212 i++;
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	213 }
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	214 }
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	215 }
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	216 else
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	217 {
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	218 fputc(*tc, of);
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	219 i++;
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	220 }
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	221 }
5ecdc4dae84d Brought forward patch to make tabs in listings always display as 8 spaces wide by converting tabs to spaces lost@l-w.ca parents: 0 diff changeset	222 fputc('\n', of);
194 f8b33b3a45ac Fix noexpand macro listings to show all bytes output William Astle <lost@l-w.ca> parents: 142 diff changeset	223 if (obytelen > 8)
0 2c24602be78f 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 {
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	225 for (i = 8; i < obytelen; 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	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 if (i % 8 == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	228 {
2c24602be78f 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 if (i != 8)
2c24602be78f 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 fprintf(of, "\n ");
2c24602be78f 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 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	232 fprintf(of, " ");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	233 }
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	234 fprintf(of, "%02X", obytes[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	235 }
2c24602be78f 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 if (i > 8)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	237 fprintf(of, "\n");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	238 }
49 bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	239 lw_free(obytes);
bd8b3fbd1e28 Added ability to flag macros as "noexpand" so they are not expanded in the listing lost@l-w.ca parents: 42 diff changeset	240 obytes = NULL;
0 2c24602be78f 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 }
230 e09985968e64 Don't suppress symbol listing in unicorns mode William Astle <lost@l-w.ca> parents: 227 diff changeset	242 if ((as -> flags & FLAG_SYMBOLS))
0 2c24602be78f 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 list_symbols(as, of);
2c24602be78f 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 }

Mercurial > hg > index.cgi

annotate lwasm/list.c @ 494:836dc5371980 ccdev