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

Moving setclassofpoly to after initialization, to be more like signature setting. partially complete.

Browse source 
Copied from Perforce
 Change: 190992
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2016-04-12 13:15:54 +01:00
parent 25c4029619
commit a57965d825
7 changed files with 32 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
mps/code/buffer.c
View file

@ -1242,14 +1242,14 @@ static Res segBufInit(Buffer buffer, Pool pool, Bool isMutator, ArgList args)
res = NextMethod(Buffer, SegBuf, init)(buffer, pool, isMutator, args);
if (res != ResOK)
return res;
SetClassOfPoly(buffer, CLASS(SegBuf));
segbuf = MustBeA(SegBuf, buffer);
segbuf = CouldBeA(SegBuf, buffer);
segbuf->seg = NULL;
segbuf->rankSet = RankSetEMPTY;
SetClassOfPoly(buffer, CLASS(SegBuf));
segbuf->sig = SegBufSig;
AVERT(SegBuf, segbuf);
AVERC(SegBuf, segbuf);
EVENT3(BufferInitSeg, buffer, pool, BOOLOF(buffer->isMutator));
return ResOK;
@ -1433,12 +1433,14 @@ static Res rankBufInit(Buffer buffer, Pool pool, Bool isMutator, ArgList args)
res = NextMethod(Buffer, RankBuf, init)(buffer, pool, isMutator, args);
if (res != ResOK)
return res;
SetClassOfPoly(buffer, CLASS(RankBuf));
BufferSetRankSet(buffer, RankSetSingle(rank));
/* There's nothing to check that the superclass doesn't, so no AVERT. */
SetClassOfPoly(buffer, CLASS(RankBuf));
AVERC(RankBuf, buffer);
EVENT4(BufferInitRank, buffer, pool, BOOLOF(buffer->isMutator), rank);
return ResOK;
}