1 /* listing.c listing file generator for the Netwide Assembler
3 * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
4 * Julian Hall. All rights reserved. The software is
5 * redistributable under the licence given in the file "Licence"
6 * distributed in the NASM archive.
8 * initial version 2/vii/97 by Simon Tatham
24 #define LIST_MAX_LEN 216 /* something sensible */
25 #define LIST_INDENT 40
26 #define LIST_HEXBIT 18
28 typedef struct MacroInhibit MacroInhibit
;
30 static struct MacroInhibit
{
36 static char xdigit
[] = "0123456789ABCDEF";
38 #define HEX(a,b) (*(a)=xdigit[((b)>>4)&15],(a)[1]=xdigit[(b)&15]);
40 static char listline
[LIST_MAX_LEN
];
43 static char listdata
[2 * LIST_INDENT
]; /* we need less than that actually */
44 static int32_t listoffset
;
46 static int32_t listlineno
;
50 static int suppress
; /* for INCBIN & TIMES special cases */
52 static int listlevel
, listlevel_e
;
56 static void list_emit(void)
58 if (!listlinep
&& !listdata
[0])
61 fprintf(listfp
, "%6"PRId32
" ", ++listlineno
);
64 fprintf(listfp
, "%08"PRIX32
" %-*s", listoffset
, LIST_HEXBIT
+ 1,
67 fprintf(listfp
, "%*s", LIST_HEXBIT
+ 10, "");
70 fprintf(listfp
, "%s<%d>", (listlevel
< 10 ? " " : ""),
76 fprintf(listfp
, " %s", listline
);
83 static void list_init(char *fname
, efunc error
)
85 listfp
= fopen(fname
, "w");
87 error(ERR_NONFATAL
, "unable to open listing file `%s'", fname
);
96 mistack
= nasm_malloc(sizeof(MacroInhibit
));
99 mistack
->inhibiting
= true;
102 static void list_cleanup(void)
108 MacroInhibit
*temp
= mistack
;
109 mistack
= temp
->next
;
117 static void list_out(int32_t offset
, char *str
)
119 if (strlen(listdata
) + strlen(str
) > LIST_HEXBIT
) {
120 strcat(listdata
, "-");
125 strcat(listdata
, str
);
128 static void list_output(int32_t offset
, const void *data
, uint64_t type
)
132 if (!listp
|| suppress
|| user_nolist
) /* fbk - 9/2/00 */
135 typ
= type
& OUT_TYPMASK
;
136 size
= type
& OUT_SIZMASK
;
139 if (typ
== OUT_RAWDATA
) {
140 uint8_t const *p
= data
;
145 list_out(offset
++, q
);
148 } else if (typ
== OUT_ADDRESS
) {
149 uint64_t d
= *(int64_t *)data
;
151 uint8_t p
[8], *r
= p
;
162 } else if (size
== 8) {
185 } else if (typ
== OUT_REL2ADR
) {
186 uint32_t d
= *(int32_t *)data
;
188 uint8_t p
[4], *r
= p
;
196 } else if (typ
== OUT_REL4ADR
) {
197 uint32_t d
= *(int32_t *)data
;
199 uint8_t p
[4], *r
= p
;
209 } else if (typ
== OUT_RESERVE
) {
211 snprintf(q
, sizeof(q
), "<res %08"PRIX64
">", size
);
216 static void list_line(int type
, char *line
)
220 if (user_nolist
) { /* fbk - 9/2/00 */
225 if (mistack
&& mistack
->inhibiting
) {
226 if (type
== LIST_MACRO
)
228 else { /* pop the m i stack */
229 MacroInhibit
*temp
= mistack
;
230 mistack
= temp
->next
;
236 strncpy(listline
, line
, LIST_MAX_LEN
- 1);
237 listline
[LIST_MAX_LEN
- 1] = '\0';
238 listlevel_e
= listlevel
;
241 static void list_uplevel(int type
)
245 if (type
== LIST_INCBIN
|| type
== LIST_TIMES
) {
246 suppress
|= (type
== LIST_INCBIN
? 1 : 2);
247 list_out(listoffset
, type
== LIST_INCBIN
? "<incbin>" : "<rept>");
253 if (mistack
&& mistack
->inhibiting
&& type
== LIST_INCLUDE
) {
254 MacroInhibit
*temp
= nasm_malloc(sizeof(MacroInhibit
));
255 temp
->next
= mistack
;
256 temp
->level
= listlevel
;
257 temp
->inhibiting
= false;
259 } else if (type
== LIST_MACRO_NOLIST
) {
260 MacroInhibit
*temp
= nasm_malloc(sizeof(MacroInhibit
));
261 temp
->next
= mistack
;
262 temp
->level
= listlevel
;
263 temp
->inhibiting
= true;
268 static void list_downlevel(int type
)
273 if (type
== LIST_INCBIN
|| type
== LIST_TIMES
) {
274 suppress
&= ~(type
== LIST_INCBIN
? 1 : 2);
279 while (mistack
&& mistack
->level
> listlevel
) {
280 MacroInhibit
*temp
= mistack
;
281 mistack
= temp
->next
;