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: |
9dea15950fce16bbc8af64ff815baa31 |
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 |