Commit | Line | Data |
---|---|---|
15c16493 AC |
1 | /* This file is part of the program psim. |
2 | ||
3 | Copyright (C) 1994-1996, Andrew Cagney <cagney@highland.com.au> | |
4 | Copyright (C) 1997, Free Software Foundation | |
5 | ||
6 | This program is free software; you can redistribute it and/or modify | |
7 | it under the terms of the GNU General Public License as published by | |
8 | the Free Software Foundation; either version 2 of the License, or | |
9 | (at your option) any later version. | |
10 | ||
11 | This program is distributed in the hope that it will be useful, | |
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | GNU General Public License for more details. | |
15 | ||
16 | You should have received a copy of the GNU General Public License | |
17 | along with this program; if not, write to the Free Software | |
18 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
19 | ||
20 | */ | |
21 | ||
22 | ||
15c16493 AC |
23 | #include <stdarg.h> |
24 | #include <ctype.h> | |
25 | ||
26 | #include "bfd.h" | |
27 | #include "sim-main.h" | |
d9b75947 AC |
28 | #include "sim-utils.h" |
29 | #include "sim-options.h" | |
15c16493 AC |
30 | |
31 | #ifdef HAVE_STDLIB_H | |
32 | #include <stdlib.h> | |
33 | #endif | |
34 | ||
35 | #ifdef HAVE_STRING_H | |
36 | #include <string.h> | |
37 | #else | |
38 | #ifdef HAVE_STRINGS_H | |
39 | #include <strings.h> | |
40 | #endif | |
41 | #endif | |
42 | ||
43 | ||
44 | #define SIM_ADDR unsigned | |
45 | ||
15c16493 | 46 | SIM_DESC |
50a2a691 AC |
47 | sim_open (SIM_OPEN_KIND kind, |
48 | host_callback *callback, | |
247fccde | 49 | struct _bfd *abfd, |
50a2a691 | 50 | char **argv) |
15c16493 | 51 | { |
6dbaff8f | 52 | char *buf; |
4b2a6aed | 53 | SIM_DESC sd = sim_state_alloc (kind, callback); |
15c16493 | 54 | |
2e61a3ad | 55 | if (sim_pre_argv_init (sd, argv[0]) != SIM_RC_OK) |
15c16493 AC |
56 | return 0; |
57 | ||
6dbaff8f AC |
58 | #define TIC80_MEM_START 0x2000000 |
59 | #define TIC80_MEM_SIZE 0x100000 | |
60 | ||
61 | /* main memory */ | |
62 | asprintf (&buf, "memory region 0x%lx,0x%lx", | |
63 | TIC80_MEM_START, TIC80_MEM_SIZE); | |
64 | sim_do_command (sd, buf); | |
65 | free (buf); | |
66 | /* interrupt memory */ | |
67 | sim_do_command (sd, "memory region 0x1010000,0x1000"); | |
68 | /* some memory at zero */ | |
69 | sim_do_command (sd, "memory region 0,0x100000"); | |
70 | ||
15c16493 AC |
71 | /* getopt will print the error message so we just have to exit if this fails. |
72 | FIXME: Hmmm... in the case of gdb we need getopt to call | |
73 | print_filtered. */ | |
2e61a3ad | 74 | if (sim_parse_args (sd, argv) != SIM_RC_OK) |
dd442a44 DE |
75 | { |
76 | /* Uninstall the modules to avoid memory leaks, | |
77 | file descriptor leaks, etc. */ | |
2e61a3ad | 78 | sim_module_uninstall (sd); |
dd442a44 DE |
79 | return 0; |
80 | } | |
81 | ||
fafce69a AC |
82 | /* check for/establish the a reference program image */ |
83 | if (sim_analyze_program (sd, | |
84 | (STATE_PROG_ARGV (sd) != NULL | |
85 | ? *STATE_PROG_ARGV (sd) | |
86 | : NULL), | |
87 | abfd) != SIM_RC_OK) | |
88 | { | |
89 | sim_module_uninstall (sd); | |
90 | return 0; | |
91 | } | |
92 | ||
93 | /* establish any remaining configuration options */ | |
94 | if (sim_config (sd) != SIM_RC_OK) | |
247fccde AC |
95 | { |
96 | sim_module_uninstall (sd); | |
97 | return 0; | |
98 | } | |
99 | ||
2e61a3ad | 100 | if (sim_post_argv_init (sd) != SIM_RC_OK) |
dd442a44 DE |
101 | { |
102 | /* Uninstall the modules to avoid memory leaks, | |
103 | file descriptor leaks, etc. */ | |
2e61a3ad | 104 | sim_module_uninstall (sd); |
dd442a44 DE |
105 | return 0; |
106 | } | |
15c16493 | 107 | |
15c16493 | 108 | /* FIXME: for now */ |
2e61a3ad | 109 | return sd; |
15c16493 AC |
110 | } |
111 | ||
112 | ||
15c16493 AC |
113 | void |
114 | sim_close (SIM_DESC sd, int quitting) | |
115 | { | |
dd442a44 DE |
116 | /* Uninstall the modules to avoid memory leaks, |
117 | file descriptor leaks, etc. */ | |
2e61a3ad | 118 | sim_module_uninstall (sd); |
15c16493 AC |
119 | } |
120 | ||
121 | ||
abe293a0 AC |
122 | /* FIXME - these magic numbers need to be moved elsewhere */ |
123 | ||
124 | #define SP_REGNUM 1 /* Contains address of top of stack */ | |
125 | #define FP_REGNUM 31 /* Contains address of executing stack frame */ | |
126 | #define PC_REGNUM 32 /* Contains program counter (FIXME?) */ | |
127 | #define NPC_REGNUM 33 /* Contains the next program counter (FIXME?) */ | |
128 | #define A0_REGNUM 34 /* Accumulator register 0 */ | |
129 | #define A3_REGNUM 37 /* Accumulator register 1 */ | |
130 | ||
131 | #define R0_REGNUM 0 /* General Purpose Register 0 - for sim */ | |
132 | #define Rn_REGNUM 31 /* Last General Purpose Register - for sim */ | |
133 | #define An_REGNUM A3_REGNUM /* Last Accumulator register - for sim */ | |
134 | ||
fbb8b6b9 AC |
135 | int |
136 | sim_fetch_register (SIM_DESC sd, int regnr, unsigned char *buf, int length) | |
15c16493 | 137 | { |
37a684b8 AC |
138 | if (regnr == R0_REGNUM) |
139 | memset (buf, 0, sizeof (unsigned32)); | |
140 | else if (regnr > R0_REGNUM && regnr <= Rn_REGNUM) | |
c445af5a | 141 | *(unsigned32*)buf = H2T_4 (STATE_CPU (sd, 0)->reg[regnr - R0_REGNUM]); |
abe293a0 AC |
142 | else if (regnr == PC_REGNUM) |
143 | *(unsigned32*)buf = H2T_4 (STATE_CPU (sd, 0)->cia.ip); | |
144 | else if (regnr == NPC_REGNUM) | |
145 | *(unsigned32*)buf = H2T_4 (STATE_CPU (sd, 0)->cia.dp); | |
146 | else if (regnr >= A0_REGNUM && regnr <= An_REGNUM) | |
147 | *(unsigned64*)buf = H2T_8 (STATE_CPU (sd, 0)->acc[regnr - A0_REGNUM]); | |
148 | else | |
149 | sim_io_error (sd, "sim_fetch_register - unknown register nr %d", regnr); | |
fbb8b6b9 | 150 | return -1; |
15c16493 AC |
151 | } |
152 | ||
153 | ||
fbb8b6b9 AC |
154 | int |
155 | sim_store_register (SIM_DESC sd, int regnr, unsigned char *buf, int length) | |
15c16493 | 156 | { |
abe293a0 | 157 | if (regnr >= R0_REGNUM && regnr <= Rn_REGNUM) |
c445af5a | 158 | STATE_CPU (sd, 0)->reg[regnr - R0_REGNUM] = T2H_4 (*(unsigned32*)buf); |
abe293a0 AC |
159 | else if (regnr == PC_REGNUM) |
160 | STATE_CPU (sd, 0)->cia.ip = T2H_4 (*(unsigned32*)buf); | |
161 | else if (regnr == NPC_REGNUM) | |
162 | STATE_CPU (sd, 0)->cia.dp = T2H_4 (*(unsigned32*)buf); | |
9e61ae7d | 163 | else if (regnr >= A0_REGNUM && regnr <= An_REGNUM) |
43c53e07 | 164 | STATE_CPU (sd, 0)->acc[regnr - A0_REGNUM] = T2H_8 (*(unsigned64*)buf); |
abe293a0 | 165 | else |
9e61ae7d | 166 | sim_io_error (sd, "sim_store_register - unknown register nr %d", regnr); |
fbb8b6b9 | 167 | return -1; |
15c16493 AC |
168 | } |
169 | ||
170 | ||
15c16493 AC |
171 | SIM_RC |
172 | sim_create_inferior (SIM_DESC sd, | |
fafce69a | 173 | struct _bfd *abfd, |
15c16493 AC |
174 | char **argv, |
175 | char **envp) | |
176 | { | |
a34abff8 AC |
177 | /* clear all registers */ |
178 | memset (&STATE_CPU (sd, 0)->reg, 0, sizeof (STATE_CPU (sd, 0)->reg)); | |
179 | memset (&STATE_CPU (sd, 0)->acc, 0, sizeof (STATE_CPU (sd, 0)->acc)); | |
180 | memset (&STATE_CPU (sd, 0)->cr, 0, sizeof (STATE_CPU (sd, 0)->cr)); | |
181 | STATE_CPU (sd, 0)->is_user_mode = 0; | |
182 | memset (&STATE_CPU (sd, 0)->cia, 0, sizeof (STATE_CPU (sd, 0)->cia)); | |
183 | /* initialize any modules */ | |
184 | sim_module_init (sd); | |
185 | /* set the stack-pointer/program counter */ | |
fafce69a AC |
186 | if (abfd != NULL) |
187 | STATE_CPU (sd, 0)->cia.ip = bfd_get_start_address (abfd); | |
188 | else | |
189 | STATE_CPU (sd, 0)->cia.ip = 0; | |
190 | STATE_CPU (sd, 0)->cia.dp = (STATE_CPU (sd, 0)->cia.ip | |
15c16493 | 191 | + sizeof (instruction_word)); |
381f42ef | 192 | STATE_CPU (sd, 0)->cr[IE_CR] |= IE_CR_IE; |
d5e2c74e | 193 | STATE_CPU (sd, 0)->reg[1] = TIC80_MEM_START + TIC80_MEM_SIZE - 16; |
15c16493 AC |
194 | return SIM_RC_OK; |
195 | } | |
196 | ||
197 | ||
15c16493 AC |
198 | void |
199 | sim_do_command (SIM_DESC sd, char *cmd) | |
200 | { | |
43c53e07 AC |
201 | if (sim_args_command (sd, cmd) != SIM_RC_OK) |
202 | sim_io_eprintf (sd, "Unknown command `%s'\n", cmd); | |
15c16493 | 203 | } |