Mercurial > flash_v2
annotate packages/hal/common/current/src/hal_stub.c @ 70:c5536bad4c24 ecos-sw-2000-02-11
Merge from eCos master repository on 2000-02-11-15:46:40-GMT
| author | jlarmour |
|---|---|
| date | Fri, 11 Feb 2000 16:47:32 +0000 |
| parents | bf00f99aec69 |
| children | 435cced73e2f |
| rev | line source |
|---|---|
| 2 | 1 //============================================================================= |
| 2 // | |
| 3 // hal_stub.c | |
| 4 // | |
| 5 // Helper functions for stub, specific to eCos HAL | |
| 6 // | |
| 7 //============================================================================= | |
| 8 //####COPYRIGHTBEGIN#### | |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
9 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
10 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
11 // The contents of this file are subject to the Red Hat eCos Public License |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
12 // Version 1.1 (the "License"); you may not use this file except in |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
13 // compliance with the License. You may obtain a copy of the License at |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
14 // http://www.redhat.com/ |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
15 // |
|
66
bf00f99aec69
Merge from eCos master repository on 2000-02-02-19:16:44-GMT
jlarmour
parents:
64
diff
changeset
|
16 // Software distributed under the License is distributed on an "AS IS" |
|
64
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
17 // basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
18 // License for the specific language governing rights and limitations under |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
19 // the License. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
20 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
21 // The Original Code is eCos - Embedded Configurable Operating System, |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
22 // released September 30, 1998. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
23 // |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
24 // The Initial Developer of the Original Code is Red Hat. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
25 // Portions created by Red Hat are |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
26 // Copyright (C) 1998, 1999, 2000 Red Hat, Inc. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
27 // All Rights Reserved. |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
28 // ------------------------------------------- |
|
c38311975d4f
Merge from eCos master repository on 2000-01-28-04:28:11-GMT
jlarmour
parents:
50
diff
changeset
|
29 // |
| 2 | 30 //####COPYRIGHTEND#### |
| 31 //============================================================================= | |
| 32 //#####DESCRIPTIONBEGIN#### | |
| 33 // | |
| 34 // Author(s): jskov (based on powerpc/cogent hal_stub.c) | |
| 35 // Contributors:jskov | |
| 36 // Date: 1999-02-12 | |
| 37 // Purpose: Helper functions for stub, specific to eCos HAL | |
| 38 // Description: Parts of the GDB stub requirements are provided by | |
| 39 // the eCos HAL, rather than target and/or board specific | |
| 40 // code. | |
| 41 // | |
| 42 //####DESCRIPTIONEND#### | |
| 43 // | |
| 44 //============================================================================= | |
| 45 | |
| 46 #include <pkgconf/hal.h> | |
|
50
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
47 #ifdef CYGPKG_CYGMON |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
48 #include <pkgconf/cygmon.h> |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
49 #endif |
| 2 | 50 |
| 51 #ifdef CYGDBG_HAL_DEBUG_GDB_INCLUDE_STUBS | |
| 52 | |
| 53 #include <cyg/hal/hal_stub.h> // Our header | |
| 54 | |
| 55 #include <cyg/hal/hal_arch.h> // HAL_BREAKINST | |
| 56 #include <cyg/hal/hal_cache.h> // HAL_xCACHE_x | |
| 57 #include <cyg/hal/hal_intr.h> // interrupt disable/restore | |
| 58 | |
| 59 #ifdef CYGDBG_HAL_DEBUG_GDB_THREAD_SUPPORT | |
| 60 #include <cyg/hal/dbg-threads-api.h> // dbg_currthread_id | |
| 61 #endif | |
| 62 | |
| 63 | |
| 64 //----------------------------------------------------------------------------- | |
| 65 // Extra eCos data. | |
| 66 | |
| 67 // Saved registers. | |
| 68 HAL_SavedRegisters *_hal_registers; | |
| 69 target_register_t registers[NUMREGS]; | |
|
14
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
12
diff
changeset
|
70 target_register_t alt_registers[NUMREGS] ; // Thread or saved process state |
|
01ce82f3e11a
Merge from eCos master repository on 1999-06-11-17:05:41-BST
jlarmour
parents:
12
diff
changeset
|
71 target_register_t * _registers = registers; // Pointer to current set of registers |
| 2 | 72 |
| 73 // Interrupt control. | |
| 74 static volatile __PFI __interruptible_control; | |
| 75 | |
| 76 //----------------------------------------------------------------------------- | |
| 77 // Register access | |
| 78 | |
| 79 // Return the currently-saved value corresponding to register REG of | |
| 80 // the exception context. | |
| 81 target_register_t | |
| 82 get_register (regnames_t reg) | |
| 83 { | |
| 84 return _registers[reg]; | |
| 85 } | |
| 86 | |
| 87 // Store VALUE in the register corresponding to WHICH in the exception | |
| 88 // context. | |
| 89 void | |
| 90 put_register (regnames_t which, target_register_t value) | |
| 91 { | |
| 92 _registers[which] = value; | |
| 93 } | |
| 94 | |
| 95 //----------------------------------------------------------------------------- | |
| 96 // Serial stuff | |
| 97 | |
| 98 // Write C to the current serial port. | |
| 99 void | |
| 100 putDebugChar (int c) | |
| 101 { | |
| 102 HAL_STUB_PLATFORM_PUT_CHAR(c); | |
| 103 } | |
| 104 | |
| 105 // Read one character from the current serial port. | |
| 106 int | |
| 107 getDebugChar (void) | |
| 108 { | |
| 109 return HAL_STUB_PLATFORM_GET_CHAR(); | |
| 110 } | |
| 111 | |
| 112 // Set the baud rate for the current serial port. | |
| 113 void | |
| 114 __set_baud_rate (int baud) | |
| 115 { | |
| 116 HAL_STUB_PLATFORM_SET_BAUD_RATE(baud); | |
| 117 } | |
| 118 | |
| 119 //----------------------------------------------------------------------------- | |
| 120 // GDB interrupt (BREAK) support. | |
| 121 | |
| 122 #ifdef CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT | |
| 123 | |
|
38
e7ba79f6d3a8
Merge from eCos master repository on 1999-09-23-20:10:25-BST
jlarmour
parents:
34
diff
changeset
|
124 |
|
30
641b639be825
Merge from eCos master repository on 1999-08-16-22:01:37-BST
jlarmour
parents:
14
diff
changeset
|
125 #if (HAL_BREAKINST_SIZE == 1) |
|
641b639be825
Merge from eCos master repository on 1999-08-16-22:01:37-BST
jlarmour
parents:
14
diff
changeset
|
126 typedef cyg_uint8 t_inst; |
|
641b639be825
Merge from eCos master repository on 1999-08-16-22:01:37-BST
jlarmour
parents:
14
diff
changeset
|
127 #elif (HAL_BREAKINST_SIZE == 2) |
|
12
4cc3eff958ab
Merge from eCos master repository on 1999-06-04-22:24:56-BST
jlarmour
parents:
10
diff
changeset
|
128 typedef cyg_uint16 t_inst; |
|
4cc3eff958ab
Merge from eCos master repository on 1999-06-04-22:24:56-BST
jlarmour
parents:
10
diff
changeset
|
129 #elif (HAL_BREAKINST_SIZE == 4) |
|
4cc3eff958ab
Merge from eCos master repository on 1999-06-04-22:24:56-BST
jlarmour
parents:
10
diff
changeset
|
130 typedef cyg_uint32 t_inst; |
|
4cc3eff958ab
Merge from eCos master repository on 1999-06-04-22:24:56-BST
jlarmour
parents:
10
diff
changeset
|
131 #else |
|
4cc3eff958ab
Merge from eCos master repository on 1999-06-04-22:24:56-BST
jlarmour
parents:
10
diff
changeset
|
132 #error "Don't know how to handle that size" |
|
4cc3eff958ab
Merge from eCos master repository on 1999-06-04-22:24:56-BST
jlarmour
parents:
10
diff
changeset
|
133 #endif |
| 2 | 134 |
| 135 typedef struct | |
| 136 { | |
| 137 t_inst *targetAddr; | |
| 138 t_inst savedInstr; | |
| 139 } instrBuffer; | |
| 140 | |
| 141 static instrBuffer break_buffer; | |
| 142 | |
|
48
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
143 volatile int cyg_hal_gdb_running_step = 0; |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
144 |
| 2 | 145 void |
|
50
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
146 cyg_hal_gdb_place_break (target_register_t pc) |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
147 { |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
148 cyg_hal_gdb_interrupt( pc ); // Let's hope this becomes a drop-through: |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
149 } |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
150 |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
151 void |
| 2 | 152 cyg_hal_gdb_interrupt (target_register_t pc) |
| 153 { | |
|
50
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
154 // Clear flag that we Continued instead of Stepping |
|
48
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
155 cyg_hal_gdb_running_step = 0; |
|
50
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
156 // and override existing break? So that a ^C takes effect... |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
157 if (NULL != break_buffer.targetAddr) |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
158 cyg_hal_gdb_remove_break( (target_register_t)break_buffer.targetAddr ); |
|
a0774359f013
Merge from eCos master repository on 1999-11-02-17:02:15-GMT
jlarmour
parents:
48
diff
changeset
|
159 |
| 2 | 160 if (NULL == break_buffer.targetAddr) { |
| 161 break_buffer.targetAddr = (t_inst*) pc; | |
| 162 break_buffer.savedInstr = *(t_inst*)pc; | |
| 163 *(t_inst*)pc = (t_inst)HAL_BREAKINST; | |
| 164 | |
| 165 __data_cache(CACHE_FLUSH); | |
| 166 __instruction_cache(CACHE_FLUSH); | |
| 167 } | |
| 168 } | |
| 169 | |
| 170 int | |
| 171 cyg_hal_gdb_remove_break (target_register_t pc) | |
| 172 { | |
|
48
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
173 if ( cyg_hal_gdb_running_step ) |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
174 return 0; |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
175 |
| 2 | 176 if ((t_inst*)pc == break_buffer.targetAddr) { |
| 177 *(t_inst*)pc = break_buffer.savedInstr; | |
| 178 break_buffer.targetAddr = NULL; | |
| 179 | |
| 180 __data_cache(CACHE_FLUSH); | |
| 181 __instruction_cache(CACHE_FLUSH); | |
| 182 return 1; | |
| 183 } | |
| 184 return 0; | |
| 185 } | |
| 186 | |
|
48
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
187 int |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
188 cyg_hal_gdb_break_is_set (void) |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
189 { |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
190 if (NULL != break_buffer.targetAddr) { |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
191 return 1; |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
192 } |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
193 return 0; |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
194 } |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
195 |
|
38
e7ba79f6d3a8
Merge from eCos master repository on 1999-09-23-20:10:25-BST
jlarmour
parents:
34
diff
changeset
|
196 |
| 2 | 197 #endif // CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT |
| 198 | |
| 199 // Use this function to disable serial interrupts whenever reply | |
| 200 // characters are expected from GDB. The reason we want to control | |
| 201 // whether the target can be interrupted or not is simply that GDB on | |
| 202 // the host will be sending acknowledge characters/commands while the | |
| 203 // stub is running - if serial interrupts were still active, the | |
| 204 // characters would never reach the (polling) getDebugChar. | |
| 205 static void | |
| 206 interruptible(int state) | |
| 207 { | |
| 208 static int __interrupts_suspended = 0; | |
| 209 | |
| 210 if (__interruptible_control) { | |
| 211 if (state) { | |
| 212 __interrupts_suspended--; | |
| 213 if (0 >= __interrupts_suspended) { | |
| 214 __interrupts_suspended = 0; | |
| 215 __interruptible_control(1); | |
| 216 } | |
| 217 } else { | |
| 218 __interrupts_suspended++; | |
| 219 if (1 == __interrupts_suspended) | |
| 220 __interruptible_control(0); | |
| 221 } | |
| 222 } | |
| 223 } | |
| 224 | |
| 225 //----------------------------------------------------------------------------- | |
| 226 // eCos stub entry and exit magic. | |
| 227 | |
| 228 #ifdef CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT | |
| 229 int cyg_hal_gdb_break; | |
| 230 #endif | |
| 231 | |
| 232 // Called at stub *entry* | |
| 233 static void | |
| 234 handle_exception_cleanup( void ) | |
| 235 { | |
| 236 interruptible(0); | |
| 237 | |
| 238 // Expand the HAL_SavedRegisters structure into the GDB register | |
| 239 // array format. | |
| 240 HAL_GET_GDB_REGISTERS(®isters[0], _hal_registers); | |
| 241 _registers = ®isters[0]; | |
| 242 | |
|
8
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
243 #ifdef HAL_STUB_PLATFORM_STUBS_FIXUP |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
244 // Some architectures may need to fix the PC in case of a partial |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
245 // or fully executed trap instruction. GDB only takes correct action |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
246 // when the PC is pointing to the breakpoint instruction it set. |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
247 // |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
248 // Most architectures would leave PC pointing at the trap |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
249 // instruction itself though, and so do not need to do anything |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
250 // special. |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
251 HAL_STUB_PLATFORM_STUBS_FIXUP(); |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
252 #endif |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
253 |
| 2 | 254 #ifdef CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT |
|
48
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
255 // If we continued instead of stepping, when there was a break set |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
256 // ie. we were stepping within a critical region, clear the break, and |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
257 // that flag. If we stopped for some other reason, this has no effect. |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
258 if ( cyg_hal_gdb_running_step ) { |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
259 cyg_hal_gdb_running_step = 0; |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
260 cyg_hal_gdb_remove_break(get_register (PC)); |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
261 } |
|
1370c5e55234
Merge from eCos master repository on 1999-10-25-21:18:27-BST
jlarmour
parents:
38
diff
changeset
|
262 |
| 2 | 263 // FIXME: (there may be a better way to do this) |
| 264 // If we hit a breakpoint set by the gdb interrupt stub, make it | |
| 265 // seem like an interrupt rather than having hit a breakpoint. | |
| 266 if (cyg_hal_gdb_remove_break(get_register (PC))) | |
| 267 cyg_hal_gdb_break = 1; | |
| 268 else | |
| 269 cyg_hal_gdb_break = 0; | |
| 270 #endif | |
| 271 } | |
| 272 | |
| 273 // Called at stub *exit* | |
| 274 static void | |
| 275 handle_exception_init( void ) | |
| 276 { | |
| 277 // Compact register array again. | |
| 278 HAL_SET_GDB_REGISTERS(_hal_registers, ®isters[0]); | |
| 279 | |
| 280 interruptible(1); | |
| 281 } | |
| 282 | |
| 283 | |
| 284 //----------------------------------------------------------------------------- | |
| 285 // Initialization. | |
| 286 | |
| 287 // Signal handler. | |
| 288 int | |
| 289 cyg_hal_process_signal (int signal) | |
| 290 { | |
| 291 // We don't care about the signal (atm). | |
| 292 return 0; | |
| 293 } | |
| 294 | |
| 295 // Install the standard set of trap handlers for the stub. | |
| 296 void | |
| 297 __install_traps (void) | |
| 298 { | |
| 299 // Set signal handling vector so we can treat 'C<signum>' as 'c'. | |
| 300 __process_signal_vec = &cyg_hal_process_signal; | |
|
8
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
301 // Set exit vector to reset vector. This will allow automatic reset on |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
302 // some platforms. |
|
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
303 __process_exit_vec = &__reset; |
| 2 | 304 |
| 305 __cleanup_vec = &handle_exception_cleanup; | |
| 306 __init_vec = &handle_exception_init; | |
| 307 | |
| 308 #ifdef CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT | |
| 309 // Control of GDB interrupts. | |
| 310 __interruptible_control = HAL_STUB_PLATFORM_INTERRUPTIBLE; | |
| 311 #endif | |
| 312 | |
| 313 // Nothing further to do, handle_exception will be called when an | |
| 314 // exception occurs. | |
| 315 } | |
| 316 | |
| 317 // Initialize the hardware. | |
| 318 void | |
| 319 initHardware (void) | |
| 320 { | |
| 321 static int initialized = 0; | |
| 322 | |
| 323 if (!initialized) { | |
| 324 initialized = 1; | |
| 325 | |
|
10
d3fbcdfa1b2f
Merge from eCos master repository on 1999-05-29-00:13:11-BST
jlarmour
parents:
8
diff
changeset
|
326 #ifdef HAL_STUB_PLATFORM_INIT |
|
d3fbcdfa1b2f
Merge from eCos master repository on 1999-05-29-00:13:11-BST
jlarmour
parents:
8
diff
changeset
|
327 // If the platform defines any initialization code, call it here. |
|
d3fbcdfa1b2f
Merge from eCos master repository on 1999-05-29-00:13:11-BST
jlarmour
parents:
8
diff
changeset
|
328 HAL_STUB_PLATFORM_INIT(); |
|
d3fbcdfa1b2f
Merge from eCos master repository on 1999-05-29-00:13:11-BST
jlarmour
parents:
8
diff
changeset
|
329 #endif |
|
d3fbcdfa1b2f
Merge from eCos master repository on 1999-05-29-00:13:11-BST
jlarmour
parents:
8
diff
changeset
|
330 |
| 2 | 331 // Get serial port initialized. |
| 332 HAL_STUB_PLATFORM_INIT_SERIAL(); | |
| 333 | |
| 334 #ifdef CYGDBG_HAL_DEBUG_GDB_BREAK_SUPPORT | |
| 335 // Get interrupt handler initialized. | |
| 336 HAL_STUB_PLATFORM_INIT_BREAK_IRQ(); | |
| 337 #endif | |
| 338 } | |
| 339 } | |
| 340 | |
| 341 // Reset the board. | |
| 342 void | |
| 343 __reset (void) | |
| 344 { | |
| 345 HAL_STUB_PLATFORM_RESET(); | |
| 346 } | |
| 347 | |
| 348 //----------------------------------------------------------------------------- | |
| 349 // Breakpoint support. | |
| 350 | |
| 351 #ifndef CYGPKG_HAL_ARM | |
| 352 // This function will generate a breakpoint exception. It is used at | |
| 353 // the beginning of a program to sync up with a debugger and can be | |
| 354 // used otherwise as a quick means to stop program execution and | |
| 355 // "break" into the debugger. | |
| 356 void | |
| 357 breakpoint() | |
| 358 { | |
| 359 HAL_BREAKPOINT(_breakinst); | |
| 360 } | |
| 361 | |
| 362 // This function returns the opcode for a 'trap' instruction. | |
| 363 unsigned long | |
| 364 __break_opcode () | |
| 365 { | |
| 366 return HAL_BREAKINST; | |
| 367 } | |
| 368 #endif | |
| 369 | |
| 370 // FIXME: Add support for multiple breakpoints (libstub/bplist-dynamic.c) | |
| 371 int __set_breakpoint (target_register_t addr) { return 0; } | |
| 372 int __remove_breakpoint (target_register_t addr) { return 0; } | |
| 373 | |
| 374 //----------------------------------------------------------------------------- | |
| 375 // Write the 'T' packet in BUFFER. SIGVAL is the signal the program received. | |
| 376 void | |
| 377 __build_t_packet (int sigval, char *buf) | |
| 378 { | |
| 379 target_register_t addr; | |
| 380 char *ptr = buf; | |
|
6
d376b777e2ce
Merge from eCos master repository on 1999-05-14-19:27:43-BST
jlarmour
parents:
2
diff
changeset
|
381 target_register_t sp; |
| 2 | 382 |
|
6
d376b777e2ce
Merge from eCos master repository on 1999-05-14-19:27:43-BST
jlarmour
parents:
2
diff
changeset
|
383 sp = (target_register_t) get_register (SP); |
| 2 | 384 |
| 385 *ptr++ = 'T'; | |
| 386 *ptr++ = __tohex (sigval >> 4); | |
| 387 *ptr++ = __tohex (sigval); | |
| 388 | |
| 389 #ifdef CYGDBG_HAL_DEBUG_GDB_THREAD_SUPPORT | |
| 390 // Include thread ID if thread manipulation is required. | |
| 391 { | |
| 392 int id; | |
| 393 | |
| 394 *ptr++ = 't'; | |
| 395 *ptr++ = 'h'; | |
| 396 *ptr++ = 'r'; | |
| 397 *ptr++ = 'e'; | |
| 398 *ptr++ = 'a'; | |
| 399 *ptr++ = 'd'; | |
| 400 *ptr++ = ':'; | |
| 401 | |
| 402 #if (CYG_BYTEORDER == CYG_MSBFIRST) | |
| 403 id = dbg_currthread_id (); | |
| 404 #else | |
| 405 // FIXME: Temporary workaround for PR 18903. Thread ID must be | |
| 406 // big-endian in the T packet. | |
| 407 { | |
| 408 unsigned char* bep = (unsigned char*)&id; | |
| 409 int be_id; | |
| 410 | |
| 411 be_id = dbg_currthread_id (); | |
| 412 *bep++ = (be_id >> 24) & 0xff ; | |
| 413 *bep++ = (be_id >> 16) & 0xff ; | |
| 414 *bep++ = (be_id >> 8) & 0xff ; | |
| 415 *bep++ = (be_id & 0xff) ; | |
| 416 } | |
| 417 #endif | |
| 418 ptr = __mem2hex((char *)&id, ptr, sizeof(id), 0); | |
| 419 *ptr++ = ';'; | |
| 420 } | |
| 421 #endif | |
| 422 | |
| 423 *ptr++ = __tohex (PC >> 4); | |
| 424 *ptr++ = __tohex (PC); | |
| 425 *ptr++ = ':'; | |
| 426 addr = get_register (PC); | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
427 ptr = __mem2hex((char *)&addr, ptr, REGSIZE(PC), 0); |
| 2 | 428 *ptr++ = ';'; |
| 429 | |
| 430 *ptr++ = __tohex (SP >> 4); | |
| 431 *ptr++ = __tohex (SP); | |
| 432 *ptr++ = ':'; | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
433 ptr = __mem2hex((char *)&sp, ptr, REGSIZE(SP), 0); |
| 2 | 434 *ptr++ = ';'; |
| 435 | |
| 436 *ptr++ = 0; | |
| 437 } | |
| 438 | |
| 439 | |
| 440 //----------------------------------------------------------------------------- | |
| 441 // Cache functions. | |
| 442 | |
| 443 // Perform the specified operation on the instruction cache. | |
| 444 // Returns 1 if the cache is enabled, 0 otherwise. | |
| 445 int | |
| 446 __instruction_cache (cache_control_t request) | |
| 447 { | |
| 448 int state = 1; | |
| 449 | |
| 450 switch (request) { | |
| 451 case CACHE_ENABLE: | |
| 452 HAL_ICACHE_ENABLE(); | |
| 453 break; | |
| 454 case CACHE_DISABLE: | |
| 455 HAL_ICACHE_DISABLE(); | |
| 456 state = 0; | |
| 457 break; | |
| 458 case CACHE_FLUSH: | |
| 459 HAL_ICACHE_SYNC(); | |
| 460 break; | |
| 461 case CACHE_NOOP: | |
| 462 /* fall through */ | |
| 463 default: | |
| 464 break; | |
| 465 } | |
| 466 | |
| 467 #ifdef HAL_ICACHE_IS_ENABLED | |
| 468 HAL_ICACHE_IS_ENABLED(state); | |
| 469 #endif | |
| 470 | |
| 471 return state; | |
| 472 } | |
| 473 | |
| 474 // Perform the specified operation on the data cache. | |
| 475 // Returns 1 if the cache is enabled, 0 otherwise. | |
| 476 int | |
| 477 __data_cache (cache_control_t request) | |
| 478 { | |
| 479 int state = 1; | |
| 480 | |
| 481 switch (request) { | |
| 482 case CACHE_ENABLE: | |
| 483 HAL_DCACHE_ENABLE(); | |
| 484 break; | |
| 485 case CACHE_DISABLE: | |
| 486 HAL_DCACHE_DISABLE(); | |
| 487 state = 0; | |
| 488 break; | |
| 489 case CACHE_FLUSH: | |
| 490 HAL_DCACHE_SYNC(); | |
| 491 break; | |
| 492 case CACHE_NOOP: | |
| 493 /* fall through */ | |
| 494 default: | |
| 495 break; | |
| 496 } | |
| 497 #ifdef HAL_DCACHE_IS_ENABLED | |
| 498 HAL_DCACHE_IS_ENABLED(state); | |
| 499 #endif | |
| 500 | |
| 501 return state; | |
| 502 } | |
| 503 | |
| 504 //----------------------------------------------------------------------------- | |
| 505 // Memory accessor functions. | |
| 506 | |
| 507 void *__mem_fault_handler = (void *)0; | |
| 508 | |
| 509 /* These are the "arguments" to __do_read_mem and __do_write_mem, | |
| 510 which are passed as globals to avoid squeezing them thru | |
| 511 __set_mem_fault_trap. */ | |
| 512 | |
| 513 static volatile target_register_t memCount; | |
| 514 | |
| 515 static void | |
| 516 __do_copy_mem (unsigned char* src, unsigned char* dst) | |
| 517 { | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
518 unsigned long *long_dst; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
519 unsigned long *long_src; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
520 unsigned short *short_dst; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
521 unsigned short *short_src; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
522 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
523 __mem_fault = 1; /* Defaults to 'fail'. Is cleared */ |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
524 /* when the copy loop completes. */ |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
525 __mem_fault_handler = &&err; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
526 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
527 // See if it's safe to do multi-byte, aligned operations |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
528 while (memCount) { |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
529 if ((memCount >= sizeof(long)) && |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
530 (((target_register_t)dst & (sizeof(long)-1)) == 0) && |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
531 (((target_register_t)src & (sizeof(long)-1)) == 0)) { |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
532 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
533 long_dst = (unsigned long *)dst; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
534 long_src = (unsigned long *)src; |
| 2 | 535 |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
536 *long_dst++ = *long_src++; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
537 memCount -= sizeof(long); |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
538 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
539 dst = (unsigned char *)long_dst; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
540 src = (unsigned char *)long_src; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
541 } else if ((memCount >= sizeof(short)) && |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
542 (((target_register_t)dst & (sizeof(short)-1)) == 0) && |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
543 (((target_register_t)src & (sizeof(short)-1)) == 0)) { |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
544 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
545 short_dst = (unsigned short *)dst; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
546 short_src = (unsigned short *)src; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
547 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
548 *short_dst++ = *short_src++; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
549 memCount -= sizeof(short); |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
550 |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
551 dst = (unsigned char *)short_dst; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
552 src = (unsigned char *)short_src; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
553 } else { |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
554 *dst++ = *src++; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
555 memCount--; |
|
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
556 } |
| 2 | 557 } |
| 558 | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
559 __mem_fault = 0; |
| 2 | 560 |
| 561 err: | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
562 __mem_fault_handler = (void *)0; |
| 2 | 563 } |
| 564 | |
| 565 /* | |
| 566 * __read_mem_safe: | |
| 567 * Get contents of target memory, abort on error. | |
| 568 */ | |
| 569 | |
| 570 int | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
571 __read_mem_safe (void *dst, void *src, int count) |
| 2 | 572 { |
| 573 memCount = count; | |
| 574 __do_copy_mem((unsigned char*) src, (unsigned char*) dst); | |
| 575 return count - memCount; // return number of bytes successfully read | |
| 576 } | |
| 577 | |
| 578 /* | |
| 579 * __write_mem_safe: | |
| 580 * Set contents of target memory, abort on error. | |
| 581 */ | |
| 582 | |
| 583 int | |
|
34
29bc183297e1
Merge from eCos master repository on 1999-09-02-16:26:10-BST
jlarmour
parents:
30
diff
changeset
|
584 __write_mem_safe (void *src, void *dst, int count) |
| 2 | 585 { |
| 586 memCount = count; | |
| 587 __do_copy_mem((unsigned char*) src, (unsigned char*) dst); | |
| 588 return count - memCount; // return number of bytes successfully written | |
| 589 } | |
| 590 | |
| 591 //----------------------------------------------------------------------------- | |
| 592 // Target extras?! | |
| 593 int | |
| 594 __process_target_query(char * pkt, char * out, int maxOut) | |
| 595 { return 0 ; } | |
| 596 int | |
| 597 __process_target_set(char * pkt, char * out, int maxout) | |
| 598 { return 0 ; } | |
| 599 int | |
| 600 __process_target_packet(char * pkt, char * out, int maxout) | |
| 601 { return 0 ; } | |
| 602 | |
| 603 // GDB string output, making sure interrupts are disabled. | |
| 604 // This function gets used by some diag output functions. | |
| 605 void | |
| 606 hal_output_gdb_string(target_register_t str, int string_len) | |
| 607 { | |
| 608 unsigned long __state; | |
|
8
ece80412419a
Merge from eCos master repository on 1999-05-21-22:05:54-BST
jlarmour
parents:
6
diff
changeset
|
609 HAL_DISABLE_INTERRUPTS(__state); |
| 2 | 610 __output_gdb_string(str, string_len); |
| 611 HAL_RESTORE_INTERRUPTS(__state); | |
| 612 } | |
| 613 | |
| 614 #endif // CYGDBG_HAL_DEBUG_GDB_INCLUDE_STUBS |