mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 11:20:39 -08:00
Code Issues Projects Releases Wiki Activity

Converting land finish methods to specialize instfinish.

Browse source 
Copied from Perforce
 Change: 191606
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2016-04-23 13:28:52 +01:00
parent de1f3907cc
commit ea53ac476e
5 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/code/cbs.c
View file

@ -289,8 +289,9 @@ static Res cbsInitZoned(Land land, Arena arena, Align alignment, ArgList args)
* See <design/land/#function.finish>.
*/
static void cbsFinish(Land land)
static void cbsFinish(Inst inst)
{
Land land = MustBeA(Land, inst);
CBS cbs = MustBeA(CBS, land);
METER_EMIT(&cbs->treeSearch);
@ -301,7 +302,7 @@ static void cbsFinish(Land land)
if (cbs->ownPool)
PoolDestroy(cbsBlockPool(cbs));
NextMethod(Land, CBS, finish)(land);
NextMethod(Inst, CBS, finish)(inst);
}
@ -1133,9 +1134,9 @@ static Res cbsDescribe(Land land, mps_lib_FILE *stream, Count depth)
DEFINE_CLASS(Land, CBS, klass)
{
INHERIT_CLASS(klass, CBS, Land);
klass->protocol.finish = cbsFinish;
klass->size = sizeof(CBSStruct);
klass->init = cbsInit;
klass->finish = cbsFinish;
klass->sizeMethod = cbsSize;
klass->insert = cbsInsert;
klass->delete = cbsDelete;