mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Make use of mrgrefpartref in mrgmessagefinalizationref.

Browse source 
Copied from Perforce
 Change: 194979
This commit is contained in:
Gareth Rees 2018-08-14 09:25:43 +01:00
parent e4cb146f6a
commit 2f0e125ad4
1 changed files with 4 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

23
mps/code/poolmrg.c
View file

@ -1,7 +1,7 @@
/* poolmrg.c: MANUAL RANK GUARDIAN POOL
*
* $Id$
* Copyright (c) 2001-2016 Ravenbrook Limited. See end of file for license.
* Copyright (c) 2001-2018 Ravenbrook Limited. See end of file for license.
* Portions copyright (C) 2002 Global Graphics Software.
*
*
@ -84,19 +84,9 @@ typedef struct RefPartStruct {
*/
static Ref MRGRefPartRef(Arena arena, RefPart refPart)
{
Ref ref;
AVER(refPart != NULL);
ref = ArenaRead(arena, &refPart->ref);
return ref;
}
static Ref *MRGRefPartRefAddr(RefPart refPart)
{
AVER(refPart != NULL);
return &refPart->ref;
return ArenaRead(arena, &refPart->ref);
}
static void MRGRefPartSetRef(Arena arena, RefPart refPart, Ref ref)
@ -457,7 +447,6 @@ static void MRGMessageDelete(Message message)
static void MRGMessageFinalizationRef(Ref *refReturn,
Arena arena, Message message)
{
Ref *refp;
Link link;
Ref ref;
RefPart refPart;
@ -472,11 +461,7 @@ static void MRGMessageFinalizationRef(Ref *refReturn,
AVER(link->state == MRGGuardianFINAL);
refPart = MRGRefPartOfLink(link, arena);
refp = MRGRefPartRefAddr(refPart);
/* ensure that the reference is not (white and flipped) */
ref = ArenaRead(arena, refp);
ref = MRGRefPartRef(arena, refPart);
AVER(ref != 0);
*refReturn = ref;
}
@ -878,7 +863,7 @@ PoolClass PoolClassMRG(void)
/* C. COPYRIGHT AND LICENSE
*
* Copyright (C) 2001-2016 Ravenbrook Limited <http://www.ravenbrook.com/>.
* Copyright (C) 2001-2018 Ravenbrook Limited <http://www.ravenbrook.com/>.
* All rights reserved. This is an open source license. Contact
* Ravenbrook for commercial licensing options.
*