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
327
328
329
330
331
332
333
334
335
336
337
338
339
340
		} else {
			set cargs_str "void"
		}
		append code "static $rtype2 ${cname}($cargs_str) \{\n"
		append code $body
		append code "\}\n"
	} else {
		append code "#define $cname [namespace tail $name]" "\n"
	}

	# Create wrapper function
	## Supported input types
	##   Tcl_Interp*
	##   int
	##   long







|







326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
		} else {
			set cargs_str "void"
		}
		append code "static $rtype2 ${cname}($cargs_str) \{\n"
		append code $body
		append code "\}\n"
	} else {
		set cname [namespace tail $name]
	}

	# Create wrapper function
	## Supported input types
	##   Tcl_Interp*
	##   int
	##   long