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

small fixes

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-10-08 14:42:55 +01:00
parent 6811ded37b
commit 8846ccbf01
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
MYDDAS/myddas_odbc.c
View File

@ -652,7 +652,7 @@ c_db_odbc_row(void) {
if (!strcmp(AtomName(AtomOfTerm(type)),"integer")) if (!strcmp(AtomName(AtomOfTerm(type)),"integer"))
{ {
if (!Yap_unify(head, MkIntegerTerm(atoi(bind_value)))) if (!Yap_unify(head, MkIntegerTerm(atol(bind_value))))
continue; continue;
} }
else if (!strcmp(AtomName(AtomOfTerm(type)),"real")) else if (!strcmp(AtomName(AtomOfTerm(type)),"real"))
@ -697,6 +697,11 @@ c_db_odbc_number_of_fields_in_query(void) {
return FALSE; return FALSE;
if (!Yap_unify(arg_fields, MkIntegerTerm(number_cols))){ if (!Yap_unify(arg_fields, MkIntegerTerm(number_cols))){
if (!SQLCLOSECURSOR(hstmt,"db_number_of_fields_in_query"))
return FALSE;
if (!SQLFREESTMT(hstmt,SQL_CLOSE, "db_number_of_fields_in_query"))
return FALSE;
return FALSE; return FALSE;
} }