dc796a2091
- Log output handlers now get a "const char *line"
- Added "const" to parameter.
src/helper/command.c
src/helper/command.h
- New function: 'command_output_text()'
- Log output handlers now get a "const char *line"
src/helper/options.c
- Log output handlers now get a "const char *line"
src/server/telnet_server.c
- DO not transmit NULL bytes via TELNET.
- Log output handlers now get a "const char *line"
src/server/gdb_server.c
- Log output handlers now get a "const char *line"
*** THIS INCLUDES PORTIONS OF A PATCH FROM Oyvind sent
previously to the mailing list for TCL users try
src/target/target.c
*** THIS INCLUDES PORTIONS OF A PATCH FROM Oyvind sent
previously to the mailing list for TCL users try
src/target/target.h
*** THIS INCLUDES PORTIONS OF A PATCH FROM Oyvind sent
previously to the mailing list for TCL users try
src/openocd.c
- **MAJOR** Work: New TCL/Jim function: mem2array
- **MAJOR** Work: Redirect Tcl/Jim stdio output to remote users.
- Previously: TCL output did not go to GDB.
- Previously: TCL output did not go to TELNET
- Previously: TCL output only goes to control console.
- This fixes that problem.
+ Created callbacks:
+openocd_jim_fwrite()
+openocd_jim_fread()
+openocd_jim_vfprintf()
+openocd_jim_fflush()
+openocd_jim_fgets()
src/Makefile.am
- New TCL files.
- Future note: This should be more automated. As the list of
'tcl' files grows maintaning this list will suck.
src/Jim.c
- ** THIS INCLUDES A PREVIOUS PATCH I SENT EARLIER **
- that impliments many [format] specifies JIM did not support.
- Jim_FormatString() - **MAJOR** work.
- Previously only supported "%s" "%d" and "%c"
- And what support existed had bugs.
- NEW: *MANY* formating parameters are now supported.
- TODO: The "precision" specifier is not supported.
** NEW ** This patch.
- Jim_StringToWide() test if no conversion occured.
- Jim_StringToIndex() test if no conversion occured.
- Jim_StringToDouble() test if no conversion occured.
** NEW ** This Patch. Major Work.
- Previously output from JIM did not get sent to GDB
- Ditto: Output to Telnet session.
- Above items are now fixed - By introducing callbacks
new function pointers in the "interp" structure.
- Helpers that call the callbacks.
- New function: Jim_fprintf()
- New function: Jim_vfprintf()
- New function: Jim_fwrite()
- New function: Jim_fread()
- New function: Jim_fflush()
- New function: Jim_fgets()
By default: the output is to STDIO as previous.
The "openocd.c" - redirects the output as needed.
- Jim_Panic() - Send panic to both STDERR and the interps
specified STDERR output as a 2nd choice.
- Now JIM's "stdin/stdout/stderr" paramters are "void *"
and are no longer "FILE *".
src/Jim.h
- **MAJOR**
- New JIM STDIO callbacks in the "interp" structure.
- change: "stdin/stdout/stderr" are now "void *" cookies.
- New JIM stdio helper functions.
git-svn-id: svn://svn.berlios.de/openocd/trunk@755 b42882b7-edfa-0310-969c-e2dbd0fdcd60
102 lines
2.9 KiB
Tcl
102 lines
2.9 KiB
Tcl
set AIC_SMR [expr $AT91C_BASE_AIC + 0x00000000 ]
|
|
global AIC_SMR
|
|
set AIC_SVR [expr $AT91C_BASE_AIC + 0x00000080 ]
|
|
global AIC_SVR
|
|
set AIC_IVR [expr $AT91C_BASE_AIC + 0x00000100 ]
|
|
global AIC_IVR
|
|
set AIC_FVR [expr $AT91C_BASE_AIC + 0x00000104 ]
|
|
global AIC_FVR
|
|
set AIC_ISR [expr $AT91C_BASE_AIC + 0x00000108 ]
|
|
global AIC_ISR
|
|
set AIC_IPR [expr $AT91C_BASE_AIC + 0x0000010C ]
|
|
global AIC_IPR
|
|
set AIC_IMR [expr $AT91C_BASE_AIC + 0x00000110 ]
|
|
global AIC_IMR
|
|
set AIC_CISR [expr $AT91C_BASE_AIC + 0x00000114 ]
|
|
global AIC_CISR
|
|
set AIC_IECR [expr $AT91C_BASE_AIC + 0x00000120 ]
|
|
global AIC_IECR
|
|
set AIC_IDCR [expr $AT91C_BASE_AIC + 0x00000124 ]
|
|
global AIC_IDCR
|
|
set AIC_ICCR [expr $AT91C_BASE_AIC + 0x00000128 ]
|
|
global AIC_ICCR
|
|
set AIC_ISCR [expr $AT91C_BASE_AIC + 0x0000012C ]
|
|
global AIC_ISCR
|
|
set AIC_EOICR [expr $AT91C_BASE_AIC + 0x00000130 ]
|
|
global AIC_EOICR
|
|
set AIC_SPU [expr $AT91C_BASE_AIC + 0x00000134 ]
|
|
global AIC_SPU
|
|
set AIC_DCR [expr $AT91C_BASE_AIC + 0x00000138 ]
|
|
global AIC_DCR
|
|
set AIC_FFER [expr $AT91C_BASE_AIC + 0x00000140 ]
|
|
global AIC_FFER
|
|
set AIC_FFDR [expr $AT91C_BASE_AIC + 0x00000144 ]
|
|
global AIC_FFDR
|
|
set AIC_FFSR [expr $AT91C_BASE_AIC + 0x00000148 ]
|
|
global AIC_FFSR
|
|
|
|
|
|
proc aic_enable_disable_list { VAL ENAME DNAME } {
|
|
global AT91C_ID
|
|
|
|
show_mmr32_bits AT91C_ID $VAL
|
|
|
|
}
|
|
|
|
proc show_AIC_IPR_helper { NAME ADDR VAL } {
|
|
aic_enable_disable_list $VAL "IRQ PENDING" "irq not-pending"
|
|
}
|
|
|
|
proc show_AIC_IMR_helper { NAME ADDR VAL } {
|
|
aic_enable_disable_list $VAL "IRQ ENABLED" "irq disabled"
|
|
}
|
|
|
|
|
|
proc show_AIC { } {
|
|
global AIC_SMR
|
|
if [catch { mem2array aaa 32 $AIC_SMR [expr 32 * 4] } msg ] {
|
|
error [format "%s (%s)" $msg AIC_SMR]
|
|
}
|
|
puts "AIC_SMR: Mode & Type"
|
|
global AT91C_ID
|
|
for { set x 0 } { $x < 32 } { } {
|
|
puts -nonewline " "
|
|
puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
}
|
|
global AIC_SVR
|
|
if [catch { mem2array aaa 32 $AIC_SVR [expr 32 * 4] } msg ] {
|
|
error [format "%s (%s)" $msg AIC_SVR]
|
|
}
|
|
puts "AIC_SVR: Vectors"
|
|
for { set x 0 } { $x < 32 } { } {
|
|
puts -nonewline " "
|
|
puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)]
|
|
incr x
|
|
}
|
|
|
|
foreach REG {
|
|
AIC_IVR AIC_FVR AIC_ISR
|
|
AIC_IPR AIC_IMR AIC_CISR AIC_IECR AIC_IDCR
|
|
AIC_ICCR AIC_ISCR AIC_EOICR AIC_SPU AIC_DCR
|
|
AIC_FFER AIC_FFDR AIC_FFSR } {
|
|
if [catch { show_mmr32_reg $REG } msg ] {
|
|
error $msg
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|