diff options
| -rw-r--r-- | src/helper/startup.tcl | 8 | ||||
| -rw-r--r-- | src/server/httpd/httpd.tcl | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index 41137f1a..eb965e00 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -303,3 +303,11 @@ add_help_text srst_deasserted "Overridable procedure run when srst deassert is d proc srst_asserted {} { puts "Sensed nSRST asserted." } + +# catch any exceptions, capture output and return output +proc capture_catch {a} { + catch { + capture {uplevel $a} + } result + return $result +} diff --git a/src/server/httpd/httpd.tcl b/src/server/httpd/httpd.tcl index a2fee129..5b012681 100644 --- a/src/server/httpd/httpd.tcl +++ b/src/server/httpd/httpd.tcl @@ -99,14 +99,6 @@ proc encode {a} { return [string map {\n <br/> { } { } \t { } > > < < / /} $a] } -# catch any exceptions, capture output and return it -proc capture_catch {a} { - catch { - capture {uplevel $a} - } result - return $result -} - proc first_flash_base {} { set t [lindex 0 [ocd_flash_banks]] return $t(base) |