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: |
491d3ace1eb3866c3cdbce19b2cda414 |
| 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 |
} else {
set cargs_str "void"
}
append code "static $rtype2 ${cname}($cargs_str) \{\n"
append code $body
append code "\}\n"
} else {
| | | 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
|
| ︙ | ︙ |