in_handler in_check_mask and in_check_value now removed from field. Last big patch...
[fw/openocd] / src / target / arm_jtag.c
1 /***************************************************************************
2  *   Copyright (C) 2005 by Dominic Rath                                    *
3  *   Dominic.Rath@gmx.de                                                   *
4  *                                                                         *
5  *   Copyright (C) 2007,2008 Ã˜yvind Harboe                                 *
6  *   oyvind.harboe@zylin.com                                               *
7  *                                                                         *
8  *   This program is free software; you can redistribute it and/or modify  *
9  *   it under the terms of the GNU General Public License as published by  *
10  *   the Free Software Foundation; either version 2 of the License, or     *
11  *   (at your option) any later version.                                   *
12  *                                                                         *
13  *   This program is distributed in the hope that it will be useful,       *
14  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
15  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
16  *   GNU General Public License for more details.                          *
17  *                                                                         *
18  *   You should have received a copy of the GNU General Public License     *
19  *   along with this program; if not, write to the                         *
20  *   Free Software Foundation, Inc.,                                       *
21  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
22  ***************************************************************************/
23 #ifdef HAVE_CONFIG_H
24 #include "config.h"
25 #endif
26
27 #include "arm_jtag.h"
28
29 #include "binarybuffer.h"
30 #include "log.h"
31 #include "jtag.h"
32
33 #include <stdlib.h>
34
35 #if 0
36 #define _ARM_JTAG_SCAN_N_CHECK_
37 #endif
38
39 int arm_jtag_set_instr(arm_jtag_t *jtag_info, u32 new_instr,  void *no_verify_capture)
40 {
41         jtag_tap_t *tap;
42         tap = jtag_info->tap;
43         if (tap==NULL)
44                 return ERROR_FAIL;
45
46         if (buf_get_u32(tap->cur_instr, 0, tap->ir_length) != new_instr)
47         {
48                 scan_field_t field;
49                 u8 t[4];
50
51                 field.tap = tap;
52                 field.num_bits = tap->ir_length;
53                 field.out_value = t;
54                 buf_set_u32(field.out_value, 0, field.num_bits, new_instr);
55                 field.in_value = NULL;
56                 
57
58
59                 if (no_verify_capture==NULL)
60                 {
61                         jtag_add_ir_scan(1, &field, TAP_INVALID);
62                 } else
63                 {
64                         /* FIX!!!! this is a kludge!!! arm926ejs.c should reimplement this arm_jtag_set_instr to
65                          * have special verification code.
66                          */
67                         jtag_add_ir_scan_noverify(1, &field, TAP_INVALID);
68                 }
69         }
70
71         return ERROR_OK;
72 }
73
74 int arm_jtag_scann(arm_jtag_t *jtag_info, u32 new_scan_chain)
75 {
76         int retval = ERROR_OK;
77         if(jtag_info->cur_scan_chain != new_scan_chain)
78         {
79                 u32 values[1];
80                 int num_bits[1];
81
82                 values[0]=new_scan_chain;
83                 num_bits[0]=jtag_info->scann_size;
84
85                 if((retval = arm_jtag_set_instr(jtag_info, jtag_info->scann_instr, NULL)) != ERROR_OK)
86                 {
87                         return retval;
88                 }
89
90                 jtag_add_dr_out(jtag_info->tap,
91                                 1,
92                                 num_bits,
93                                 values,
94                                 TAP_INVALID);
95
96                 jtag_info->cur_scan_chain = new_scan_chain;
97         }
98
99         return retval;
100 }
101
102 int arm_jtag_reset_callback(enum jtag_event event, void *priv)
103 {
104         arm_jtag_t *jtag_info = priv;
105
106         if (event == JTAG_TRST_ASSERTED)
107         {
108                 jtag_info->cur_scan_chain = 0;
109         }
110
111         return ERROR_OK;
112 }
113
114 int arm_jtag_setup_connection(arm_jtag_t *jtag_info)
115 {
116         jtag_info->scann_instr = 0x2;
117         jtag_info->cur_scan_chain = 0;
118         jtag_info->intest_instr = 0xc;
119
120         return jtag_register_event_callback(arm_jtag_reset_callback, jtag_info);
121 }
122
123 /* read JTAG buffer into host-endian u32, flipping bit-order */
124 int arm_jtag_buf_to_u32_flip(u8 *in_buf, void *priv, struct scan_field_s *field)
125 {
126         u32 *dest = priv;
127         *dest = flip_u32(le_to_h_u32(in_buf), 32);
128         return ERROR_OK;
129 }
130
131 /* read JTAG buffer into little-endian u32, flipping bit-order */
132 int arm_jtag_buf_to_le32_flip(u8 *in_buf, void *priv, struct scan_field_s *field)
133 {
134         h_u32_to_le(((u8*)priv), flip_u32(le_to_h_u32(in_buf), 32));
135         return ERROR_OK;
136 }
137
138 /* read JTAG buffer into little-endian u16, flipping bit-order */
139 int arm_jtag_buf_to_le16_flip(u8 *in_buf, void *priv, struct scan_field_s *field)
140 {
141         h_u16_to_le(((u8*)priv), flip_u32(le_to_h_u32(in_buf), 32) & 0xffff);
142         return ERROR_OK;
143 }
144
145 /* read JTAG buffer into big-endian u32, flipping bit-order */
146 int arm_jtag_buf_to_be32_flip(u8 *in_buf, void *priv, struct scan_field_s *field)
147 {
148         h_u32_to_be(((u8*)priv), flip_u32(le_to_h_u32(in_buf), 32));
149         return ERROR_OK;
150 }
151
152 /* read JTAG buffer into big-endian u16, flipping bit-order */
153 int arm_jtag_buf_to_be16_flip(u8 *in_buf, void *priv, struct scan_field_s *field)
154 {
155         h_u16_to_be(((u8*)priv), flip_u32(le_to_h_u32(in_buf), 32) & 0xffff);
156         return ERROR_OK;
157 }
158
159 /* read JTAG buffer into u8, flipping bit-order */
160 int arm_jtag_buf_to_8_flip(u8 *in_buf, void *priv, struct scan_field_s *field)
161 {
162         u8 *dest = priv;
163         *dest = flip_u32(le_to_h_u32(in_buf), 32) & 0xff;
164         return ERROR_OK;
165 }
166
167 /* not-flipping variants */
168 /* read JTAG buffer into host-endian u32 */
169 int arm_jtag_buf_to_u32(u8 *in_buf, void *priv, struct scan_field_s *field)
170 {
171         u32 *dest = priv;
172         *dest = le_to_h_u32(in_buf);
173         return ERROR_OK;
174 }
175
176 /* read JTAG buffer into little-endian u32 */
177 int arm_jtag_buf_to_le32(u8 *in_buf, void *priv, struct scan_field_s *field)
178 {
179         h_u32_to_le(((u8*)priv), le_to_h_u32(in_buf));
180         return ERROR_OK;
181 }
182
183 /* read JTAG buffer into little-endian u16 */
184 int arm_jtag_buf_to_le16(u8 *in_buf, void *priv, struct scan_field_s *field)
185 {
186         h_u16_to_le(((u8*)priv), le_to_h_u32(in_buf) & 0xffff);
187         return ERROR_OK;
188 }
189
190 /* read JTAG buffer into big-endian u32 */
191 int arm_jtag_buf_to_be32(u8 *in_buf, void *priv, struct scan_field_s *field)
192 {
193         h_u32_to_be(((u8*)priv), le_to_h_u32(in_buf));
194         return ERROR_OK;
195 }
196
197 /* read JTAG buffer into big-endian u16 */
198 int arm_jtag_buf_to_be16(u8 *in_buf, void *priv, struct scan_field_s *field)
199 {
200         h_u16_to_be(((u8*)priv), le_to_h_u32(in_buf) & 0xffff);
201         return ERROR_OK;
202 }
203
204 /* read JTAG buffer into u8 */
205 int arm_jtag_buf_to_8(u8 *in_buf, void *priv, struct scan_field_s *field)
206 {
207         u8 *dest = priv;
208         *dest = le_to_h_u32(in_buf) & 0xff;
209         return ERROR_OK;
210 }