From 5454938997adee622d98f4014d22d7fe7bc54aeb Mon Sep 17 00:00:00 2001 From: marko Date: Wed, 24 Sep 2008 13:02:54 +0000 Subject: [PATCH] Do not special-case parsing of constant values in event scheduler. Instead, constants are now specified as a "const" function with a single argument, in addition to already existing "rand", "ramp" and "square" functions. Bug found by: Submitted by: Mirta Medanic Reviewed by: Approved by: Obtained from: --- eventsched.tcl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/eventsched.tcl b/eventsched.tcl index 4f122d6..ca42a8a 100644 --- a/eventsched.tcl +++ b/eventsched.tcl @@ -23,7 +23,7 @@ # SUCH DAMAGE. # -# $Id: eventsched.tcl,v 1.7 2008/07/17 13:09:01 marko Exp $ +# $Id: eventsched.tcl,v 1.8 2008/09/24 13:02:54 marko Exp $ proc evsched {} { @@ -113,8 +113,10 @@ proc evsched {} { set need_sort 1 } } + } elseif { [lindex $params 0] == "const" } { + set value [lindex $params 1] } else { - set value [lindex $params 0] + puts "bogus event line: $event" } switch -exact -- $target { bandwidth { -- 2.39.5