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
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}([join $cargs {, }]) \{\n"
		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