mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -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

9
mps/code/buffer.c
View file

@ -205,10 +205,13 @@ static Res BufferInit(Buffer buffer, BufferClass class,
AVERT(Pool, pool);
arena = PoolArena(pool);
/* Superclass init */
InstInit(&buffer->instStruct);
/* Initialize the buffer. See <code/mpmst.h> for a definition of */
/* the structure. sig and serial comes later .init.sig-serial */
buffer->arena = arena;
SetClassOfBuffer(buffer, class);
buffer->pool = pool;
RingInit(&buffer->poolRing);
buffer->isMutator = isMutator;
@ -237,9 +240,10 @@ static Res BufferInit(Buffer buffer, BufferClass class,
/* .init.sig-serial: Now the vanilla stuff is initialized, */
/* sign the buffer and give it a serial number. It can */
/* then be safely checked in subclass methods. */
buffer->sig = BufferSig;
buffer->serial = pool->bufferSerial; /* .trans.mod */
++pool->bufferSerial;
SetClassOfBuffer(buffer, class);
buffer->sig = BufferSig;
AVERT(Buffer, buffer);
/* Dispatch to the buffer class method to perform any */
@ -256,6 +260,7 @@ static Res BufferInit(Buffer buffer, BufferClass class,
failInit:
RingFinish(&buffer->poolRing);
InstFinish(&buffer->instStruct);
buffer->sig = SigInvalid;
return res;
}