(ibase_blob_import) It's good to have link handle available, if you want to

                    use it...
(_php_ibase_exec)   On error situations, only xsqlda was freed, not its
                    contents.

diff --git a/ext/interbase/interbase.c b/ext/interbase/interbase.c
index 202805551a09066bf85c0b1831fa5f5380896072..00bb57ed27c7d9ab090d2f92409ad33aa55de970 100644 (file)
--- a/ext/interbase/interbase.c
+++ b/ext/interbase/interbase.c
@@ -55,10 +55,10 @@ A lot... */
 #define SQL_DIALECT_CURRENT 1
 #endif
 
-/*
 #define IBDEBUG(a) php_printf("::: %s (%d)\n", a, __LINE__);
-*/
+/*
 #define IBDEBUG(a)
+*/
 
 #define SAFE_STRING(s) ((s)?(s):"")
 
@@ -141,23 +141,21 @@ static void get_link_trans(INTERNAL_FUNCTION_PARAMETERS, zval **link_id, ibase_d
        IBLS_FETCH();
 
        IBDEBUG("Transaction or database link?");
-       if (Z_TYPE_PP(link_id) == IS_RESOURCE) {
-               if ((resource = zend_list_find(Z_LVAL_PP(link_id), &type))) {
-                       IBDEBUG("Found in list");
-                       if (type == IBG(le_trans)) {
-                               /* Transaction resource. Fetch it, database link resource
-                                  is stored in ib_trans->link_rsrc. */
-                               IBDEBUG("Type is le_trans");
-                               *trans_id = (Z_LVAL_PP(link_id));
-                               ZEND_FETCH_RESOURCE(ib_trans, ibase_tr_link *, link_id, -1, "InterBase transaction", IBG(le_trans));
-                               *trans_n = ib_trans->trans_num;
-                               ZEND_FETCH_RESOURCE2(resource, ibase_db_link *, link_id, ib_trans->link_rsrc, "InterBase link", IBG(le_link), IBG(le_plink));
-                       } else {
-                               IBDEBUG("Type is le_[p]link");
-                               /* Database link resource, use default transaction (=0). */
-                               *trans_n = 0;
-                               ZEND_FETCH_RESOURCE2(resource, ibase_db_link *, link_id, -1, "InterBase link", IBG(le_link), IBG(le_plink));
-                       }
+       if ((resource = zend_list_find(Z_LVAL_PP(link_id), &type))) {
+               IBDEBUG("Found in list");
+               if (type == IBG(le_trans)) {
+                       /* Transaction resource. Fetch it, database link resource
+                          is stored in ib_trans->link_rsrc. */
+                       IBDEBUG("Type is le_trans");
+                       *trans_id = (Z_LVAL_PP(link_id));
+                       ZEND_FETCH_RESOURCE(ib_trans, ibase_tr_link *, link_id, -1, "InterBase transaction", IBG(le_trans));
+                       *trans_n = ib_trans->trans_num;
+                       ZEND_FETCH_RESOURCE2(resource, ibase_db_link *, link_id, ib_trans->link_rsrc, "InterBase link", IBG(le_link), IBG(le_plink));
+               } else {
+                       IBDEBUG("Type is le_[p]link");
+                       /* Database link resource, use default transaction (=0). */
+                       *trans_n = 0;
+                       ZEND_FETCH_RESOURCE2(resource, ibase_db_link *, link_id, -1, "InterBase link", IBG(le_link), IBG(le_plink));
                }
        }
        *ib_link = resource;
@@ -1367,11 +1365,13 @@ static int _php_ibase_exec(ibase_result **ib_resultp, ibase_query *ib_query, int
        
        /* allocate sqlda and output buffers */
        if (ib_query->out_sqlda) { /* output variables in select, select for update */
+               IBDEBUG("Query wants XSQLDA for output");
                IB_RESULT = emalloc(sizeof(ibase_result));
                IB_RESULT->link = ib_query->link;
                IB_RESULT->trans = ib_query->trans;
                IB_RESULT->stmt = ib_query->stmt; 
                IB_RESULT->drop_stmt = 0; /* when free result close but not drop!*/
+
                out_sqlda = IB_RESULT->out_sqlda = emalloc(XSQLDA_LENGTH(ib_query->out_sqlda->sqld));
                memcpy(out_sqlda,ib_query->out_sqlda,XSQLDA_LENGTH(ib_query->out_sqlda->sqld));
                _php_ibase_alloc_xsqlda(out_sqlda);
@@ -1385,6 +1385,7 @@ static int _php_ibase_exec(ibase_result **ib_resultp, ibase_query *ib_query, int
        }
 
        if (ib_query->in_sqlda) { /* has placeholders */
+               IBDEBUG("Query wants XSQLDA for input");
                if (ib_query->in_sqlda->sqld != argc) {
                        _php_ibase_module_error("placeholders (%d) and variables (%d) mismatch", ib_query->in_sqlda->sqld, argc);
                        goto _php_ibase_exec_error;  /* yes mommy, goto! */
@@ -1409,7 +1410,7 @@ static int _php_ibase_exec(ibase_result **ib_resultp, ibase_query *ib_query, int
 _php_ibase_exec_error:          /* I'm a bad boy... */
        
        if (in_sqlda)
-               efree(in_sqlda);
+               _php_ibase_free_xsqlda(in_sqlda);
        if (bind_buf)
                efree(bind_buf);
 
@@ -1419,7 +1420,7 @@ _php_ibase_exec_error:             /* I'm a bad boy... */
                        IB_RESULT = NULL;
                }
                if (out_sqlda)
-                       efree(out_sqlda);
+                       _php_ibase_free_xsqlda(out_sqlda);
        }
        
        return rv;
@@ -2870,6 +2871,7 @@ PHP_FUNCTION(ibase_blob_import)
                                RETURN_FALSE;
                        }
                        link_id = IBG(default_link);
+                       ZEND_FETCH_RESOURCE2(ib_link, ibase_db_link *, link_arg, link_id, "InterBase link", IBG(le_link), IBG(le_plink));
                        break;
                case 2:
                        if (zend_get_parameters_ex(2, &link_arg, &file_arg) == FAILURE) {
@@ -2883,7 +2885,7 @@ PHP_FUNCTION(ibase_blob_import)
        }
        
        /* open default transaction */
-       if(_php_ibase_def_trans(ib_link, trans_n) == FAILURE){
+       if (_php_ibase_def_trans(ib_link, trans_n) == FAILURE) {
                RETURN_FALSE;
        }