Diff

Differences From Artifact [341f854450]:

To Artifact [f0b6dd4e2e]:


326
327
328
329
330
331
332
333

334
335
336
337
338
339
340
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 {
		append code "#define $cname [namespace tail $name]" "\n"
		set cname [namespace tail $name]
	}

	# Create wrapper function
	## Supported input types
	##   Tcl_Interp*
	##   int
	##   long