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
109 lines
3.0 KiB
Tcl
109 lines
3.0 KiB
Tcl
# MEMORY
|
|
#
|
|
# All Memory regions have two components.
|
|
# (1) A count of regions, in the form N_NAME
|
|
# (2) An array within info about each region.
|
|
#
|
|
# The ARRAY
|
|
#
|
|
# <NAME>( RegionNumber , ATTRIBUTE )
|
|
#
|
|
# Where <NAME> is one of:
|
|
#
|
|
# N_FLASH & FLASH (internal memory)
|
|
# N_RAM & RAM (internal memory)
|
|
# N_MMREGS & MMREGS (for memory mapped registers)
|
|
# N_XMEM & XMEM (off chip memory, ie: flash on cs0, sdram on cs2)
|
|
# or N_UNKNOWN & UNKNOWN for things that do not exist.
|
|
#
|
|
# We have 1 unknown region.
|
|
set N_UNKNOWN 1
|
|
# All MEMORY regions must have these attributes
|
|
# CS - chip select (if internal, use -1)
|
|
set UNKNOWN(0,CHIPSELECT) -1
|
|
# BASE - base address in memory
|
|
set UNKNOWN(0,BASE) 0
|
|
# LEN - length in bytes
|
|
set UNKNOWN(0,LEN) $CPU_MAX_ADDRESS
|
|
# HUMAN - human name of the region
|
|
set UNKNOWN(0,HUMAN) "unknown"
|
|
# TYPE - one of:
|
|
# flash, ram, mmr, unknown
|
|
# For harvard arch:
|
|
# iflash, dflash, iram, dram
|
|
set UNKNOWN(0,TYPE) "unknown"
|
|
# RWX - access ablity
|
|
# unix style chmod bits
|
|
# 0 - no access
|
|
# 1 - execute
|
|
# 2 - write
|
|
# 4 - read
|
|
# hence: 7 - readwrite execute
|
|
set RWX_NO_ACCESS 0
|
|
set RWX_X_ONLY $BIT0
|
|
set RWX_W_ONLY $BIT1
|
|
set RWX_R_ONLY $BIT2
|
|
set RWX_RW [expr $RWX_R_ONLY + $RWX_W_ONLY]
|
|
set RWX_R_X [expr $RWX_R_ONLY + $RWX_X_ONLY]
|
|
set RWX_RWX [expr $RWX_R_ONLY + $RWX_W_ONLY + $RWX_X_ONLY]
|
|
set UNKNOWN(0,RWX) $RWX_NO_ACCESS
|
|
|
|
# WIDTH - access width
|
|
# 8,16,32 [0 means ANY]
|
|
set ACCESS_WIDTH_NONE 0
|
|
set ACCESS_WIDTH_8 $BIT0
|
|
set ACCESS_WIDTH_16 $BIT1
|
|
set ACCESS_WIDTH_32 $BIT2
|
|
set ACCESS_WIDTH_ANY [expr $ACCESS_WIDTH_8 + $ACCESS_WIDTH_16 + $ACCESS_WIDTH_32]
|
|
set UNKNOWN(0,ACCESS_WIDTH) $ACCESS_WIDTH_NONE
|
|
|
|
proc iswithin { ADDRESS BASE LEN } {
|
|
return [expr ((($ADDRESS - $BASE) > 0) && (($ADDRESS - $BASE + $LEN) > 0))]
|
|
}
|
|
|
|
proc address_info { ADDRESS } {
|
|
|
|
foreach WHERE { FLASH RAM MMREGS XMEM UNKNOWN } {
|
|
if { info exists $WHERE } {
|
|
set lmt [set N_[set WHERE]]
|
|
for { set region 0 } { $region < $lmt } { incr region } {
|
|
if { iswithin $ADDRESS $WHERE($region,BASE) $WHERE($region,LEN) } {
|
|
return "$WHERE $region";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# Return the 'unknown'
|
|
return "UNKNOWN 0"
|
|
}
|
|
|
|
proc memread32 {ADDR } {
|
|
set foo(0) 0
|
|
if ![ catch { mem2array foo 32 $ADDR 1 } msg ] {
|
|
return $foo(0)
|
|
} else {
|
|
error "memead32: $msg"
|
|
}
|
|
}
|
|
|
|
proc memread16 {ADDR } {
|
|
set foo(0) 0
|
|
if ![ catch { mem2array foo 16 $ADDR 1 } msg ] {
|
|
return $foo(0)
|
|
} else {
|
|
error "memead16: $msg"
|
|
}
|
|
}
|
|
|
|
proc memread82 {ADDR } {
|
|
set foo(0) 0
|
|
if ![ catch { mem2array foo 8 $ADDR 1 } msg ] {
|
|
return $foo(0)
|
|
} else {
|
|
error "memead8: $msg"
|
|
}
|
|
}
|
|
|
|
|