[Yapsi] made labels globally unique

Because they were only unique for each block, the label lookup (which traverses the whole SIC) accidentally the whole call stack in some cases.
masak · Sep 1, 2010 · 96ca8f0 · 96ca8f0
1 parent c65b333
commit 96ca8f0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/Yapsi.pm b/lib/Yapsi.pm
@@ -157,6 +157,7 @@ class Yapsi::Compiler {
         my @sic = "This is SIC v$VERSION";
         my $INDENT = '    ';
         my %package-variables;
+        my $*l = 0;         # unique label    counter
         traverse-top-down($/, :action(-> $m, $key {
             if $key eq 'TOP'|'block'|'else' {
                 push @sic, '';
@@ -167,7 +168,6 @@ class Yapsi::Compiler {
                 }
                 my @blocksic;
                 my $*c = 0; # unique register counter
-                my $*l = 0; # unique label    counter
                 my @skip = 'block', 'statement_control_if',
                            'statement_control_while_until',
                            'statement_control_unless';

diff --git a/t/runtime.t b/t/runtime.t
@@ -45,6 +45,8 @@ my @tests =
     'my $a = 42; { { say $a; } }',     "42\n",      'var lookup >1 block up',
     'our $a; { my $a = 1; { our $a; $a = 5 } }; say $a',
                                        "5\n",       'our lookup',
+    'my $a = 0; my $b = 0; until $a { if $b { $a = 1 }; say ++$b }',
+                                       "1\n2\n",    'nested jumps in SIC',
 ;
 
 for @tests -> $program, $expected, $message {