Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

No need to store primary chunk in the closure: can get it via the arena.

Browse source 
Copied from Perforce
 Change: 186164
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-05-18 22:27:07 +01:00
parent 0b0a465674
commit e2d346aa67
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mps/code/arena.c
View file

@ -609,7 +609,6 @@ Res ControlDescribe(Arena arena, mps_lib_FILE *stream)
typedef struct ArenaAllocPageClosureStruct {
Arena arena;
Pool pool;
Chunk avoid;
Addr base;
} ArenaAllocPageClosureStruct, *ArenaAllocPageClosure;
@ -628,7 +627,8 @@ static Bool arenaAllocPageInChunk(Tree tree, void *closureP, Size closureS)
AVER(cl->arena == ChunkArena(chunk));
UNUSED(closureS);
if (chunk == cl->avoid)
/* Already searched in arenaAllocPage. */
if (chunk == cl->arena->primary)
return TRUE;
if (!BTFindShortResRange(&basePageIndex, &limitPageIndex,
@ -663,7 +663,6 @@ static Res arenaAllocPage(Addr *baseReturn, Arena arena, Pool pool)
if (arenaAllocPageInChunk(&arena->primary->chunkTree, &closure, 0) == FALSE)
goto found;
closure.avoid = arena->primary;
if (SplayTreeTraverse(ArenaChunkTree(arena), arenaAllocPageInChunk, &closure, 0)
== FALSE)
goto found;