diff options
| author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-04 06:31:43 +0000 |
|---|---|---|
| committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-07-04 06:31:43 +0000 |
| commit | a521e674cfc1c74be9a8a7036048d5e4894b1b70 (patch) | |
| tree | 7bff376220111ded864b3eece2bd3a0bb6862db4 /src/tcl | |
| parent | 4d858f71367d98cda27d4445bf6ae13667b5c6b0 (diff) | |
| download | openocd+libswd-a521e674cfc1c74be9a8a7036048d5e4894b1b70.tar.gz openocd+libswd-a521e674cfc1c74be9a8a7036048d5e4894b1b70.tar.bz2 openocd+libswd-a521e674cfc1c74be9a8a7036048d5e4894b1b70.tar.xz openocd+libswd-a521e674cfc1c74be9a8a7036048d5e4894b1b70.zip | |
Jim Tcl support added
git-svn-id: svn://svn.berlios.de/openocd/trunk@739 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src/tcl')
| -rw-r--r-- | src/tcl/commands.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl new file mode 100644 index 00000000..0c5132a9 --- /dev/null +++ b/src/tcl/commands.tcl @@ -0,0 +1,4 @@ +# implements Tcl procedures/functions
+proc peek {address} {
+ return [openocd mdw $address] +}
\ No newline at end of file |