This code fragment in test/g9x.ijs (added somewhere between SVN 420 and
443) appears to leak >1GB for each execution on debian testing 32-bit,
and >2GB on 64-bit. (Also, 7!:0 has overflow problem on 32-bit with
memory use >2GB.)
NB. 9!:46
3 : 0 ''
if. 0 = #f =. 9!:46'' do. 1 return. end. NB. Can''t test if no file
try.
for_n. i. 1e8 do.
if. 0 = 10000 | n do.
(1{a.) 1!:12 f;0 NB. Request normal break, goes out through normal exit
end.
end.
catch.
1
end.
)
'break' -: 3 : 0 etx ''
if. 0 = #f =. 9!:46'' do. 1 return. end. NB. Can''t test if no file
try.
for_n. i. 1e8 do.
if. 0 = 10000 | n do.
(2{a.) 1!:12 f;0 NB. Request exigent break; aborts execution
end.
end.
catch.
1
end.
)
NB. Repeat for tacit - exigent interrupt
'break' -: ({.^:100000 [ ((2{a.)&(1!:12))@(;&0))^:(*@#) etx 9!:46''
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
