ActiveState Community Site - spawn in ActivTcl causes memory leak? - Comments

My mistake, maybe not memory leakage.

bigstone1998 — Tue, 27 Nov 2007 04:27:59 -0600

After try it more times, I found that after minimize the wish and console window, the memory will be decreased.

So, may be there are no memory leakage, but windows OS is playing some trick.

bigstone1998@sina.com

memory leakage, even afer exp_wait

bigstone1998 — Mon, 26 Nov 2007 00:10:38 -0600

There are still memory leakage, even after I use exp_wait after exp_close.
The script I tested is shown as following:
---------------------------
package require Expect
spawn ping 172.16.34.1
expect "Lost"
exp_close
exp_wait

---------------------------
after "package require Expect", the memory used by wish84.exe is 8,176 K
after exp_wait, the memory used by wish84.exe is 8,620K.

-------------------------------------
This is the output of the script run in wish shown above:

-----------------------------------
(bin) 1 % package require Expect
5.43
(bin) 2 % # now, the memory used by wish84.exe is 7,884 K
(bin) 3 % spawn ping 172.16.34.1
3796
(bin) 4 % expect "Lost"

Pinging 172.16.34.1 with 32 bytes of data:

Reply from 172.16.34.1: bytes=32 time<1ms TTL=63

Ping statistics for 172.16.34.1:

Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),

(bin) 5 % exp_close
(bin) 6 % exp_wait
3796 exp2 0 0 {Can't read subprocess memory: Â²Ã™Ã—Ã·Â³É¹Â¦ÃÃªÂ³É¡Â£
child process crashed.}
(bin) 7 %
----------------------------------------------

The OS system is :
WinXP2002, service pack 2
ActiveTcl8.4.15.0

============================
Thanks for any response :)

bigstone1998@sina.com

Tcl/expect memory "leak"

jeffh — Thu, 09 Aug 2007 14:02:19 -0500

As noted in the documentation, you should call exp_wait following the close to properly clean up resources.

spawn in ActivTcl causes memory leak?

hcchin — Fri, 19 Jan 2007 12:27:19 -0600

Hi,

I ran the following snippet on WinXP Pro/SP2 with ActiveTcl8.4.14.0.272572 installed. It is invoked from Command screen with tclsh. By looking at the Task Manager, the tclsh's memeory usage kept increasing and eventually the system run out of virtual memeoy. Anyone knos why?

=====================================================
package require Expect
exp_internal 1
set exp::winnt_debug 1
puts "Version: [info tclversion]"

while {1} {
set pid [exp_spawn ipconfig]
set id $spawn_id
puts "SID: $id"

expect {
"Mask" {
puts "FOUND Mask!!"
close -i $id
}
eof {
puts "EOF!!!"
}
}
}
======================================

Thanks for any response!

Jim