Check-in [491d3ace1e]
Overview
Comment:Updated to omit the #define for functions we are just wrapping
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 491d3ace1eb3866c3cdbce19b2cda414cb0b8d09
User & Date: rkeene on 2014-06-23 01:45:56
Other Links: manifest | tags
Context
2014-06-23
01:47
Used more appropriate return value check-in: 08ca5c9084 user: rkeene tags: trunk
01:45
Updated to omit the #define for functions we are just wrapping check-in: 491d3ace1e user: rkeene tags: trunk
01:45
Updated to correctly define C functions that take no arguments (void) check-in: 9dea15950f user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [341f854450] to [f0b6dd4e2e].

   326    326   		} else {
   327    327   			set cargs_str "void"
   328    328   		}
   329    329   		append code "static $rtype2 ${cname}($cargs_str) \{\n"
   330    330   		append code $body
   331    331   		append code "\}\n"
   332    332   	} else {
   333         -		append code "#define $cname [namespace tail $name]" "\n"
          333  +		set cname [namespace tail $name]
   334    334   	}
   335    335   
   336    336   	# Create wrapper function
   337    337   	## Supported input types
   338    338   	##   Tcl_Interp*
   339    339   	##   int
   340    340   	##   long