1 /* ----------------------------------------------------------------------- *
3 * Copyright 1996-2013 The NASM Authors - All Rights Reserved
4 * See the file AUTHORS included with the NASM distribution for
5 * the specific copyright holders.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following
11 * * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * * Redistributions in binary form must reproduce the above
14 * copyright notice, this list of conditions and the following
15 * disclaimer in the documentation and/or other materials provided
16 * with the distribution.
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
19 * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
20 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
26 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
30 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 * ----------------------------------------------------------------------- */
35 * outdbg.c output routines for the Netwide Assembler to produce
49 #include "output/outform.h"
60 static void dbg_init(void)
63 fprintf(ofile
, "NASM Output format debug dump\n");
66 static void dbg_cleanup(int debuginfo
)
69 of_dbg
.current_dfmt
->cleanup();
71 struct Section
*tmp
= dbgsect
;
72 dbgsect
= dbgsect
->next
;
78 static int32_t dbg_section_names(char *name
, int pass
, int *bits
)
83 * We must have an initial default: let's make it 16.
89 fprintf(ofile
, "section_name on init: returning %d\n",
92 int n
= strcspn(name
, " \t");
93 char *sname
= nasm_strndup(name
, n
);
97 for (s
= dbgsect
; s
; s
= s
->next
)
98 if (!strcmp(s
->name
, sname
))
102 s
= nasm_malloc(sizeof(*s
));
104 s
->number
= seg
= seg_alloc();
107 fprintf(ofile
, "section_name %s (pass %d): returning %d\n",
114 static void dbg_deflabel(char *name
, int32_t segment
, int64_t offset
,
115 int is_global
, char *special
)
117 fprintf(ofile
, "deflabel %s := %08"PRIx32
":%016"PRIx64
" %s (%d)%s%s\n",
118 name
, segment
, offset
,
119 is_global
== 2 ? "common" : is_global
? "global" : "local",
120 is_global
, special
? ": " : "", special
);
123 static void dbg_out(int32_t segto
, const void *data
,
124 enum out_type type
, uint64_t size
,
125 int32_t segment
, int32_t wrt
)
130 if (type
== OUT_ADDRESS
)
131 fprintf(ofile
, "out to %"PRIx32
", len = %d: ", segto
, (int)abs((int)size
));
133 fprintf(ofile
, "out to %"PRIx32
", len = %"PRIu64
": ", segto
, size
);
137 fprintf(ofile
, "reserved.\n");
140 fprintf(ofile
, "raw data = ");
142 id
= *(uint8_t *)data
;
143 data
= (char *)data
+ 1;
144 fprintf(ofile
, "%02x ", id
);
146 fprintf(ofile
, "\n");
149 ldata
= *(int64_t *)data
;
150 fprintf(ofile
, "addr %08"PRIx32
" (seg %08"PRIx32
", wrt %08"PRIx32
")\n",
151 ldata
, segment
, wrt
);
154 fprintf(ofile
, "rel1adr %02"PRIx8
" (seg %08"PRIx32
")\n",
155 (uint8_t)*(int64_t *)data
, segment
);
158 fprintf(ofile
, "rel2adr %04"PRIx16
" (seg %08"PRIx32
")\n",
159 (uint16_t)*(int64_t *)data
, segment
);
162 fprintf(ofile
, "rel4adr %08"PRIx32
" (seg %08"PRIx32
")\n",
163 (uint32_t)*(int64_t *)data
,
167 fprintf(ofile
, "rel8adr %016"PRIx64
" (seg %08"PRIx32
")\n",
168 (uint64_t)*(int64_t *)data
, segment
);
171 fprintf(ofile
, "unknown\n");
176 static void dbg_sectalign(int32_t seg
, unsigned int value
)
178 fprintf(ofile
, "set alignment (%d) for segment (%u)\n",
182 static int32_t dbg_segbase(int32_t segment
)
187 static int dbg_directive(enum directives directive
, char *value
, int pass
)
189 fprintf(ofile
, "directive [%s] value [%s] (pass %d)\n",
190 directives
[directive
], value
, pass
);
194 static void dbg_filename(char *inname
, char *outname
)
196 standard_extension(inname
, outname
, ".dbg");
199 static int dbg_set_info(enum geninfo type
, char **val
)
207 "unknown", "label", "byte", "word", "dword", "float", "qword", "tbyte"
209 static void dbgdbg_init(void)
211 fprintf(ofile
, " With debug info\n");
213 static void dbgdbg_cleanup(void)
217 static void dbgdbg_linnum(const char *lnfname
, int32_t lineno
, int32_t segto
)
219 fprintf(ofile
, "dbglinenum %s(%"PRId32
") := %08"PRIx32
"\n",
220 lnfname
, lineno
, segto
);
222 static void dbgdbg_deflabel(char *name
, int32_t segment
,
223 int64_t offset
, int is_global
, char *special
)
225 fprintf(ofile
, "dbglabel %s := %08"PRIx32
":%016"PRIx64
" %s (%d)%s%s\n",
228 is_global
== 2 ? "common" : is_global
? "global" : "local",
229 is_global
, special
? ": " : "", special
);
231 static void dbgdbg_define(const char *type
, const char *params
)
233 fprintf(ofile
, "dbgdirective [%s] value [%s]\n", type
, params
);
235 static void dbgdbg_output(int output_type
, void *param
)
240 static void dbgdbg_typevalue(int32_t type
)
242 fprintf(ofile
, "new type: %s(%"PRIX32
")\n",
243 types
[TYM_TYPE(type
) >> 3], TYM_ELEMENTS(type
));
245 static struct dfmt debug_debug_form
= {
246 "Trace of all info passed to debug stage",
257 static struct dfmt
*debug_debug_arr
[3] = {
263 struct ofmt of_dbg
= {
264 "Trace of all info passed to output stage",