httpd wip

[openocd.git] / src / server / httpd / httpd.tcl

diff --git a/src/server/httpd/httpd.tcl b/src/server/httpd/httpd.tcl
index 607660cc82e0afbb45e120f52c0fc42e24a4b7d4..a8bce162860f3a252da8aa175e377cbc82c4ec2f 100644 (file)
--- a/src/server/httpd/httpd.tcl
+++ b/src/server/httpd/httpd.tcl
@@ -102,12 +102,12 @@ proc encode {a} {
 # catch any exceptions, capture output and return it \r
 proc capture_catch {a} {\r
        catch {\r
-               return [eval {capture $a}]\r
+               capture {uplevel $a}\r
        } result\r
-       return $result\r
+       return $result \r
 }\r
 \r
-proc zy1000_flash {} {\r
+proc first_flash_base {} {\r
        set t [lindex 0 [ocd_flash_banks]]\r
        return $t(base)\r
 }\r