linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PSI sics-cvs-psi-2006

Browse Source
This commit is contained in:
koennecke
2006-05-08 02:00:00 +00:00
committed by Douglas Clowes
parent ae77364de2
commit 6e926b813f
388 changed files with 445529 additions and 14109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tclev.c
View File

@@ -328,12 +328,14 @@
free(pPriv);
}
/*-----------------------------------------------------------------------*/
pEVDriver CreateTclDriver(int argc, char *argv[],char *pName, SConnection *pCon)
pEVDriver CreateTclDriver(int argc, char *argv[],char *pName,
SConnection *pCon)
{
pEVDriver pNew = NULL;
pTclEv pPriv = NULL;
int iRet;
char *pPtr = NULL;
/* the "const" saves us from a couple of warnings M.Z.*/
const char *pPtr = NULL;
if(argc < 1)/* we expect a Tcl array with all data */
{
@@ -348,7 +350,7 @@
memset(pPriv,0,sizeof(TclEv));
/* find the names of all the functions we need in the Tcl Array */
pPriv->pTcl = pCon->pSics->pTcl;
pPriv->pTcl = InterpGetTcl(pServ->pSics);
assert(pPriv->pTcl);
pPriv->pArray = strdup(argv[0]);
pPtr = Tcl_GetVar2(pPriv->pTcl,argv[0],"Init",TCL_GLOBAL_ONLY);
@@ -477,7 +479,7 @@
{
pTclEv pPriv = NULL;
char pBueffel[132];
char *pPtr = NULL;
const char *pPtr = NULL;
assert(self);
pPriv = (pTclEv)self->pPrivate;