diff options
| -rw-r--r-- | fickle/fickle.tcl | 4 | ||||
| -rw-r--r-- | taccle/taccle.tcl | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/fickle/fickle.tcl b/fickle/fickle.tcl index b230cb6..9636581 100644 --- a/fickle/fickle.tcl +++ b/fickle/fickle.tcl @@ -328,6 +328,8 @@ proc write_scanner_utils {} { ###### " puts $::dest "namespace eval ${::p} \{ + variable yylval + variable yytext {} variable yyleng 0 variable yyin stdin @@ -612,6 +614,8 @@ proc write_scanner {} { # one of its actions executes a return statement. # -- from the flex(1) man page proc ${::p}::yylex \{\} \{ + variable yylval + variable yytext variable yylineno variable yyleng diff --git a/taccle/taccle.tcl b/taccle/taccle.tcl index 8ed3639..661303f 100644 --- a/taccle/taccle.tcl +++ b/taccle/taccle.tcl @@ -1021,10 +1021,9 @@ proc write_header_file {} { if {$::token_id_table($tok_id,t) == $::TERMINAL && \ [string is integer $tok_id] && $tok_id >= 256} { set token $::token_id_table($tok_id) - puts $::header "set ${token} $tok_id" + puts $::header "variable ${token} $tok_id" } } - puts $::header "set yylval \{\}" puts $::header "\}" } |