diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix overflow testing in matrix_to_list

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-07-13 21:57:01 -05:00
parent 11cefa668a
commit ad30c36626
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/matrix/matrix.c
View File

@ -387,13 +387,13 @@ static YAP_Term
float_matrix_to_list(int *mat) {
double *data = matrix_double_data(mat, mat[MAT_NDIMS]);
int i = 0;
YAP_Term tf = YAP_TermNil();
YAP_Term tf = YAP_TermNil(), tnil = tf;
for (i = mat[MAT_SIZE]-1; i>= 0; i--) {
tf = YAP_MkPairTerm(YAP_MkFloatTerm(data[i]),tf);
if (tf == YAP_TermNil()) {
if (tf == tnil) {
/* error */
return YAP_TermNil();
return tnil;
}
}
return tf;