diff options
| -rw-r--r-- | taccle/taccle.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index 5d669ee..88f3f3b 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -938,12 +938,12 @@ proc write_parser {} { set rule \$table(\$state:\$token,target) set ${::p}l \$rules(\$rule,l) if \{\[info exists rules(\$rule,e)\]\} \{ - set ${::p}dc \$rules(\$rule,e) + set dc \$rules(\$rule,e) \} else \{ - set ${::p}dc \$rules(\$rule,dc) + set dc \$rules(\$rule,dc) \} - set stackpointer \[expr {\[llength \$state_stack\]-\$${::p}dc}\] - setupvalues \$value_stack \$stackpointer \$${::p}dc + set stackpointer \[expr {\[llength \$state_stack\]-\$dc}\] + setupvalues \$value_stack \$stackpointer \$dc set _ \$1 set yylval \[lindex \$value_stack end\] switch -- \$rule {" @@ -954,7 +954,7 @@ proc write_parser {} { } puts $::dest " } - unsetupvalues \$${::p}dc + unsetupvalues \$dc # pop off tokens from the stack if normal rule if \{!\[info exists rules(\$rule,e)\]\} \{ incr stackpointer -1 |