httpd wip

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

diff --git a/src/server/httpd/httpd.tcl b/src/server/httpd/httpd.tcl
index b579411456d44655f71f397d11b75dc87ebd914f..607660cc82e0afbb45e120f52c0fc42e24a4b7d4 100644 (file)
--- a/src/server/httpd/httpd.tcl
+++ b/src/server/httpd/httpd.tcl
@@ -106,3 +106,8 @@ proc capture_catch {a} {
        } result\r
        return $result\r
 }\r
+\r
+proc zy1000_flash {} {\r
+       set t [lindex 0 [ocd_flash_banks]]\r
+       return $t(base)\r
+}\r