pike.git / src / modules / Oracle / oracle.cmod

version» Context lines:

pike.git/src/modules/Oracle/oracle.cmod:1749:    push_int(2);    f_unicode_to_string(2);    }   #endif    STRING_BUILDER_STR(inout->output)=0;;    break;       case SQLT_CLOB:    case SQLT_BLOB:    /* FIXME: Consider using parent pointers? */ -  push_object(low_clone(Oracle_oracle_LOB_program)); -  call_c_initializers(Pike_sp[-1].u.object); +  push_object(fast_clone_object(Oracle_oracle_LOB_program));    ((struct Oracle_oracle_LOB_struct *)STORAGE(Pike_sp[-1].u.object))->is_clob =    (inout->ftype == SQLT_CLOB);    ((struct Oracle_oracle_LOB_struct *)STORAGE(Pike_sp[-1].u.object))->lob =    inout->u.lob;    ((struct Oracle_oracle_LOB_struct *)STORAGE(Pike_sp[-1].u.object))->dbcon =    dbcon;    break;       case SQLT_DATE:    case SQLT_ODT:    case SQLT_DAT:   #if 0    for(ret=0;ret<sizeof(inout->u.date);ret++)    fprintf(stderr,"%02x ",((unsigned char *)&inout->u.date)[ret]);    fprintf(stderr,"\n");   #endif    -  push_object(low_clone(Oracle_oracle_Date_program)); -  call_c_initializers(Pike_sp[-1].u.object); +  push_object(fast_clone_object(Oracle_oracle_Date_program));    ((struct Oracle_oracle_Date_struct *)STORAGE(Pike_sp[-1].u.object))->date =    inout->u.date;    break;       case SQLT_NUM:    /* Kluge -- Convert it to a VNU. */    memmove(inout->u.shortstr+1,inout->u.shortstr,inout->xlen);    inout->u.shortstr[0]=inout->xlen;       /* FALL_THROUGH */
pike.git/src/modules/Oracle/oracle.cmod:2752:    clone_object(Oracle_oracle_NULL_program, 1), 0);       push_int(0);    add_object_constant("NULLint", nullint_object =    clone_object(Oracle_oracle_NULL_program, 1), 0);       push_float(0.0);    add_object_constant("NULLfloat", nullfloat_object =    clone_object(Oracle_oracle_NULL_program, 1), 0);    -  push_object(low_clone(Oracle_oracle_Date_program)); -  call_c_initializers(Pike_sp[-1].u.object); +  push_object(fast_clone_object(Oracle_oracle_Date_program));    add_object_constant("NULLdate", nulldate_object =    clone_object(Oracle_oracle_NULL_program, 1), 0);   #ifdef OCI_UTF16ID    add_integer_constant("UNICODE_SUPPORTED", 1, 0);   #endif   }      static void call_atexits(void);      PIKE_MODULE_EXIT