Major file restructuring.
[cacao.git] / src / vm / jit / i386 / dis-buf.c
1 /* Disassemble from a buffer, for GNU.
2    Copyright 1993, 1994, 1996, 1997, 1998, 1999, 2000
3    Free Software Foundation, Inc.
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
18
19 /*  #include "sysdep.h" */
20 #include "dis-asm.h"
21 #include <errno.h>
22 /*  #include "opintl.h" */
23
24 /* Get LENGTH bytes from info's buffer, at target address memaddr.
25    Transfer them to myaddr.  */
26 #if 0
27 int
28 buffer_read_memory (memaddr, myaddr, length, info)
29      bfd_vma memaddr;
30      bfd_byte *myaddr;
31      unsigned int length;
32      struct disassemble_info *info;
33 {
34   unsigned int opb = info->octets_per_byte;
35   unsigned int end_addr_offset = length / opb;
36   unsigned int max_addr_offset = info->buffer_length / opb; 
37   unsigned int octets = (memaddr - info->buffer_vma) * opb;
38
39   printf("%d %d\n", memaddr, info->buffer_vma);
40   if (memaddr < info->buffer_vma
41       || memaddr - info->buffer_vma + end_addr_offset > max_addr_offset)
42     /* Out of bounds.  Use EIO because GDB uses it.  */
43     return EIO;
44   memcpy (myaddr, info->buffer + octets, length);
45
46   return 0;
47 }
48 #endif
49
50 /* Print an error message.  We can assume that this is in response to
51    an error return from buffer_read_memory.  */
52 void
53 perror_memory (status, memaddr, info)
54      int status;
55      bfd_vma memaddr;
56      struct disassemble_info *info;
57 {
58   if (status != EIO)
59     /* Can't happen.  */
60     info->fprintf_func (info->stream, _("Unknown error %d\n"), status);
61   else
62     /* Actually, address between memaddr and memaddr + len was
63        out of bounds.  */
64     info->fprintf_func (info->stream,
65                         _("Address 0x%x is out of bounds.\n"), memaddr);
66 }
67
68 /* This could be in a separate file, to save miniscule amounts of space
69    in statically linked executables.  */
70
71 /* Just print the address is hex.  This is included for completeness even
72    though both GDB and objdump provide their own (to print symbolic
73    addresses).  */
74
75 void
76 generic_print_address (addr, info)
77      bfd_vma addr;
78      struct disassemble_info *info;
79 {
80   char buf[30];
81
82   sprintf_vma (buf, addr);
83   (*info->fprintf_func) (info->stream, "0x%s", buf);
84 }
85
86 #if 0
87 /* Just concatenate the address as hex.  This is included for
88    completeness even though both GDB and objdump provide their own (to
89    print symbolic addresses).  */
90
91 void generic_strcat_address PARAMS ((bfd_vma, char *, int));
92
93 void
94 generic_strcat_address (addr, buf, len)
95      bfd_vma addr;
96      char *buf;
97      int len;
98 {
99   if (buf != (char *)NULL && len > 0)
100     {
101       char tmpBuf[30];
102
103       sprintf_vma (tmpBuf, addr);
104       if ((strlen (buf) + strlen (tmpBuf)) <= (unsigned int) len)
105         strcat (buf, tmpBuf);
106       else
107         strncat (buf, tmpBuf, (len - strlen(buf)));
108     }
109   return;
110 }
111 #endif
112
113 /* Just return the given address.  */
114
115 int
116 generic_symbol_at_address (addr, info)
117      bfd_vma addr ATTRIBUTE_UNUSED;
118      struct disassemble_info *info ATTRIBUTE_UNUSED;
119 {
120   return 1;
121 }