From 00b09053ca45dfc24486d17140bc8aee6d6856ba Mon Sep 17 00:00:00 2001 From: hauser_n Date: Mon, 30 Jan 2006 02:17:06 +0000 Subject: [PATCH] Removed caching of messages --- sycFormat.tcl | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/sycFormat.tcl b/sycFormat.tcl index 7a92daef..b0f3111d 100644 --- a/sycFormat.tcl +++ b/sycFormat.tcl @@ -63,24 +63,8 @@ if { [info exists sycinit] == 0 } { } } } - "out" { - # Concatenate multiple messages into a comma separated list - if [info exists cache($transID)] { - append msg ", " $msgString - eval "lappend cache($transID) $msg" - } else { - eval "lappend cache($transID) $msgString" - } - set output "" - } "finish" { - if [info exists cache($transID)] { - set output "[_prefix out] $tag=\{$cache($transID)\}" - append output "\n[_prefix finish]" - unset cache($transID) - } else { - set output "[_prefix finish]" - } + set output "[_prefix finish]" } default { set output "[_prefix $msgFlag] $tag=\{$msgString\}"