mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

Adding instinit and instfinish and using them as next methods in seginit, segfinish, etc.

Browse source 
Copied from Perforce
 Change: 190857
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2016-04-10 15:33:17 +01:00
parent cf29dcc98d
commit 907494aa56
7 changed files with 84 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

39
mps/code/protocol.c
View file

@ -32,6 +32,45 @@ Bool InstClassCheck(InstClass class)
}
/* InstInit -- initialize a protocol instance
*
* Initialisation makes the instance valid, so that it will pass
* InstCheck, and the instance can be specialized to be a member of a
* subclass.
*/
void InstInit(Inst inst)
{
AVER(inst != NULL); /* FIXME: express intention here */
inst->class = CLASS(Inst);
AVERC(Inst, inst);
}
/* InstFinish -- finish a protocol instance
*
* Finishing makes the instance invalid, so that it will fail
* InstCheck and can't be used.
*
* FIXME: It would be nice if we could use a recognizable value here,
* such as a pointer to a static invalid class.
*/
static InstClassStruct invalidClassStruct = {
/* .sig = */ SigInvalid,
/* .name = */ "Invalid",
/* .superclass = */ &invalidClassStruct,
/* .level = */ ClassIdInvalid,
/* .display = */ {ClassIdInvalid}
};
void InstFinish(Inst inst)
{
AVERC(Inst, inst);
inst->class = &invalidClassStruct;
}
/* InstCheck -- check a protocol instance */
Bool InstCheck(Inst inst)