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.481 |
| 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 |
default {
set rtype2 $rtype
}
}
# Create wrapped function
if {$body ne "#"} {
| > > > > > | | 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
|
| ︙ | ︙ |