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 ----