Diff

Differences From Artifact [6f71a6b9f8]:

To Artifact [98300662c0]:


143
144
145
146
147
148
149
150
151
152
153
154
155

156
157
158
159
	$handle add_library curl
	$handle go
    
	curl_fetch http://rkeene.org/
}

set handle [tcc4tcl::new]
$handle proc callToTcl {int a int b} int {
	set retval [expr {$a + $b}]

	return $retval
}
$handle cwrap callToTcl {int a int b} int

$handle go
if {[callToTcl 3 5] != 8} {
	error "3 + 5 is 8"
}







|




|
>


|

143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
	$handle add_library curl
	$handle go
    
	curl_fetch http://rkeene.org/
}

set handle [tcc4tcl::new]
$handle proc callToTcl {Tcl_Interp* ip int a int b} int {
	set retval [expr {$a + $b}]

	return $retval
}
$handle cwrap callToTcl {Tcl_Interp* ip int a int b} int
puts [$handle code]
$handle go
if {[callToTcl 3 5] != 8} {
	error "3 + 5 is 8, not [callToTcl 3 5]"
}