From a521e674cfc1c74be9a8a7036048d5e4894b1b70 Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 4 Jul 2008 06:31:43 +0000
Subject: Jim Tcl support added

git-svn-id: svn://svn.berlios.de/openocd/trunk@739 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/commands.tcl | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 src/tcl/commands.tcl

(limited to 'src/tcl')

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
-- 
cgit v1.2.3