Diff

Differences From Artifact [635afa0e0c]:

To Artifact [6b2efca164]:


167
168
169
170
171
172
173
174

175






167
168
169
170
171
172
173

174
175
176
177
178
179
180
181







-
+

+
+
+
+
+
+
}
$handle cwrap callToTcl1 {int x} float
$handle go
puts [callToTcl1 3]

set handle [tcc4tcl::new]
$handle proc callToTclBinary {char* blob int blob_Length} ok {
	puts "Blob: $blob"
	puts "Blob: $blob ([string length $blob])"
}
$handle cproc callToTclBinaryWrapper {} void {
	callToTclBinary("test\x00test", 9);
}
puts [$handle code]
$handle go
callToTclBinaryWrapper