@@ -354,16 +354,16 @@ return $code } #--------------------------------------------------------------------- -proc ::tcc4tcl::cproc {name adefs rtype {body "#"} {addfuncs ""}} { +proc ::tcc4tcl::cproc {name adefs rtype {body "#"}} { foreach {code cbody} [wrap $name $adefs $rtype $body] break ::tcc4tcl::ccode $code - uplevel 1 [list ::tcc4tcl::ccommand $name {dummy ip objc objv} $cbody $addfuncs] + uplevel 1 [list ::tcc4tcl::ccommand $name {dummy ip objc objv} $cbody] } #--------------------------------------------------------------------- proc ::tcc4tcl::cdata {name data} { # Extract bytes from data @@ -407,11 +407,11 @@ return $name } #------------------------------------------------------------------- -proc ::tcc4tcl::ccommand {procname anames body {addfuncs ""}} { +proc ::tcc4tcl::ccommand {procname anames body} { variable tcc # Fully qualified proc name if {[string match "::*" $procname]} { # procname is already absolute @@ -463,18 +463,10 @@ append code "int $cname (ClientData $v(clientdata),Tcl_Interp *$v(interp)," append code "int $v(objc),Tcl_Obj *CONST $v(objv)\[\]) {" "\n" append code $body "\n" append code "}" "\n" - if {[llength $addfuncs] > 0} { - set tcc(cc) [tcc4tcl::new] - - foreach addfunc $addfuncs { - $tcc(cc) add_runtime_sym $addfunc - } - } - if {[catch { uplevel 1 [list tcc4tcl::cc $code] } err]} { unset tcc(cc) tcc4tcl::reset