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

Implementing nextmethod and replacing all uses of superclass with it.

Browse source 
Copied from Perforce
 Change: 190935
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2016-04-11 16:54:39 +01:00
parent bfa333b5c0
commit 309fb8ec64
15 changed files with 70 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/code/cbs.c
View file

@ -226,7 +226,7 @@ static Res cbsInitComm(Land land, LandClass class,
Pool blockPool = NULL;
AVER(land != NULL);
res = SUPERCLASS(Land, CBS)->init(land, arena, alignment, args);
res = NextMethod(Land, CBS, init)(land, arena, alignment, args);
if (res != ResOK)
return res;
@ -302,7 +302,7 @@ static void cbsFinish(Land land)
if (cbs->ownPool)
PoolDestroy(cbsBlockPool(cbs));
SUPERCLASS(Land, CBS)->finish(land); /* FIXME: Method call */
NextMethod(Land, CBS, finish)(land); /* FIXME: Method call */
}
@ -1101,7 +1101,7 @@ static Res cbsDescribe(Land land, mps_lib_FILE *stream, Count depth)
if (stream == NULL)
return ResPARAM;
res = SUPERCLASS(Land, CBS)->describe(land, stream, depth);
res = NextMethod(Land, CBS, describe)(land, stream, depth);
if (res != ResOK)
return res;