diff -ur interbase/interbase.c interbase-/interbase.c --- interbase/interbase.c Tue Oct 5 05:03:44 2004 +++ interbase-/interbase.c Tue Oct 5 04:58:21 2004 @@ -159,6 +159,17 @@ } } +static void +ib_error_check_warn() +{ + short code = isc_sqlcode(isc_status); + if (code != 0) { + char buf[1024]; + isc_sql_interprete(code, buf, 1024); + rb_warn("%s(%d)", buf, code); + } +} + static XSQLDA* sqlda_alloc(cols) long cols; @@ -223,10 +234,10 @@ { if (transact) { isc_commit_transaction(isc_status, &transact); - ib_error_check(); + ib_error_check_warn(); } isc_detach_database(isc_status, &conn->db); - ib_error_check(); + ib_error_check_warn(); conn->db = 0; db_num--; if (ibconn_list == 0 || ibconn_list == conn) @@ -824,10 +835,10 @@ { if (curs->open) { isc_dsql_free_statement(isc_status, &curs->stmt, DSQL_close); - ib_error_check(); + ib_error_check_warn(); } isc_dsql_free_statement(isc_status, &curs->stmt, DSQL_drop); - ib_error_check(); + ib_error_check_warn(); curs->stmt = 0; }