| timbo@cvs.perl.org 2006-01-12, 8:25 pm |
| Author: timbo
Date: Thu Jan 12 14:41:35 2006
New Revision: 2404
Modified:
dbd-oracle/trunk/Oracle.xs
dbd-oracle/trunk/oci8.c
Log:
Avoid compiler warnings
Modified: dbd-oracle/trunk/Oracle.xs
====================
====================
====================
==================
--- dbd-oracle/trunk/Oracle.xs (original)
+++ dbd-oracle/trunk/Oracle.xs Thu Jan 12 14:41:35 2006
@@ -268,10 +268,8 @@ ora_lob_read(dbh, locator, offset, lengt
SV *dest_sv;
dvoid *bufp;
sword status;
- ub2 csid;
ub1 csform;
CODE:
- csid = 0;
csform = SQLCS_IMPLICIT;
dest_sv = sv_2mortal(newSV(len
gth*4)); /*LAB: crude hack that works... tim did it else where XXX */
SvPOK_on(dest_sv);
Modified: dbd-oracle/trunk/oci8.c
====================
====================
====================
==================
--- dbd-oracle/trunk/oci8.c (original)
+++ dbd-oracle/trunk/oci8.c Thu Jan 12 14:41:35 2006
@@ -1090,6 +1090,7 @@ fetch_func_getrefpv(
SV *sth, imp_fbh_t *
return 1;
}
+#ifdef OCI_DTYPE_REF
static void
fbh_setup_getrefpv(i
mp_fbh_t *fbh, int desc_t, char *bless)
{
@@ -1103,6 +1104,7 @@ fbh_setup_getrefpv(i
mp_fbh_t *fbh, int d
fbh->desc_t = desc_t;
OCIDescriptorAlloc_o
k(fbh->imp_sth->envhp, &fbh->desc_h, fbh->desc_t);
}
+#endif
int
|