nsf

Clone
Gustaf Neumann <neumann@wu-wien.ac.at>
committed
3dcb0fb
on 03 Oct 24
fix for issue #4; Memory leak of NsfMethodContext with Tcl9
Ths is not a fully satisfying fix, since it just fixes the symptom, not the caus… Show more
fix for issue #4; Memory leak of NsfMethodContext with Tcl9

Ths is not a fully satisfying fix, since it just fixes the symptom, not the cause.

Also the old variant is supposed to run free of this issue. However, we are

talking here about a single Tcl_Obj inside the nx object system, so the harm

is very limited. More details in the ticket.

Show less

library/xotcl/tests/xocomm.test (+2 -2)
21 21 set xotclsh [info nameofexecutable]
22 22 set dir [file dir [info script]]
23 23 set serverScript $dir/../apps/comm/webserver.xotcl
24 24 set startCmd "$xotclsh $serverScript -root $dir/../doc -pkgdir $dir/../library"
25 25 puts $startCmd
26 26 if {$opt(-startServer)} {
27 27   set PIPE [open "| $startCmd"]
28 28 } else {
29 29   puts $startCmd
30 30 }
31 31
32 32 package require xotcl::comm::httpAccess
33 33 package require xotcl::comm::ftp
34 34 package require xotcl::trace
35 35
36 36 #::xotcl::package verbose 1
37 37 #::xotcl::package require xotcl::comm::httpAccess
38 38 #::xotcl::package require xotcl::comm::ftp
39 39 #::xotcl::package require xotcl::trace
40 40
41   set hostport localhost:8086
42   set protectedhostport localhost:9096
  41 set hostport 127.0.0.1:8086
  42 set protectedhostport 127.0.0.1:9096
43 43
44 44 set slowURL "http://quote.yahoo.com/q?s=^DJI&d=1d"
45 45 set ftpURL "ftp://mohegan.wi-inf.uni-essen.de/welcome.msg"
46 46
47 47
48 48 proc printError msg {puts stderr !!!$msg!!!}
49 49
50 50 Object userPwd
51 51 userPwd proc user {u} {
52 52   my  set user $u
53 53   if {[set ::tcl_platform(platform)] == "windows"} {
54 54     my set user unknown
55 55   }
56 56 }
57 57 userPwd proc show {realm userVar pwVar} {
58 58   upvar $userVar u $pwVar pw
59 59   set u [my set user]
60 60   set pw test
61 61   return 1
62 62 }