mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -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

20
mps/code/protocol.h
View file

@ -128,6 +128,7 @@ typedef struct InstClassStruct *InstClass;
typedef struct InstStruct {
InstClass class;
/* Do not add permanent fields here. Introduce a subclass. */
} InstStruct;
@ -153,11 +154,10 @@ typedef struct InstClassStruct {
DECLARE_CLASS(Inst, Inst);
/* Checking functions */
extern Bool InstClassCheck(InstClass class);
extern Bool InstCheck(Inst inst);
extern void InstInit(Inst inst);
extern void InstFinish(Inst inst);
/* Protocol introspection interface
@ -172,10 +172,18 @@ extern Bool InstCheck(Inst inst);
#define ClassOfPoly(inst) (MustBeA(Inst, inst)->class)
/* FIXME: SetClassOfPoly should use MustBeA, but some classes are
intialized inside out at the moment. */
/* SetClassOfPoly -- set the class of an object
*
* This should only be used when specialising an instance to be a
* member of a subclass. Each Init function should call its
* superclass init, finally reaching InstInit, and then, once it has
* set up its fields, use SetClassOfPoly to set the class and check
* the instance with its check method. Compare with design.mps.sig.
*/
#define SetClassOfPoly(inst, _class) \
BEGIN CouldBeA(Inst, inst)->class = (InstClass)(_class); END
BEGIN MustBeA(Inst, inst)->class = (InstClass)(_class); END
/* SUPERCLASS - get the superclass object, given a class name