Major file restructuring.
[cacao.git] / src / vm / jit / powerpc / disass.c
1 /* jit/powerpc/disass.c - wrapper functions for GNU binutils disassembler
2
3    Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4    Institut f. Computersprachen, TU Wien
5    R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser, M. Probst,
6    S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich,
7    J. Wenninger
8
9    This file is part of CACAO.
10
11    This program is free software; you can redistribute it and/or
12    modify it under the terms of the GNU General Public License as
13    published by the Free Software Foundation; either version 2, or (at
14    your option) any later version.
15
16    This program is distributed in the hope that it will be useful, but
17    WITHOUT ANY WARRANTY; without even the implied warranty of
18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19    General Public License for more details.
20
21    You should have received a copy of the GNU General Public License
22    along with this program; if not, write to the Free Software
23    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24    02111-1307, USA.
25
26    Contact: cacao@complang.tuwien.ac.at
27
28    Authors: Andreas  Krall
29             Reinhard Grafl
30
31    Changes: Stefan Ring
32
33    $Id: disass.c 568 2003-11-06 14:42:16Z twisti $
34
35 */
36
37
38 #include <stdarg.h>
39 #include <string.h>
40 #include <assert.h>
41 #include "disass.h"
42 #include "dis-asm.h"
43
44 char *regs[] = {
45         "r0",
46         "r1",
47         "r2",
48         "r3",
49         "r4",
50         "r5",
51         "r6",
52         "r7",
53         "r8",
54         "r9",
55         "r10",
56         "r11",
57         "r12",
58         "r13",
59         "r14",
60         "r15",
61         "r16",
62         "r17",
63         "r18",
64         "r19",
65         "r20",
66         "r21",
67         "r22",
68         "r23",
69         "r24",
70         "r25",
71         "r26",
72         "r27",
73         "r28",
74         "r29",
75         "r30",
76         "r31",
77 };
78
79
80 void myprintf(PTR p, const char *fmt, ...)
81 {
82         va_list ap;
83         va_start(ap, fmt);
84         vprintf(fmt, ap);
85         va_end(ap);
86         fflush(stdout);
87 }
88
89
90 int buffer_read_memory(bfd_vma memaddr, bfd_byte *myaddr, unsigned int length, struct disassemble_info *info)
91 {
92         memcpy(myaddr, (void*) memaddr, length);
93         return 0;
94 }
95
96
97 void perror_memory(int status, bfd_vma memaddr, struct disassemble_info *info)
98 {
99         assert(0);
100 }
101
102
103 void generic_print_address(bfd_vma addr, struct disassemble_info *info)
104 {
105         myprintf(NULL, "0x%x", addr - (u4) info->application_data);
106 }
107
108
109 int generic_symbol_at_address(bfd_vma addr, struct disassemble_info *info)
110 {
111         assert(0);
112 }
113
114
115 unsigned long bfd_getb32(void *buf)
116 {
117         return *(unsigned long *) buf;
118 }
119
120
121 unsigned long bfd_getl32(void *buf)
122 {
123         return *(unsigned long *) buf;
124 }
125
126
127 void sprintf_vma(char *buf, bfd_vma disp)
128 {
129         sprintf(buf, "0x%x", disp);
130 }
131
132
133 void disassinstr(int c, int pos)
134 {
135         disassemble_info info;
136
137         printf("%6x: %8x  ", pos, c);
138
139         INIT_DISASSEMBLE_INFO(info, NULL, myprintf);
140         info.application_data = (PTR) ((u4) &c - pos);
141         print_insn_big_powerpc((bfd_vma) &c, &info);
142         printf ("\n");
143 }
144
145
146 void disassemble(int *code, int len)
147 {
148         int p;
149         disassemble_info info;
150
151         INIT_DISASSEMBLE_INFO(info, NULL, myprintf);
152         info.application_data = code;
153         printf ("  --- disassembler listing ---\n");
154         for (p = 0; p < len; p += 4, code++) {
155                 myprintf(NULL, "%6x: %08x  ", p, *code);
156                 print_insn_big_powerpc((bfd_vma) p, &info);
157                 myprintf(NULL, "\n");
158         }
159 }
160
161
162 /*
163  * These are local overrides for various environment variables in Emacs.
164  * Please do not remove this and leave it at the end of the file, where
165  * Emacs will automagically detect them.
166  * ---------------------------------------------------------------------
167  * Local variables:
168  * mode: c
169  * indent-tabs-mode: t
170  * c-basic-offset: 4
171  * tab-width: 4
172  * End:
173  */