mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07: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 a38d6e7178
commit 5307650059
15 changed files with 70 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

8
mps/code/buffer.c
View file

@ -1233,7 +1233,7 @@ static Res segBufInit(Buffer buffer, Pool pool, Bool isMutator, ArgList args)
Res res;
/* Initialize the superclass fields first via next-method call */
res = SUPERCLASS(Buffer, SegBuf)->init(buffer, pool, isMutator, args);
res = NextMethod(Buffer, SegBuf, init)(buffer, pool, isMutator, args);
if (res != ResOK)
return res;
SetClassOfBuffer(buffer, CLASS(SegBuf));
@ -1257,7 +1257,7 @@ static void segBufFinish(Buffer buffer)
SegBuf segbuf = MustBeA(SegBuf, buffer);
AVER(BufferIsReset(buffer));
segbuf->sig = SigInvalid;
SUPERCLASS(Buffer, SegBuf)->finish(buffer);
NextMethod(Buffer, SegBuf, finish)(buffer);
}
@ -1365,7 +1365,7 @@ static Res segBufDescribe(Buffer buffer, mps_lib_FILE *stream, Count depth)
return ResPARAM;
/* Describe the superclass fields first via next-method call */
res = SUPERCLASS(Buffer, SegBuf)->describe(buffer, stream, depth);
res = NextMethod(Buffer, SegBuf, describe)(buffer, stream, depth);
if (res != ResOK)
return res;
@ -1424,7 +1424,7 @@ static Res rankBufInit(Buffer buffer, Pool pool, Bool isMutator, ArgList args)
AVERT(Rank, rank);
/* Initialize the superclass fields first via next-method call */
res = SUPERCLASS(Buffer, RankBuf)->init(buffer, pool, isMutator, args);
res = NextMethod(Buffer, RankBuf, init)(buffer, pool, isMutator, args);
if (res != ResOK)
return res;
SetClassOfBuffer(buffer, CLASS(RankBuf));