fix syntax error messages

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2275 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-06-12 10:55:52 +00:00
parent 8a00ab9d70
commit ac6ddd5005
7 changed files with 58 additions and 33 deletions
--- a/library/matrix/matrix.c
+++ b/library/matrix/matrix.c
@@ -478,8 +478,12 @@ matrix_long_set_all(int *mat, long int nval)
  int i;
  long int *data = matrix_long_data(mat,mat[MAT_NDIMS]);

-  for (i = 0; i< mat[MAT_SIZE]; i++)
-    data[i] = nval;
+  if (nval == 0) {
+    memset((void *)data,0,sizeof(long int)*mat[MAT_SIZE]);
+  } else {
+    for (i = 0; i< mat[MAT_SIZE]; i++)
+      data[i] = nval;
+  }
 }

 static void