mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 15:11:30 -08:00
Code Issues Projects Releases Wiki Activity

Fix compilation on windows.

Browse source 
Fix bug in ArenaDescribeTracts (only described the first tract).

Copied from Perforce
 Change: 186215
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-05-20 19:19:14 +01:00
parent 144d1aea03
commit dbfe3ca425
3 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
mps/code/arena.c
View file

@ -521,7 +521,6 @@ static Bool arenaDescribeTractsInChunk(Tree tree, void *closureP, Size closureS)
(WriteFS)(TractPool(tract)->class->name),
NULL);
if (res != ResOK) return res;
return ResOK;
}
return ResOK;
}

2
mps/code/pool.c
View file

@ -626,7 +626,7 @@ Bool PoolOfAddr(Pool *poolReturn, Arena arena, Addr addr)
Bool PoolOfRange(Pool *poolReturn, Arena arena, Addr base, Addr limit)
{
Bool havePool = FALSE;
Pool pool;
Pool pool = NULL;
Tract tract;
Addr addr, alignedBase, alignedLimit;

10
mps/code/tree.h
View file

@ -141,11 +141,11 @@ extern void TreeBalance(Tree *treeIO);
* tree and next are variables of type Tree.
* In the body of the loop, tree is the current node.
*/
#define TREE_DESTROY(treeref, tree, next, root) \
for ((treeref = &(root), TreeToVine(treeref)); \
(tree = *treeref) != TreeEMPTY \
? (next = tree->right, TRUE) \
: (TreeBalance(treeref), FALSE); \
#define TREE_DESTROY(treeref, tree, next, root) \
for ((treeref = &(root), TreeToVine(treeref), next = TreeEMPTY); \
(tree = *treeref) != TreeEMPTY \
? (next = tree->right, TRUE) \
: (TreeBalance(treeref), FALSE); \
*treeref = next)