<p>Josh Soref has uploaded this change for <strong>review</strong>.</p><p><a href="https://gerrit.asterisk.org/c/asterisk/+/16834">View Change</a></p><pre style="font-family: monospace,monospace; white-space: pre-wrap;">spelling: control<br><br>Change-Id: I615dce29d36fba7c296073eccefdd5236f4f81f0<br>---<br>M addons/ooh323c/src/ooh245.c<br>M codecs/lpc10/README<br>M codecs/lpc10/analys.c<br>M codecs/lpc10/bsynz.c<br>M codecs/lpc10/decode.c<br>M codecs/lpc10/dyptrk.c<br>M codecs/lpc10/encode.c<br>M codecs/lpc10/lpcdec.c<br>M codecs/lpc10/lpcini.c<br>M codecs/lpc10/synths.c<br>M codecs/lpc10/voicin.c<br>11 files changed, 128 insertions(+), 128 deletions(-)<br><br></pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;">git pull ssh://gerrit.asterisk.org:29418/asterisk refs/changes/34/16834/1</pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;"><span>diff --git a/addons/ooh323c/src/ooh245.c b/addons/ooh323c/src/ooh245.c</span><br><span>index fe8ff28..ff4a51c 100644</span><br><span>--- a/addons/ooh323c/src/ooh245.c</span><br><span>+++ b/addons/ooh323c/src/ooh245.c</span><br><span>@@ -1722,7 +1722,7 @@</span><br><span>         iPAddress->tsapIdentifier = pLogicalChannel->localRtpPort;</span><br><span>    }</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-   /* media contrcol channel */</span><br><span style="color: hsl(120, 100%, 40%);">+   /* media control channel */</span><br><span>    h2250lcap->mediaControlChannel.t =</span><br><span>                                  T_H245TransportAddress_unicastAddress;</span><br><span>    h2250lcap->mediaControlChannel.u.unicastAddress =  (H245UnicastAddress*)</span><br><span>diff --git a/codecs/lpc10/README b/codecs/lpc10/README</span><br><span>index 30abe4c..7d0d776 100644</span><br><span>--- a/codecs/lpc10/README</span><br><span>+++ b/codecs/lpc10/README</span><br><span>@@ -68,10 +68,10 @@</span><br><span> </span><br><span> 3.</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-The f2c output originally had a file called contrl_com.c, that defined</span><br><span style="color: hsl(120, 100%, 40%);">+The f2c output originally had a file called control_com.c, that defined</span><br><span> a small structure containing a few variables that were used in many</span><br><span> different functions of the LPC10 code.  Every file containing</span><br><span style="color: hsl(0, 100%, 40%);">-functions that used it defined it as "extern", while contrl_com.c</span><br><span style="color: hsl(120, 100%, 40%);">+functions that used it defined it as "extern", while control_com.c</span><br><span> actually allocated storage for the structure.  Bill Dorsey, one of the</span><br><span> lead developers of Nautilus, said that the Microsoft C compiler had</span><br><span> problems either compiling this file, or linking it with all of the</span><br><span>diff --git a/codecs/lpc10/analys.c b/codecs/lpc10/analys.c</span><br><span>index 5ea0a2d..2bf1464 100644</span><br><span>--- a/codecs/lpc10/analys.c</span><br><span>+++ b/codecs/lpc10/analys.c</span><br><span>@@ -34,7 +34,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int analys_(real *speech, integer *voice, integer *pitch, real *rms, real *rc, struct lpc10_encoder_state *st);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: preemp_ 14 5 6 6 4 6 6 */</span><br><span> /*:ref: onset_ 14 7 6 4 4 4 4 4 4 */</span><br><span> /*:ref: placev_ 14 11 4 4 4 4 4 4 4 4 4 4 4 */</span><br><span>@@ -65,9 +65,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* Table of constant values */</span><br><span> </span><br><span>@@ -131,7 +131,7 @@</span><br><span> </span><br><span> /* Revision 1.7  1996/03/27  18:06:20  jaf */</span><br><span> /* Commented out access to MAXOSP, which is just a debugging variable */</span><br><span style="color: hsl(0, 100%, 40%);">-/* that was defined in the COMMON block CONTRL in contrl.fh. */</span><br><span style="color: hsl(120, 100%, 40%);">+/* that was defined in the COMMON block CONTRL in control.fh. */</span><br><span> </span><br><span> /* Revision 1.6  1996/03/26  19:31:33  jaf */</span><br><span> /* Commented out trace statements. */</span><br><span>@@ -185,7 +185,7 @@</span><br><span> /*  RMS */</span><br><span> /*       Written. */</span><br><span> /*  RC */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       Indices 1 through ORDER written (ORDER defined in contrl.fh). */</span><br><span style="color: hsl(120, 100%, 40%);">+/*       Indices 1 through ORDER written (ORDER defined in control.fh). */</span><br><span> </span><br><span> /* This subroutine maintains local state from one call to the next.  If */</span><br><span> /* you want to switch to using a new audio stream for this filter, or */</span><br><span>@@ -406,9 +406,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*   integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*       Arguments to entry PITDEC (below) */</span><br><span> /*         Parameters/constants */</span><br><span> /*  Constants */</span><br><span>@@ -483,24 +483,24 @@</span><br><span>     rcbuf = &(st->rcbuf[0]);</span><br><span>     zpre = &(st->zpre);</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = 720 - contrl_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = 720 - control_1.lframe;</span><br><span>     for (i__ = 181; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-   inbuf[i__ - 181] = inbuf[contrl_1.lframe + i__ - 181];</span><br><span style="color: hsl(0, 100%, 40%);">-  pebuf[i__ - 181] = pebuf[contrl_1.lframe + i__ - 181];</span><br><span style="color: hsl(120, 100%, 40%);">+        inbuf[i__ - 181] = inbuf[control_1.lframe + i__ - 181];</span><br><span style="color: hsl(120, 100%, 40%);">+       pebuf[i__ - 181] = pebuf[control_1.lframe + i__ - 181];</span><br><span>     }</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = 540 - contrl_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = 540 - control_1.lframe;</span><br><span>     for (i__ = 229; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-   ivbuf[i__ - 229] = ivbuf[contrl_1.lframe + i__ - 229];</span><br><span style="color: hsl(120, 100%, 40%);">+        ivbuf[i__ - 229] = ivbuf[control_1.lframe + i__ - 229];</span><br><span>     }</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = 720 - contrl_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = 720 - control_1.lframe;</span><br><span>     for (i__ = 25; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-    lpbuf[i__ - 25] = lpbuf[contrl_1.lframe + i__ - 25];</span><br><span style="color: hsl(120, 100%, 40%);">+  lpbuf[i__ - 25] = lpbuf[control_1.lframe + i__ - 25];</span><br><span>     }</span><br><span>     j = 1;</span><br><span>     i__1 = (*osptr) - 1;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-  if (osbuf[i__ - 1] > contrl_1.lframe) {</span><br><span style="color: hsl(0, 100%, 40%);">-          osbuf[j - 1] = osbuf[i__ - 1] - contrl_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+  if (osbuf[i__ - 1] > control_1.lframe) {</span><br><span style="color: hsl(120, 100%, 40%);">+       osbuf[j - 1] = osbuf[i__ - 1] - control_1.lframe;</span><br><span>            ++j;</span><br><span>     }</span><br><span>     }</span><br><span>@@ -508,10 +508,10 @@</span><br><span>     voibuf[0] = voibuf[2];</span><br><span>     voibuf[1] = voibuf[3];</span><br><span>     for (i__ = 1; i__ <= 2; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-       vwin[(i__ << 1) - 2] = vwin[((i__ + 1) << 1) - 2] - contrl_1.lframe;</span><br><span style="color: hsl(0, 100%, 40%);">-        vwin[(i__ << 1) - 1] = vwin[((i__ + 1) << 1) - 1] - contrl_1.lframe;</span><br><span style="color: hsl(0, 100%, 40%);">-        awin[(i__ << 1) - 2] = awin[((i__ + 1) << 1) - 2] - contrl_1.lframe;</span><br><span style="color: hsl(0, 100%, 40%);">-        awin[(i__ << 1) - 1] = awin[((i__ + 1) << 1) - 1] - contrl_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+      vwin[(i__ << 1) - 2] = vwin[((i__ + 1) << 1) - 2] - control_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+     vwin[(i__ << 1) - 1] = vwin[((i__ + 1) << 1) - 1] - control_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+     awin[(i__ << 1) - 2] = awin[((i__ + 1) << 1) - 2] - control_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+     awin[(i__ << 1) - 1] = awin[((i__ + 1) << 1) - 1] - control_1.lframe;</span><br><span> /*       EWIN(*,J) is unused for J .NE. AF, so the following shift is</span><br><span> */</span><br><span> /*       unnecessary.  It also causes error messages when the C versio</span><br><span>@@ -526,7 +526,7 @@</span><br><span>     voibuf[i__ * 2] = voibuf[(i__ + 1) * 2];</span><br><span>     voibuf[(i__ << 1) + 1] = voibuf[((i__ + 1) << 1) + 1];</span><br><span>   rmsbuf[i__ - 1] = rmsbuf[i__];</span><br><span style="color: hsl(0, 100%, 40%);">-  i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+        i__1 = control_1.order;</span><br><span>      for (j = 1; j <= i__1; ++j) {</span><br><span>         rcbuf[j + i__ * 10 - 11] = rcbuf[j + (i__ + 1) * 10 - 11];</span><br><span>       }</span><br><span>@@ -541,29 +541,29 @@</span><br><span> */</span><br><span> /*       cases, keep BIAS the same. */</span><br><span>     temp = 0.f;</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.lframe;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-     inbuf[720 - contrl_1.lframe + i__ - 181] = speech[i__] * 4096.f -</span><br><span style="color: hsl(120, 100%, 40%);">+     inbuf[720 - control_1.lframe + i__ - 181] = speech[i__] * 4096.f -</span><br><span>           (*bias);</span><br><span style="color: hsl(0, 100%, 40%);">-        temp += inbuf[720 - contrl_1.lframe + i__ - 181];</span><br><span style="color: hsl(120, 100%, 40%);">+     temp += inbuf[720 - control_1.lframe + i__ - 181];</span><br><span>     }</span><br><span style="color: hsl(0, 100%, 40%);">-    if (temp > (real) contrl_1.lframe) {</span><br><span style="color: hsl(120, 100%, 40%);">+    if (temp > (real) control_1.lframe) {</span><br><span>         *bias += 1;</span><br><span>     }</span><br><span style="color: hsl(0, 100%, 40%);">-    if (temp < (real) (-contrl_1.lframe)) {</span><br><span style="color: hsl(120, 100%, 40%);">+    if (temp < (real) (-control_1.lframe)) {</span><br><span>  *bias += -1;</span><br><span>     }</span><br><span> /*   Place Voicing Window */</span><br><span style="color: hsl(0, 100%, 40%);">-    i__ = 721 - contrl_1.lframe;</span><br><span style="color: hsl(0, 100%, 40%);">-    preemp_(&inbuf[i__ - 181], &pebuf[i__ - 181], &contrl_1.lframe, &precoef,</span><br><span style="color: hsl(120, 100%, 40%);">+    i__ = 721 - control_1.lframe;</span><br><span style="color: hsl(120, 100%, 40%);">+    preemp_(&inbuf[i__ - 181], &pebuf[i__ - 181], &control_1.lframe, &precoef,</span><br><span>            zpre);</span><br><span style="color: hsl(0, 100%, 40%);">-    onset_(pebuf, osbuf, osptr, &c__10, &c__181, &c__720, &contrl_1.lframe, st);</span><br><span style="color: hsl(120, 100%, 40%);">+    onset_(pebuf, osbuf, osptr, &c__10, &c__181, &c__720, &control_1.lframe, st);</span><br><span> </span><br><span> /*       MAXOSP is just a debugging variable. */</span><br><span> </span><br><span> /*         MAXOSP = MAX( MAXOSP, OSPTR ) */</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-    placev_(osbuf, osptr, &c__10, &obound[2], vwin, &c__3, &contrl_1.lframe,</span><br><span style="color: hsl(120, 100%, 40%);">+    placev_(osbuf, osptr, &c__10, &obound[2], vwin, &c__3, &control_1.lframe,</span><br><span>          &c__90, &c__156, &c__307, &c__462);</span><br><span> /*        The Pitch Extraction algorithm estimates the pitch for a frame</span><br><span> */</span><br><span>@@ -584,12 +584,12 @@</span><br><span> /*       of INBUF, and writes indices LBUFH+1-LFRAME = 541 through LBUFH</span><br><span> */</span><br><span> /*       = 720 of LPBUF. */</span><br><span style="color: hsl(0, 100%, 40%);">-    lpfilt_(&inbuf[228], &lpbuf[384], &c__312, &contrl_1.lframe);</span><br><span style="color: hsl(120, 100%, 40%);">+    lpfilt_(&inbuf[228], &lpbuf[384], &c__312, &control_1.lframe);</span><br><span> /*       IVFILT reads indices (PWINH-LFRAME-7) = 353 through PWINH = 540</span><br><span> */</span><br><span> /*       of LPBUF, and writes indices (PWINH-LFRAME+1) = 361 through */</span><br><span> /*       PWINH = 540 of IVBUF. */</span><br><span style="color: hsl(0, 100%, 40%);">-    ivfilt_(&lpbuf[204], ivbuf, &c__312, &contrl_1.lframe, ivrc);</span><br><span style="color: hsl(120, 100%, 40%);">+    ivfilt_(&lpbuf[204], ivbuf, &c__312, &control_1.lframe, ivrc);</span><br><span> /*       TBDM reads indices PWINL = 229 through */</span><br><span> /*       (PWINL-1)+MAXWIN+(TAU(LTAU)-TAU(1))/2 = 452 of IVBUF, and writes</span><br><span> */</span><br><span>@@ -620,7 +620,7 @@</span><br><span>     ipitch = tau[midx - 1];</span><br><span> /*   Place spectrum analysis and energy windows */</span><br><span>     placea_(&ipitch, voibuf, &obound[2], &c__3, vwin, awin, ewin, &</span><br><span style="color: hsl(0, 100%, 40%);">-           contrl_1.lframe, &c__156);</span><br><span style="color: hsl(120, 100%, 40%);">+        control_1.lframe, &c__156);</span><br><span> /*  Remove short term DC bias over the analysis window, Put result in ABUF</span><br><span> */</span><br><span>     lanal = awin[5] + 1 - awin[4];</span><br><span>@@ -634,14 +634,14 @@</span><br><span>     i__1 = ewin[5] - ewin[4] + 1;</span><br><span>     energy_(&i__1, &abuf[ewin[4] - awin[4]], &rmsbuf[2]);</span><br><span> /*   Matrix load and invert, check RC's for stability */</span><br><span style="color: hsl(0, 100%, 40%);">-    mload_(&contrl_1.order, &c__1, &lanal, abuf, phi, psi);</span><br><span style="color: hsl(0, 100%, 40%);">-    invert_(&contrl_1.order, phi, psi, &rcbuf[20]);</span><br><span style="color: hsl(0, 100%, 40%);">-    rcchk_(&contrl_1.order, &rcbuf[10], &rcbuf[20]);</span><br><span style="color: hsl(120, 100%, 40%);">+    mload_(&control_1.order, &c__1, &lanal, abuf, phi, psi);</span><br><span style="color: hsl(120, 100%, 40%);">+    invert_(&control_1.order, phi, psi, &rcbuf[20]);</span><br><span style="color: hsl(120, 100%, 40%);">+    rcchk_(&control_1.order, &rcbuf[10], &rcbuf[20]);</span><br><span> /*   Set return parameters */</span><br><span>     voice[1] = voibuf[2];</span><br><span>     voice[2] = voibuf[3];</span><br><span>     *rms = rmsbuf[0];</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>    rc[i__] = rcbuf[i__ - 1];</span><br><span>     }</span><br><span>diff --git a/codecs/lpc10/bsynz.c b/codecs/lpc10/bsynz.c</span><br><span>index de43b43..a4215cc 100644</span><br><span>--- a/codecs/lpc10/bsynz.c</span><br><span>+++ b/codecs/lpc10/bsynz.c</span><br><span>@@ -36,7 +36,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int bsynz_(real *coef, integer *ip, integer *iv, real *sout, real *rms, real *ratio, real *g2pass, struct lpc10_decoder_state *st);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: random_ 4 0 */</span><br><span> #endif</span><br><span> </span><br><span>@@ -45,9 +45,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* ***************************************************************** */</span><br><span> </span><br><span>@@ -296,9 +296,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*         integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*       Function return value definitions */</span><br><span> /*         Parameters/constants */</span><br><span> /*       KEXC is not a Fortran PARAMETER, but it is an array initialized</span><br><span>@@ -343,7 +343,7 @@</span><br><span>     r__1 = *rmso / (*rms + 1e-6f);</span><br><span>     xy = min(r__1,8.f);</span><br><span>     *rmso = *rms;</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>         exc2[i__ - 1] = exc2[*ipo + i__ - 1] * xy;</span><br><span>     }</span><br><span>@@ -352,7 +352,7 @@</span><br><span> /*  Generate white noise for unvoiced */</span><br><span>        i__1 = *ip;</span><br><span>  for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-      exc[contrl_1.order + i__ - 1] = (real) (random_(st) / 64);</span><br><span style="color: hsl(120, 100%, 40%);">+            exc[control_1.order + i__ - 1] = (real) (random_(st) / 64);</span><br><span>      }</span><br><span> /*  Impulse doublet excitation for plosives */</span><br><span> /*       (RANDOM()+32768) is in the range 0 to 2**16-1.  Therefore the</span><br><span>@@ -362,7 +362,7 @@</span><br><span> /*       least 32 bits (16 isn't enough), and PX should be in the rang</span><br><span> e */</span><br><span> /*       ORDER+1+0 through ORDER+1+(IP-2) .EQ. ORDER+IP-1. */</span><br><span style="color: hsl(0, 100%, 40%);">-      px = (random_(st) + 32768) * (*ip - 1) / 65536 + contrl_1.order + 1;</span><br><span style="color: hsl(120, 100%, 40%);">+  px = (random_(st) + 32768) * (*ip - 1) / 65536 + control_1.order + 1;</span><br><span>        r__1 = *ratio / 4 * 1.f;</span><br><span>     pulse = r__1 * 342;</span><br><span>  if (pulse > 2e3f) {</span><br><span>@@ -375,32 +375,32 @@</span><br><span>       sscale = (real)sqrt((real) (*ip)) / 6.928f;</span><br><span>  i__1 = *ip;</span><br><span>  for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-      exc[contrl_1.order + i__ - 1] = 0.f;</span><br><span style="color: hsl(120, 100%, 40%);">+          exc[control_1.order + i__ - 1] = 0.f;</span><br><span>        if (i__ <= 25) {</span><br><span style="color: hsl(0, 100%, 40%);">-         exc[contrl_1.order + i__ - 1] = sscale * kexc[i__ - 1];</span><br><span style="color: hsl(120, 100%, 40%);">+               exc[control_1.order + i__ - 1] = sscale * kexc[i__ - 1];</span><br><span>         }</span><br><span style="color: hsl(0, 100%, 40%);">-       lpi0 = exc[contrl_1.order + i__ - 1];</span><br><span style="color: hsl(0, 100%, 40%);">-           r__2 = exc[contrl_1.order + i__ - 1] * .125f + *lpi1 * .75f;</span><br><span style="color: hsl(120, 100%, 40%);">+          lpi0 = exc[control_1.order + i__ - 1];</span><br><span style="color: hsl(120, 100%, 40%);">+        r__2 = exc[control_1.order + i__ - 1] * .125f + *lpi1 * .75f;</span><br><span>        r__1 = r__2 + *lpi2 * .125f;</span><br><span style="color: hsl(0, 100%, 40%);">-            exc[contrl_1.order + i__ - 1] = r__1 + *lpi3 * 0.f;</span><br><span style="color: hsl(120, 100%, 40%);">+           exc[control_1.order + i__ - 1] = r__1 + *lpi3 * 0.f;</span><br><span>         *lpi3 = *lpi2;</span><br><span>       *lpi2 = *lpi1;</span><br><span>       *lpi1 = lpi0;</span><br><span>    }</span><br><span>    i__1 = *ip;</span><br><span>  for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-      noise[contrl_1.order + i__ - 1] = random_(st) * 1.f / 64;</span><br><span style="color: hsl(0, 100%, 40%);">-       hpi0 = noise[contrl_1.order + i__ - 1];</span><br><span style="color: hsl(0, 100%, 40%);">-         r__2 = noise[contrl_1.order + i__ - 1] * -.125f + *hpi1 * .25f;</span><br><span style="color: hsl(120, 100%, 40%);">+       noise[control_1.order + i__ - 1] = random_(st) * 1.f / 64;</span><br><span style="color: hsl(120, 100%, 40%);">+            hpi0 = noise[control_1.order + i__ - 1];</span><br><span style="color: hsl(120, 100%, 40%);">+      r__2 = noise[control_1.order + i__ - 1] * -.125f + *hpi1 * .25f;</span><br><span>             r__1 = r__2 + *hpi2 * -.125f;</span><br><span style="color: hsl(0, 100%, 40%);">-           noise[contrl_1.order + i__ - 1] = r__1 + *hpi3 * 0.f;</span><br><span style="color: hsl(120, 100%, 40%);">+         noise[control_1.order + i__ - 1] = r__1 + *hpi3 * 0.f;</span><br><span>       *hpi3 = *hpi2;</span><br><span>       *hpi2 = *hpi1;</span><br><span>       *hpi1 = hpi0;</span><br><span>    }</span><br><span>    i__1 = *ip;</span><br><span>  for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-      exc[contrl_1.order + i__ - 1] += noise[contrl_1.order + i__ - 1];</span><br><span style="color: hsl(120, 100%, 40%);">+     exc[control_1.order + i__ - 1] += noise[control_1.order + i__ - 1];</span><br><span>      }</span><br><span>     }</span><br><span> /*   Synthesis filters: */</span><br><span>@@ -408,9 +408,9 @@</span><br><span>     xssq = 0.f;</span><br><span>     i__1 = *ip;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-      k = contrl_1.order + i__;</span><br><span style="color: hsl(120, 100%, 40%);">+     k = control_1.order + i__;</span><br><span>   sum = 0.f;</span><br><span style="color: hsl(0, 100%, 40%);">-      i__2 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+        i__2 = control_1.order;</span><br><span>      for (j = 1; j <= i__2; ++j) {</span><br><span>         sum += coef[j] * exc[k - j - 1];</span><br><span>         }</span><br><span>@@ -420,9 +420,9 @@</span><br><span> /*   Synthesize using the all pole filter  1 / (1 - SUM) */</span><br><span>     i__1 = *ip;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">- k = contrl_1.order + i__;</span><br><span style="color: hsl(120, 100%, 40%);">+     k = control_1.order + i__;</span><br><span>   sum = 0.f;</span><br><span style="color: hsl(0, 100%, 40%);">-      i__2 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+        i__2 = control_1.order;</span><br><span>      for (j = 1; j <= i__2; ++j) {</span><br><span>         sum += coef[j] * exc2[k - j - 1];</span><br><span>        }</span><br><span>@@ -430,7 +430,7 @@</span><br><span>      xssq += exc2[k - 1] * exc2[k - 1];</span><br><span>     }</span><br><span> /*  Save filter history for next epoch */</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>        exc[i__ - 1] = exc[*ip + i__ - 1];</span><br><span>   exc2[i__ - 1] = exc2[*ip + i__ - 1];</span><br><span>@@ -441,7 +441,7 @@</span><br><span>     gain = (real)sqrt(ssq / xssq);</span><br><span>     i__1 = *ip;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span style="color: hsl(0, 100%, 40%);">-       sout[i__] = gain * exc2[contrl_1.order + i__ - 1];</span><br><span style="color: hsl(120, 100%, 40%);">+    sout[i__] = gain * exc2[control_1.order + i__ - 1];</span><br><span>     }</span><br><span>     return 0;</span><br><span> } /* bsynz_ */</span><br><span>diff --git a/codecs/lpc10/decode.c b/codecs/lpc10/decode.c</span><br><span>index d58cd08..c5340f5 100644</span><br><span>--- a/codecs/lpc10/decode.c</span><br><span>+++ b/codecs/lpc10/decode.c</span><br><span>@@ -39,7 +39,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int decode_(integer *ipitv, integer *irms, integer *irc, integer *voice, integer *pitch, real *rms, real *rc, struct lpc10_decoder_state *st);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: ham84_ 14 3 4 4 4 */</span><br><span> /*:ref: median_ 4 3 4 4 4 */</span><br><span> #endif</span><br><span>@@ -49,9 +49,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* Table of constant values */</span><br><span> </span><br><span>@@ -352,9 +352,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*    integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*       Function return value definitions */</span><br><span> </span><br><span> /*       Parameters/constants */</span><br><span>@@ -412,7 +412,7 @@</span><br><span> /* 800       FORMAT(1X,' <<ERRCOR IN>>',T32,6X,I6,I5,T50,10I8) */</span><br><span> /*  If no error correction, do pitch and voicing then jump to decode */</span><br><span>     i4 = detau[*ipitv];</span><br><span style="color: hsl(0, 100%, 40%);">-    if (! contrl_1.corrp) {</span><br><span style="color: hsl(120, 100%, 40%);">+    if (! control_1.corrp) {</span><br><span>      voice[1] = 1;</span><br><span>        voice[2] = 1;</span><br><span>        if (*ipitv <= 1) {</span><br><span>@@ -443,7 +443,7 @@</span><br><span>  dpit[0] = *iavgp;</span><br><span>     }</span><br><span>     drms[0] = *irms;</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>      drc[i__ * 3 - 3] = irc[i__];</span><br><span>     }</span><br><span>@@ -522,7 +522,7 @@</span><br><span>     }</span><br><span> /*  Get unsmoothed RMS, RC's, and PITCH */</span><br><span>     *irms = drms[1];</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>  irc[i__] = drc[i__ * 3 - 2];</span><br><span>     }</span><br><span>@@ -563,7 +563,7 @@</span><br><span> /*  the values will be zero. */</span><br><span> L500:</span><br><span>     if ((icorf & bit[4]) != 0) {</span><br><span style="color: hsl(0, 100%, 40%);">- i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+        i__1 = control_1.order;</span><br><span>      for (i__ = 5; i__ <= i__1; ++i__) {</span><br><span>           irc[i__] = zrc[i__ - 1];</span><br><span>         }</span><br><span>@@ -575,7 +575,7 @@</span><br><span>     dpit[1] = dpit[0];</span><br><span>     drms[2] = drms[1];</span><br><span>     drms[1] = drms[0];</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>   drc[i__ * 3 - 1] = drc[i__ * 3 - 2];</span><br><span>         drc[i__ * 3 - 2] = drc[i__ * 3 - 3];</span><br><span>@@ -605,7 +605,7 @@</span><br><span>   irc[i__] = i2 * pow_ii(&c__2, &ishift);</span><br><span>     }</span><br><span> /*  Decode RC(3)-RC(10) to sign plus 14 bits */</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 3; i__ <= i__1; ++i__) {</span><br><span>     i2 = irc[i__];</span><br><span>       ishift = 15 - nbit[i__ - 1];</span><br><span>@@ -617,7 +617,7 @@</span><br><span> /* 811    FORMAT(1X,'<<DECODE OUT>>',T45,I4,1X,10I8) */</span><br><span> /*  Scale RMS and RC's to reals */</span><br><span>     *rms = (real) (*irms);</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>       rc[i__] = irc[i__] / 16384.f;</span><br><span>     }</span><br><span>diff --git a/codecs/lpc10/dyptrk.c b/codecs/lpc10/dyptrk.c</span><br><span>index ca195b6..ff5faf6 100644</span><br><span>--- a/codecs/lpc10/dyptrk.c</span><br><span>+++ b/codecs/lpc10/dyptrk.c</span><br><span>@@ -36,7 +36,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int dyptrk_(real *amdf, integer *ltau, integer *minptr, integer *voice, integer *pitch, integer *midx, struct lpc10_encoder_state *st);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> #endif</span><br><span> </span><br><span> /* Common Block Declarations */</span><br><span>@@ -44,9 +44,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* ********************************************************************* */</span><br><span> </span><br><span>@@ -251,9 +251,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*        integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*  Parameters/constants */</span><br><span> /*       Local variables that need not be saved */</span><br><span> /*       Note that PATH is only used for debugging purposes, and can be */</span><br><span>diff --git a/codecs/lpc10/encode.c b/codecs/lpc10/encode.c</span><br><span>index f7b4776..cd93330 100644</span><br><span>--- a/codecs/lpc10/encode.c</span><br><span>+++ b/codecs/lpc10/encode.c</span><br><span>@@ -28,7 +28,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int encode_(integer *voice, integer *pitch, real *rms, real *rc, integer *ipitch, integer *irms, integer *irc);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> #endif</span><br><span> </span><br><span> /* Common Block Declarations */</span><br><span>@@ -36,9 +36,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* Table of constant values */</span><br><span> </span><br><span>@@ -264,9 +264,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*        integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*       Parameters/constants */</span><br><span> /*       These arrays are not Fortran PARAMETER's, but they are defined */</span><br><span> /*       by DATA statements below, and their contents are never altered.</span><br><span>@@ -280,7 +280,7 @@</span><br><span>     /* Function Body */</span><br><span> /*  Scale RMS and RC's to integers */</span><br><span>     *irms = (integer)*rms;</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span>  irc[i__] = (integer)(rc[i__] * 32768.f);</span><br><span>     }</span><br><span>@@ -290,7 +290,7 @@</span><br><span>     if (voice[1] != 0 && voice[2] != 0) {</span><br><span>         *ipitch = entau[*pitch - 1];</span><br><span>     } else {</span><br><span style="color: hsl(0, 100%, 40%);">-    if (contrl_1.corrp) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (control_1.corrp) {</span><br><span>           *ipitch = 0;</span><br><span>         if (voice[1] != voice[2]) {</span><br><span>              *ipitch = 127;</span><br><span>@@ -333,15 +333,15 @@</span><br><span>       irc[i__] = i2;</span><br><span>     }</span><br><span> /*  Encode RC(3) - (10) linearly, remove bias then scale */</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 3; i__ <= i__1; ++i__) {</span><br><span>  i2 = irc[i__] / 2;</span><br><span style="color: hsl(0, 100%, 40%);">-      i2 = (integer)((i2 + enadd[contrl_1.order + 1 - i__ - 1]) * enscl[</span><br><span style="color: hsl(0, 100%, 40%);">-              contrl_1.order + 1 - i__ - 1]);</span><br><span style="color: hsl(120, 100%, 40%);">+       i2 = (integer)((i2 + enadd[control_1.order + 1 - i__ - 1]) * enscl[</span><br><span style="color: hsl(120, 100%, 40%);">+           control_1.order + 1 - i__ - 1]);</span><br><span> /* Computing MIN */</span><br><span>      i__2 = max(i2,-127);</span><br><span>         i2 = min(i__2,127);</span><br><span style="color: hsl(0, 100%, 40%);">-     nbit = enbits[contrl_1.order + 1 - i__ - 1];</span><br><span style="color: hsl(120, 100%, 40%);">+  nbit = enbits[control_1.order + 1 - i__ - 1];</span><br><span>        i3 = 0;</span><br><span>      if (i2 < 0) {</span><br><span>         i3 = -1;</span><br><span>@@ -356,7 +356,7 @@</span><br><span> /*     important parameters during non-voiced frames. */</span><br><span> /*     RC(1) - RC(4) are protected using 20 parity bits */</span><br><span> /*     replacing RC(5) - RC(10). */</span><br><span style="color: hsl(0, 100%, 40%);">-    if (contrl_1.corrp) {</span><br><span style="color: hsl(120, 100%, 40%);">+    if (control_1.corrp) {</span><br><span>     if (*ipitch == 0 || *ipitch == 127) {</span><br><span>            irc[5] = enctab[(irc[1] & 30) / 2];</span><br><span>      irc[6] = enctab[(irc[2] & 30) / 2];</span><br><span>diff --git a/codecs/lpc10/lpcdec.c b/codecs/lpc10/lpcdec.c</span><br><span>index 55f8892..5033261 100644</span><br><span>--- a/codecs/lpc10/lpcdec.c</span><br><span>+++ b/codecs/lpc10/lpcdec.c</span><br><span>@@ -40,7 +40,7 @@</span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int lpcdec_(integer *bits, real *speech);</span><br><span> extern int initlpcdec_(void);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: chanrd_ 14 5 4 4 4 4 4 */</span><br><span> /*:ref: decode_ 14 7 4 4 4 4 4 6 6 */</span><br><span> /*:ref: synths_ 14 6 4 4 6 6 6 4 */</span><br><span>@@ -53,9 +53,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* Table of constant values */</span><br><span> </span><br><span>@@ -271,9 +271,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*     integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*       Local variables that need not be saved */</span><br><span> /*       Uncoded speech parameters */</span><br><span> /*       Coded speech parameters */</span><br><span>diff --git a/codecs/lpc10/lpcini.c b/codecs/lpc10/lpcini.c</span><br><span>index ced3498..9df0e2b 100644</span><br><span>--- a/codecs/lpc10/lpcini.c</span><br><span>+++ b/codecs/lpc10/lpcini.c</span><br><span>@@ -40,7 +40,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int lpcini_(void);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: initlpcenc_ 14 0 */</span><br><span> /*:ref: initlpcdec_ 14 0 */</span><br><span> #endif</span><br><span>@@ -50,9 +50,9 @@</span><br><span> struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* ***************************************************************** */</span><br><span> </span><br><span>@@ -238,12 +238,12 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*       integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-    contrl_1.order = 10;</span><br><span style="color: hsl(0, 100%, 40%);">-    contrl_1.lframe = 180;</span><br><span style="color: hsl(0, 100%, 40%);">-    contrl_1.corrp = TRUE_;</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+    control_1.order = 10;</span><br><span style="color: hsl(120, 100%, 40%);">+    control_1.lframe = 180;</span><br><span style="color: hsl(120, 100%, 40%);">+    control_1.corrp = TRUE_;</span><br><span>     return 0;</span><br><span> } /* lpcini_ */</span><br><span> </span><br><span>diff --git a/codecs/lpc10/synths.c b/codecs/lpc10/synths.c</span><br><span>index 2a3179b..affe5cf 100644</span><br><span>--- a/codecs/lpc10/synths.c</span><br><span>+++ b/codecs/lpc10/synths.c</span><br><span>@@ -39,7 +39,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int synths_(integer *voice, integer *pitch, real *rms, real *rc, real *speech, integer *k, struct lpc10_decoder_state *st);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: pitsyn_ 14 12 4 4 4 6 6 4 4 4 6 6 4 6 */</span><br><span> /*:ref: irc2pc_ 14 5 6 6 4 6 6 */</span><br><span> /*:ref: bsynz_ 14 7 6 4 4 6 6 6 6 */</span><br><span>@@ -54,9 +54,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /* Table of constant values */</span><br><span> </span><br><span>@@ -339,9 +339,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*         integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*       Parameters/constants */</span><br><span> /*       Local variables that need not be saved */</span><br><span> /*       Local state */</span><br><span>@@ -380,7 +380,7 @@</span><br><span> /* Computing MAX */</span><br><span>     i__1 = min(*pitch,156);</span><br><span>     *pitch = max(i__1,20);</span><br><span style="color: hsl(0, 100%, 40%);">-    i__1 = contrl_1.order;</span><br><span style="color: hsl(120, 100%, 40%);">+    i__1 = control_1.order;</span><br><span>     for (i__ = 1; i__ <= i__1; ++i__) {</span><br><span> /* Computing MAX */</span><br><span> /* Computing MIN */</span><br><span>@@ -388,7 +388,7 @@</span><br><span>     r__1 = min(r__2,.99f);</span><br><span>       rc[i__] = max(r__1,-.99f);</span><br><span>     }</span><br><span style="color: hsl(0, 100%, 40%);">-    pitsyn_(&contrl_1.order, &voice[1], pitch, rms, &rc[1], &contrl_1.lframe,</span><br><span style="color: hsl(120, 100%, 40%);">+    pitsyn_(&control_1.order, &voice[1], pitch, rms, &rc[1], &control_1.lframe,</span><br><span>        ivuv, ipiti, rmsi, rci, &nout, &ratio, st);</span><br><span>     if (nout > 0) {</span><br><span>    i__1 = nout;</span><br><span>@@ -398,7 +398,7 @@</span><br><span> d of */</span><br><span> /*             BUF. */</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-         irc2pc_(&rci[j * 10 - 10], pc, &contrl_1.order, &c_b2, &g2pass);</span><br><span style="color: hsl(120, 100%, 40%);">+      irc2pc_(&rci[j * 10 - 10], pc, &control_1.order, &c_b2, &g2pass);</span><br><span>            bsynz_(pc, &ipiti[j - 1], &ivuv[j - 1], &buf[*buflen], &rmsi[j - 1]</span><br><span>                  , &ratio, &g2pass, st);</span><br><span>      deemp_(&buf[*buflen], &ipiti[j - 1], st);</span><br><span>diff --git a/codecs/lpc10/voicin.c b/codecs/lpc10/voicin.c</span><br><span>index 2d36e2c..58125b5 100644</span><br><span>--- a/codecs/lpc10/voicin.c</span><br><span>+++ b/codecs/lpc10/voicin.c</span><br><span>@@ -39,7 +39,7 @@</span><br><span> </span><br><span> #ifdef P_R_O_T_O_T_Y_P_E_S</span><br><span> extern int voicin_(integer *vwin, real *inbuf, real *lpbuf, integer *buflim, integer *half, real *minamd, real *maxamd, integer *mintau, real *ivrc, integer *obound, integer *voibuf, integer *af, struct lpc10_encoder_state *st);</span><br><span style="color: hsl(0, 100%, 40%);">-/* comlen contrl_ 12 */</span><br><span style="color: hsl(120, 100%, 40%);">+/* comlen control_ 12 */</span><br><span> /*:ref: vparms_ 14 14 4 6 6 4 4 6 4 4 4 4 6 6 6 6 */</span><br><span> #endif</span><br><span> </span><br><span>@@ -48,9 +48,9 @@</span><br><span> extern struct {</span><br><span>     integer order, lframe;</span><br><span>     logical corrp;</span><br><span style="color: hsl(0, 100%, 40%);">-} contrl_;</span><br><span style="color: hsl(120, 100%, 40%);">+} control_;</span><br><span> </span><br><span style="color: hsl(0, 100%, 40%);">-#define contrl_1 contrl_</span><br><span style="color: hsl(120, 100%, 40%);">+#define control_1 control_</span><br><span> </span><br><span> /****************************************************************************/</span><br><span> </span><br><span>@@ -414,9 +414,9 @@</span><br><span> /* embedded. */</span><br><span> /* listl and lincnt are not needed for an embedded LPC10 at all. */</span><br><span> /*   integer nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(0, 100%, 40%);">-/*   common /contrl/ quant, nbits */</span><br><span style="color: hsl(0, 100%, 40%);">-/*       common /contrl/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span style="color: hsl(120, 100%, 40%);">+/*     common /control/ fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */</span><br><span style="color: hsl(120, 100%, 40%);">+/*        common /control/ quant, nbits */</span><br><span style="color: hsl(120, 100%, 40%);">+/*    common /control/ nframe, nunsfm, iclip, maxosp, listl, lincnt */</span><br><span> /*  Parameters/constants */</span><br><span> /*       Voicing coefficient and Linear Discriminant Analysis variables:</span><br><span> */</span><br><span></span><br></pre><p>To view, visit <a href="https://gerrit.asterisk.org/c/asterisk/+/16834">change 16834</a>. To unsubscribe, or for help writing mail filters, visit <a href="https://gerrit.asterisk.org/settings">settings</a>.</p><div itemscope itemtype="http://schema.org/EmailMessage"><div itemscope itemprop="action" itemtype="http://schema.org/ViewAction"><link itemprop="url" href="https://gerrit.asterisk.org/c/asterisk/+/16834"/><meta itemprop="name" content="View Change"/></div></div>

<div style="display:none"> Gerrit-Project: asterisk </div>
<div style="display:none"> Gerrit-Branch: master </div>
<div style="display:none"> Gerrit-Change-Id: I615dce29d36fba7c296073eccefdd5236f4f81f0 </div>
<div style="display:none"> Gerrit-Change-Number: 16834 </div>
<div style="display:none"> Gerrit-PatchSet: 1 </div>
<div style="display:none"> Gerrit-Owner: Josh Soref <jsoref@gmail.com> </div>
<div style="display:none"> Gerrit-CC: Friendly Automation </div>
<div style="display:none"> Gerrit-MessageType: newchange </div>