mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-26 16:20:49 -07:00
Code Issues Projects Releases Wiki Activity

Using mustbea and couldbea when calling inst functions.

Browse source 
Copied from Perforce
 Change: 190924
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2016-04-11 15:17:24 +01:00
parent 72753f4484
commit 690df6974a
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/code/arena.c
View file

@ -258,7 +258,7 @@ static Res ArenaAbsInit(Arena arena, Size grainSize, ArgList args)
pauseTime = arg.val.d;
/* Superclass init */
InstInit(&arena->instStruct);
InstInit(CouldBeA(Inst, arena));
arena->reserved = (Size)0;
arena->committed = (Size)0;
@ -312,7 +312,7 @@ static Res ArenaAbsInit(Arena arena, Size grainSize, ArgList args)
failMFSInit:
GlobalsFinish(ArenaGlobals(arena));
failGlobalsInit:
InstFinish(&arena->instStruct);
InstFinish(MustBeA(Inst, arena));
return res;
}
@ -440,7 +440,7 @@ static void ArenaAbsFinish(Arena arena)
AVERC(Arena, arena);
PoolFinish(ArenaCBSBlockPool(arena));
arena->sig = SigInvalid;
InstFinish(&arena->instStruct);
InstFinish(MustBeA(Inst, arena));
GlobalsFinish(ArenaGlobals(arena));
LocusFinish(arena);
RingFinish(&arena->chunkRing);