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 326 } else { 327 327 set cargs_str "void" 328 328 } 329 329 append code "static $rtype2 ${cname}($cargs_str) \{\n" 330 330 append code $body 331 331 append code "\}\n" 332 332 } else { 333 - append code "#define $cname [namespace tail $name]" "\n" 333 + set cname [namespace tail $name] 334 334 } 335 335 336 336 # Create wrapper function 337 337 ## Supported input types 338 338 ## Tcl_Interp* 339 339 ## int 340 340 ## long