Commented out unused code

git-svn-id: http://svn.perl.org/modules/dbd-oracle/trunk@14959 50811bd7-b8ce-0310-adc1-d9db26280581
gwenshap · Oct 22, 2011 · 25ca4de · 25ca4de
1 parent c547837
commit 25ca4de
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -16,6 +16,10 @@ Changes in DBD-Oracle 1.33_01 (xx-xx-xxxx)
    does not affect how the column is bound in Oracle, only what
    happens after the column data is retrieved (Martin J. Evans)
 
+ [OTHER]
+ - Commented out some functions in oci8.c which were not used to
+   reduce the size of the driver a little (Martin J. Evans)
+
 Changes in DBD-Oracle 1.33_00 (18-10-2011)
 
  [BUG FIXES]

diff --git a/dbdimp.h b/dbdimp.h
@@ -352,8 +352,8 @@ char *oci_exe_mode _((ub4 mode));
 char *dbd_yes_no _((int yes_no));
 char *oci_col_return_codes _((int rc));
 char *oci_csform_name _((ub4 attr));
-char *oci_sql_function_code_name _((int sqlfncode));
-char *oci_ptype_name _((int ptype));
+/*char *oci_sql_function_code_name _((int sqlfncode));
+  char *oci_ptype_name _((int ptype));*/
 
 int dbd_rebind_ph_lob _((SV *sth, imp_sth_t *imp_sth, phs_t *phs));
 

diff --git a/oci8.c b/oci8.c
@@ -23,7 +23,7 @@ int describe_obj_by_tdo(SV *sth,imp_sth_t *imp_sth,fbh_obj_t *obj,ub2 level );
 int dump_struct(imp_sth_t *imp_sth,fbh_obj_t *obj,int level);
 
 
-
+/*
 char *
 dbd_yes_no(int yes_no)
 {
@@ -33,6 +33,7 @@ dbd_yes_no(int yes_no)
 	}
 	return "No";
 }
+*/
 
 void
 dbd_init_oci(dbistate_t *dbistate)
@@ -52,6 +53,7 @@ dbd_init_oci_drh(imp_drh_t * imp_drh)
 
 }
 
+/*
 char *
 oci_sql_function_code_name(int sqlfncode)
 {
@@ -71,7 +73,9 @@ oci_sql_function_code_name(int sqlfncode)
 	sprintf(SvPVX(sv),"(UNKNOWN SQL FN Code %d)", sqlfncode);
 	return SvPVX(sv);
 }
+*/
 
+ /*
 char *
 oci_ptype_name(int ptype)
 {
@@ -104,7 +108,8 @@ oci_ptype_name(int ptype)
 	sprintf(SvPVX(sv),"(UNKNOWN PTYPE Code %d)", ptype);
 	return SvPVX(sv);
 }
-
+ */
+
 char *
 oci_exe_mode(ub4 mode)
 {