diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:40:22 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 18:40:22 (GMT) |
| commit | 54d1015a53f693bf61dc44c7852419a574f1d84a (patch) | |
| tree | 7c1e76995bcacec0e7d209e1b8f6c6746b182ef8 /taccle/taccle.tcl | |
| parent | 9693bb5ede034f5a46ac9e677ed390630381b6cf (diff) | |
| download | blt-54d1015a53f693bf61dc44c7852419a574f1d84a.zip blt-54d1015a53f693bf61dc44c7852419a574f1d84a.tar.gz blt-54d1015a53f693bf61dc44c7852419a574f1d84a.tar.bz2 | |
add namespace
Diffstat (limited to 'taccle/taccle.tcl')
| -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 71f594e..5d669ee 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -942,8 +942,8 @@ proc write_parser {} { \} else \{ set ${::p}dc \$rules(\$rule,dc) \} - set ${::p}stackpointer \[expr {\[llength \$state_stack\]-\$${::p}dc}\] - setupvalues \$value_stack \$${::p}stackpointer \$${::p}dc + set stackpointer \[expr {\[llength \$state_stack\]-\$${::p}dc}\] + setupvalues \$value_stack \$stackpointer \$${::p}dc set _ \$1 set yylval \[lindex \$value_stack end\] switch -- \$rule {" @@ -957,9 +957,9 @@ proc write_parser {} { unsetupvalues \$${::p}dc # pop off tokens from the stack if normal rule if \{!\[info exists rules(\$rule,e)\]\} \{ - incr ${::p}stackpointer -1 - set state_stack \[lrange \$state_stack 0 \$${::p}stackpointer\] - set value_stack \[lrange \$value_stack 0 \$${::p}stackpointer\] + incr stackpointer -1 + set state_stack \[lrange \$state_stack 0 \$stackpointer\] + set value_stack \[lrange \$value_stack 0 \$stackpointer\] \} # now do the goto transition lappend state_stack \$table(\[lindex \$state_stack end\]:\$${::p}l,target) |