jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix tcl operator example crashing when run

Browse source 
The example was accessing deleted memory and so sometimes crashed.
This commit is contained in:
William S Fulton 2013-05-03 12:22:43 +01:00
commit ca7b77cbd1
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Examples/tcl/operator/runme.tcl
View file

@ -9,11 +9,9 @@ puts "a = $a [$a str]"
puts "b = $b [$b str]" puts "b = $b [$b str]"
set c [$a + $b] set c [$a + $b]
Complex -this $c
puts "c = $c [$c str]" puts "c = $c [$c str]"
set d [$a * $b] set d [$a * $b]
Complex -this $d
puts "a*b = [$d str]" puts "a*b = [$d str]"
# Alternative calling convention # Alternative calling convention
@ -21,7 +19,6 @@ set e [Complex_- $a $c]
puts "a-c = [Complex_str $e]" puts "a-c = [Complex_str $e]"
set f [new_ComplexCopy $e] set f [new_ComplexCopy $e]
Complex -this $f
puts "f = [$f str]" puts "f = [$f str]"
# Call assignment operator # Call assignment operator