184   char *zProfile;            /* The profile callback routine */  member
585     if( pDb->zProfile ){  in delDatabaseRef()
586       Tcl_Free(pDb->zProfile);  in delDatabaseRef()
767   Tcl_DStringAppend(&str, pDb->zProfile, -1);  in DbProfileHandler()
3127       if( pDb->zProfile ){  in DbObjCmd()
3128         Tcl_AppendResult(interp, pDb->zProfile, (char*)0);  in DbObjCmd()
3131       char *zProfile;  in DbObjCmd()  local
3133       if( pDb->zProfile ){  in DbObjCmd()
3134         Tcl_Free(pDb->zProfile);  in DbObjCmd()
3136       zProfile = Tcl_GetStringFromObj(objv[2], &len);  in DbObjCmd()
3137       if( zProfile && len>0 ){  in DbObjCmd()
3138         pDb->zProfile = Tcl_Alloc( len + 1 );  in DbObjCmd()
3139         memcpy(pDb->zProfile, zProfile, len+1);  in DbObjCmd()
3141         pDb->zProfile = 0;  in DbObjCmd()
3145       if( pDb->zProfile ){  in DbObjCmd()