Check-in [9dea15950f]
Overview
Comment:Updated to correctly define C functions that take no arguments (void)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:9dea15950fce16bbc8af64ff815baa311a2c2700
User & Date: rkeene on 2014-06-23 01:45:05
Other Links: manifest | tags
Context
2014-06-23
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
01:40
Added more tests check-in: 035bcc0134 user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [8158b2225d] to [341f854450].

317
318
319
320
321
322
323





324
325
326
327
328
329
330
331
		default {
			set rtype2 $rtype
		}
	}

	# Create wrapped function
	if {$body ne "#"} {





		append code "static $rtype2 ${cname}([join $cargs {, }]) \{\n"
		append code $body
		append code "\}\n"
	} else {
		append code "#define $cname [namespace tail $name]" "\n"
	}

	# Create wrapper function







>
>
>
>
>
|







317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
		default {
			set rtype2 $rtype
		}
	}

	# Create wrapped function
	if {$body ne "#"} {
		if {[llength $cargs] != 0} {
			set cargs_str [join $cargs {, }]
		} 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