URL https://opencores.org/ocsvn/openmsp430/openmsp430/trunk

Subversion Repositories openmsp430

[/] [openmsp430/] [trunk/] [tools/] [lib/] [tcl-lib/] [dbg_functions.tcl] - Diff between revs 87 and 96

Rev 87	Rev 96
Line 26...	Line 26...
`#`	`#`
`# Author(s):`	`# Author(s):`
`# - Olivier Girard, olgirard@gmail.com`	`# - Olivier Girard, olgirard@gmail.com`
`#`	`#`
`#------------------------------------------------------------------------------`	`#------------------------------------------------------------------------------`
`# $Rev: 87 $`	`# $Rev: 96 $`
`# $LastChangedBy: olivier.girard $`	`# $LastChangedBy: olivier.girard $`
`# $LastChangedDate: 2011-02-05 14:40:22 +0100 (Sat, 05 Feb 2011) $`	`# $LastChangedDate: 2011-02-27 21:29:35 +0100 (Sun, 27 Feb 2011) $`
`#------------------------------------------------------------------------------`	`#------------------------------------------------------------------------------`
`#`	`#`
`# Description: Main utility functions for the openMSP430 serial debug`	`# Description: Main utility functions for the openMSP430 serial debug`
`# interface.`	`# interface.`
`#`	`#`
Line 675...	Line 675...
`proc EraseROM {} {`	`proc EraseROM {} {`

`set rom_size [lindex [GetCPU_ID_SIZE] 0]`	`set rom_size [lindex [GetCPU_ID_SIZE] 0]`
`set rom_start [expr 0x10000-$rom_size]`	`set rom_start [expr 0x10000-$rom_size]`

`if {$ram_size!=-1} {`	`if {$rom_size!=-1} {`
`set DataArray ""`	`set DataArray ""`
`for {set i 0} {$i<$rom_size} {incr i} {`	`for {set i 0} {$i<$rom_size} {incr i} {`
`lappend DataArray 0x00`	`lappend DataArray 0x00`
`}`	`}`