[PD-cvs] externals/iem/iemmatrix/src mtx_mul~.c,1.1,1.2

[IOhannes m zmölnig]

Update of /cvsroot/pure-data/externals/iem/iemmatrix/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28974

Modified Files:
	mtx_mul~.c 
Log Message:
- removed the debug-message in the dsp_add() routine
- replaced error-"post()"s by "pd_error()" to be able to track down the error


Index: mtx_mul~.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_mul~.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** mtx_mul~.c	9 May 2005 16:22:29 -0000	1.1
--- mtx_mul~.c	27 Jun 2005 12:46:06 -0000	1.2
***************
*** 74,78 ****
    if(argc<2)
      {
!       post("mtx_*~ : bad matrix: <int> out_rows <int> in_cols !");
        return;
      }
--- 74,78 ----
    if(argc<2)
      {
!       pd_error(x, "mtx_*~ : bad matrix: <int> out_rows <int> in_cols !");
        return;
      }
***************
*** 92,101 ****
    if((col!=x->x_n_in)||(row!=x->x_n_out))
      {
!       post("mtx_*~ : matrix dimensions do not match (%dx%d != %dx%d)!!", col, row, x->x_n_in, x->x_n_out);
        return;
      }
    if(argc<row*col)
      {
!       post("mtx_*~ : reduced matrices not yet supported");
        return;
      }
--- 92,101 ----
    if((col!=x->x_n_in)||(row!=x->x_n_out))
      {
!       pd_error(x,"mtx_*~ : matrix dimensions do not match (%dx%d != %dx%d)!!", col, row, x->x_n_in, x->x_n_out);
        return;
      }
    if(argc<row*col)
      {
!       pd_error(x,"mtx_*~ : reduced matrices not yet supported");
        return;
      }
***************
*** 138,142 ****
    if(argc != 3)
      {
!       post("mtx_*~ : bad element: 3 floats: <int> out_row <int> in_col <float> element !");
        return;
      }
--- 138,142 ----
    if(argc != 3)
      {
!       pd_error(x,"mtx_*~ : bad element: 3 floats: <int> out_row <int> in_col <float> element !");
        return;
      }
***************
*** 148,157 ****
    if((row >= x->x_n_out) || (row < 0))
      {
!       post("mtx_*~ : row dimensions do not match !!");
        return;
      }
    if((col >= n_in_cols) || (col < 0))
      {
!       post("mtx_*~ : col dimensions do not match !!");
        return;
      }
--- 148,157 ----
    if((row >= x->x_n_out) || (row < 0))
      {
!       pd_error(x,"mtx_*~ : row dimensions do not match !!");
        return;
      }
    if((col >= n_in_cols) || (col < 0))
      {
!       pd_error(x,"mtx_*~ : col dimensions do not match !!");
        return;
      }
***************
*** 180,184 ****
    if(argc<1)
      {
!       post("mtx_*~ : bad row: <int> in_row !");
        return;
      }
--- 180,184 ----
    if(argc<1)
      {
!       pd_error(x,"mtx_*~ : bad row: <int> in_row !");
        return;
      }
***************
*** 190,194 ****
    if((nth_row >= x->x_n_out) || (nth_row < 0))
      {
!       post("mtx_*~ : row dimensions do not match !!");
        return;
      }
--- 190,194 ----
    if((nth_row >= x->x_n_out) || (nth_row < 0))
      {
!       pd_error(x,"mtx_*~ : row dimensions do not match !!");
        return;
      }
***************
*** 196,200 ****
    if(argc < col)
      {
!       post("mtx_*~ : col dimensions do not match !!");
        return;
      }
--- 196,200 ----
    if(argc < col)
      {
!       pd_error(x,"mtx_*~ : col dimensions do not match !!");
        return;
      }
***************
*** 230,234 ****
    if(argc<1)
      {
!       post("mtx_*~ : bad col: <int> in_cols !");
        return;
      }
--- 230,234 ----
    if(argc<1)
      {
!       pd_error(x,"mtx_*~ : bad col: <int> in_cols !");
        return;
      }
***************
*** 241,245 ****
    if((nth_col < 0)||(nth_col >= col))
      {
!       post("mtx_*~ : col dimensions do not match !!");
        return;
      }
--- 241,245 ----
    if((nth_col < 0)||(nth_col >= col))
      {
!       pd_error(x,"mtx_*~ : col dimensions do not match !!");
        return;
      }
***************
*** 247,251 ****
    if(argc < row)
      {
!       post("mtx_*~ : row dimensions do not match !!");
        return;
      }
--- 247,251 ----
    if(argc < row)
      {
!       pd_error(x,"mtx_*~ : row dimensions do not match !!");
        return;
      }
***************
*** 778,786 ****
    if(n&7)
      {
-       post("adding perform");
        dsp_add(matrix_multilde_perform, 2, x, n);
      }
    else {
-     post("adding perf8");
      dsp_add(matrix_multilde_perf8, 2, x, n);
    }
--- 778,784 ----