<div>For a side note, this one leaks too - ___release_scmobj does not fix it.</div><div><br></div><blockquote style="margin:0 0 0 40px;border:none;padding:0px"><div><div><div><div><font face="courier new, monospace">(##gc-report-set! #t)</font></div>

</div></div></div><div><div><div><div><font face="courier new, monospace">(for-each (lambda (x) ((c-lambda () scheme-object "___result = ___EXT(___alloc_scmobj)(___sU8VECTOR,10000,___MOVABLE0);</font></div></div></div>

</div><div><div><div><div><font face="courier new, monospace">                                                   if (!___FIXNUMP(___result)) ___EXT(___release_scmobj) (r);</font></div></div></div></div><div><div><div><div>

<font face="courier new, monospace">                                                   ")))</font></div></div></div></div><div><div><div><div><font face="courier new, monospace">          (string->list (make-string 100000))</font></div>

</div></div></div><div><div><div><font face="courier new, monospace">(##gc)</font></div></div></div></blockquote><div><br></div><div><br></div><div>While I don't know if the </div><div><br></div><div><blockquote style="margin:0 0 0 40px;border:none;padding:0px">

<div><font face="courier new, monospace">___result = ___EXT(___alloc_scmobj)(___sU8VECTOR,len,___STILL);</font></div><div><div><font face="courier new, monospace">if (!___FIXNUMP(___result))  ___still_obj_refcount_dec(___result);</font></div>

</div></blockquote></div><div><br></div><div>variant suggested in the previous email is really safe & complete, experience til now seems to say it's alright.</div><div><br></div><div>Brgds</div><div><br><div class="gmail_quote">

2013/6/16 Mikael <span dir="ltr"><<a href="mailto:mikael.rcv@gmail.com" target="_blank">mikael.rcv@gmail.com</a>></span></div><div class="gmail_quote">..<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div><b>Fix, duno if safe & complete</b></div><div><br></div><div><blockquote style="margin:0 0 0 40px;border:none;padding:0px"><div><div><font face="courier new, monospace">(##gc-report-set! #t)</font></div>
<div><font face="courier new, monospace">(for-each (lambda (x) ((c-lambda () scheme-object "___result = ___EXT(___alloc_scmobj)(___sU8VECTOR,10000,___STILL);</font></div><div><font face="courier new, monospace">                                                   if (!___FIXNUMP(___result)) ___still_obj_refcount_dec (___result);</font></div>


<div><font face="courier new, monospace">                                                   ")))</font></div><div><font face="courier new, monospace">          (string->list (make-string 100000))</font></div></div>


<div><font face="courier new, monospace">(##gc)</font></div></blockquote></div><div><br></div></blockquote></div></div>