tea/generic/tclsqlite3.c

477   SqlFunc *p, *pNew;
479   pNew = (SqlFunc*)Tcl_Alloc( sizeof(*pNew) + nName + 1 );
480   pNew->zName = (char*)&pNew[1];
481   memcpy(pNew->zName, zName, nName+1);
483     if( sqlite3_stricmp(p->zName, pNew->zName)==0 ){
484       Tcl_Free((char*)pNew);
488   pNew->interp = pDb->interp;
489   pNew->pDb = pDb;
490   pNew->pScript = 0;
491   pNew->pNext = pDb->pFunc;
492   pDb->pFunc = pNew;
493   return pNew;