Merge "chan_sip.c: Prevent address change on unauthenticated SIP request."
[asterisk/asterisk.git] / codecs / lpc10 / tbdm.c
old mode 100755 (executable)
new mode 100644 (file)
index 149befe..4ca4d73
@@ -1,8 +1,14 @@
 /*
 
 $Log$
-Revision 1.11  2000/01/05 08:20:40  markster
-Version 0.1.12 from FTP
+Revision 1.15  2004/06/26 03:50:14  markster
+Merge source cleanups (bug #1911)
+
+Revision 1.14  2003/02/12 13:59:15  matteo
+mer feb 12 14:56:57 CET 2003
+
+Revision 1.1.1.1  2003/02/12 13:59:15  matteo
+mer feb 12 14:56:57 CET 2003
 
 Revision 1.2  2000/01/05 08:20:40  markster
 Some OSS fixes and a few lpc changes to make it actually work
@@ -13,11 +19,6 @@ Some OSS fixes and a few lpc changes to make it actually work
 
 */
 
-#ifdef P_R_O_T_O_T_Y_P_E_S
-extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real *amdf, integer *minptr, integer *maxptr, integer *mintau);
-/*:ref: difmag_ 14 8 6 4 4 4 4 6 4 4 */
-#endif
-
 /*  -- translated by f2c (version 19951025).
    You must link the resulting object file with the libraries:
        -lf2c -lm   (in that order)
@@ -25,17 +26,28 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
 
 #include "f2c.h"
 
+#ifdef P_R_O_T_O_T_Y_P_E_S
+extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real *amdf, integer *minptr, integer *maxptr, integer *mintau);
+/*:ref: difmag_ 14 8 6 4 4 4 4 6 4 4 */
+#endif
+
 /* ********************************************************************** */
 
 /*     TBDM Version 49 */
 
 /* $Log$
- * Revision 1.11  2000/01/05 08:20:40  markster
- * Version 0.1.12 from FTP
+ * Revision 1.15  2004/06/26 03:50:14  markster
+ * Merge source cleanups (bug #1911)
+ *
+ * Revision 1.14  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.1.1.1  2003/02/12 13:59:15  matteo
+ * mer feb 12 14:56:57 CET 2003
+ *
+ * Revision 1.2  2000/01/05 08:20:40  markster
+ * Some OSS fixes and a few lpc changes to make it actually work
  *
-/* Revision 1.2  2000/01/05 08:20:40  markster
-/* Some OSS fixes and a few lpc changes to make it actually work
-/*
  * Revision 1.1  1996/08/19  22:30:26  jaf
  * Initial revision
  * */
@@ -79,7 +91,7 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
 
 /* This subroutine has no local state. */
 
-/* Subroutine */ int tbdm_(real *speech, integer *lpita, integer *tau, 
+/* Subroutine */ int tbdm_(real *speech, integer *lpita, integer *tau,
        integer *ltau, real *amdf, integer *minptr, integer *maxptr, integer *
        mintau)
 {
@@ -89,7 +101,7 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
     /* Local variables */
     real amdf2[6];
     integer minp2, ltau2, maxp2, i__;
-    extern /* Subroutine */ int difmag_(real *, integer *, integer *, integer 
+    extern /* Subroutine */ int difmag_(real *, integer *, integer *, integer
            *, integer *, real *, integer *, integer *);
     integer minamd, ptr, tau2[6];
 
@@ -106,10 +118,10 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
     --tau;
 
     /* Function Body */
-    difmag_(&speech[1], lpita, &tau[1], ltau, &tau[*ltau], &amdf[1], minptr, 
+    difmag_(&speech[1], lpita, &tau[1], ltau, &tau[*ltau], &amdf[1], minptr,
            maxptr);
     *mintau = tau[*minptr];
-    minamd = amdf[*minptr];
+    minamd = (integer)amdf[*minptr];
 /*   Build table containing all lags within +/- 3 of the AMDF minimum */
 /*    excluding all that have already been computed */
     ltau2 = 0;
@@ -135,7 +147,7 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
                maxp2);
        if (amdf2[minp2 - 1] < (real) minamd) {
            *mintau = tau2[minp2 - 1];
-           minamd = amdf2[minp2 - 1];
+           minamd = (integer)amdf2[minp2 - 1];
        }
     }
 /*   Check one octave up, if there are any lags not yet computed */
@@ -153,7 +165,7 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
                maxp2);
        if (amdf2[minp2 - 1] < (real) minamd) {
            *mintau = tau2[minp2 - 1];
-           minamd = amdf2[minp2 - 1];
+           minamd = (integer)amdf2[minp2 - 1];
            *minptr += -20;
        }
     }
@@ -173,4 +185,3 @@ extern int tbdm_(real *speech, integer *lpita, integer *tau, integer *ltau, real
     }
     return 0;
 } /* tbdm_ */
-