[Compbench-devel] CompBenchmarks++/CBM-PI/t 05-CEL.pl,1.2,1.3

[Frederic T. <xf...@us...>]

Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv27341

Modified Files:
	05-CEL.pl 
Log Message:
Variables are (implicitly) localy defined in blocks, function, and containers.

Index: 05-CEL.pl
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/05-CEL.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 05-CEL.pl	6 Mar 2007 20:23:53 -0000	1.2
--- 05-CEL.pl	7 Mar 2007 18:01:28 -0000	1.3
***************
*** 233,236 ****
--- 233,238 ----
  
  sub test_var {
+   my $BL  = new CBM::CelBlock();
+ 
    my $i0  = new CBM::CelStr("x");
    my $i1  = new CBM::CelStr("y");
***************
*** 239,242 ****
--- 241,245 ----
  
    my $cs0 = new CBM::CelVarSet();
+   $BL->add($cs0);
    $cs0->add($i0);
    $cs0->add($v0);
***************
*** 244,251 ****
--- 247,256 ----
  
    my $cg0 = new CBM::CelVarGet();
+   $BL->add($cg0);
    $cg0->add($i0);
    ok($cg0->Evaluate() eq "100", "Set/Get (x=100)");
  
    my $cs1 = new CBM::CelVarSet();
+   $BL->add($cs1);
    $cs1->add($i1);
    $cs1->add($v0);
***************
*** 253,260 ****
--- 258,267 ----
  
    my $cg1 = new CBM::CelVarGet();
+   $BL->add($cg1);
    $cg1->add($i1);
    ok($cg1->Evaluate() eq "100", "Set/Get (y=100)");
  
    my $cs2 = new CBM::CelVarSet();
+   $BL->add($cs2);
    $cs2->add($i1);
    $cs2->add($v1);
***************
*** 262,269 ****
--- 269,278 ----
  
    my $cg2 = new CBM::CelVarGet();
+   $BL->add($cg2);
    $cg2->add($i1);
    ok($cg2->Evaluate() eq "201", "Set/Get (y=201) - has " . $cg2->Evaluate());
  
    my $u = new CBM::CelVarUndef();
+   $BL->add($u);
    $u->add($i0);
    $u->Evaluate();