- Added bridge functions to histmemsec to make it look more like histmem
- Modifed many modules using histmem to work also with histmemsec - Extended tasker with task names and task groups - There is a new taskobj which allows to list tasks and to interact with them. - Task now supports running Tcl functions as tasks - There is a new experimental sctcomtask module which allows to define communication tasks against a scriptcontext. This is a new feature which should facilitate writing sequential scripts using asynchronous communication. - A fix to make spss7 work when there are no switches - ORION support for single X. TRICS measures crystals hanging down, ORION standing up SKIPPED: psi/ease.c psi/faverage.c psi/jvlprot.c psi/make_gen psi/pardef.c psi/polterwrite.c psi/psi.c psi/sinq.c psi/spss7.c
This commit is contained in:
12
devexec.c
12
devexec.c
@@ -376,7 +376,7 @@ int StartDevice(pExeList self, char *name, pObjectDescriptor pDes,
|
||||
self->iStatus = DEVDONE;
|
||||
/* if no task: start it */
|
||||
if (self->lTask < 0) {
|
||||
self->lTask = TaskRegister(self->pTask,
|
||||
self->lTask = TaskRegisterN(self->pTask,"devexec",
|
||||
DevExecTask,
|
||||
DevExecSignal, NULL, self, 1);
|
||||
self->iEnd = 0;
|
||||
@@ -476,7 +476,7 @@ static int ForceStartDevice(pExeList self, char *name, pObjectDescriptor pDes,
|
||||
self->iStatus = DEVDONE;
|
||||
/* if no task: start it */
|
||||
if (self->lTask < 0) {
|
||||
self->lTask = TaskRegister(self->pTask,
|
||||
self->lTask = TaskRegisterN(self->pTask,"devexec",
|
||||
DevExecTask,
|
||||
DevExecSignal, NULL, self, 1);
|
||||
self->iEnd = 0;
|
||||
@@ -962,12 +962,20 @@ int StopByData(pExeList self, void *data)
|
||||
} else if (pCountInt) {
|
||||
pCountInt->Halt(pDev->pData);
|
||||
}
|
||||
/*
|
||||
This is wrong: most devices will require some time
|
||||
before they really stop. CheckExeList has to run...
|
||||
This causes core dumps......
|
||||
|
||||
Mark
|
||||
|
||||
ExeInterest(self, pDev, "finished");
|
||||
DevexecLog("FINISHED", pDev->name);
|
||||
DeleteDevEntry(pDev);
|
||||
LLDnodeDelete(self->iList);
|
||||
self->iStatus = DEVDONE;
|
||||
SCWrite(self->pOwner, "", eFinish);
|
||||
*/
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user