From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Fri, 4 Jul 2008 13:48:16 +0000 (+0000)
Subject: fix to peek command.
X-Git-Tag: v0.1.0~549
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=bece2176c0308690a8ad931c815bd544a7249fdf;p=openocd

fix to peek command.

git-svn-id: svn://svn.berlios.de/openocd/trunk@747 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---

diff --git a/src/tcl/commands.tcl b/src/tcl/commands.tcl
index f42047f7..d671d786 100644
--- a/src/tcl/commands.tcl
+++ b/src/tcl/commands.tcl
@@ -1,6 +1,6 @@
 # implements Tcl procedures/functions
 proc peek {address} {
-	return [openocd mdw $address]
+	return [openocd_throw "mdw $address"]
 }
 
 # Production command