Recent changes to patcheshttps://sourceforge.net/p/regina-rexx/patches/2002-07-23T02:49:55ZRecent changes to patchesMemory leak in rexxsaa.c2002-07-23T02:49:55Z2002-07-23T02:49:55ZRobert Mahoneyhttps://sourceforge.net/u/rmahoney/https://sourceforge.net44c0f6c19e90e84bbc97787cc79e572d4f0d4646<div class="markdown_content"><p>There is a 4K leak everytime an rexx saa call is made. For example <br />
whenever I use the RexxUtils package,almost every call leaks 4K.<br />
</p>
<p>If the following line is added at line 1269 to the <br />
RexxVariablePool function in rexxsaa.c then the memory leak goes <br />
away.</p>
<p>IfcFreeMemory(Strings[1]); <br />
</p>
<p>The case <br />
statement now looks like this:</p>
<p>case RXSHV_FETCH: /* MH 26-<br />
12-95 */<br />
{<br />
IVPcode = IVPcode ? IVPcode : RX_GETVAR; /* JH <br />
20-10-99 */<br />
Lengths[0] = Req-&gt;shvname.strlength ;<br />
Strings[0] <br />
= Req-&gt;shvname.strptr ;<br />
/* FIXME, FGC: This two lines are <br />
unnecessary<br />
Lengths[1] = Req-&gt;shvvalue.strlength ;</p>
<p>Strings[1] = Req-&gt;shvvalue.strptr ; */<br />
Code = IfcVarPool( TSD, <br />
IVPcode, Lengths, Strings ) ; /* JH 20-10-99 */</p>
<p>Req-&gt;shvret = <br />
RXSHV_OK ;<br />
if (Code==RX_CODE_NOVALUE)<br />
Req-<br />
&gt;shvret |= RXSHV_NEWV ;<br />
else if <br />
(Code==RX_CODE_INVNAME)<br />
Req-&gt;shvret |= <br />
RXSHV_BADN ;<br />
else if (Code!=RXSHV_OK)<br />
exiterror( <br />
ERR_INTERPRETER_FAILURE, 1, __FILE__, __LINE__, &quot;&quot; ) ;</p>
<p>FillReqValue( Req, Lengths[1], Strings[1] ) ;</p>
<p>IfcFreeMemory(Strings[1]); /* RM 22-07-02 */<br />
TSD-<br />
&gt;var_indicator=0;<br />
break ;<br />
}</p></div>