mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 21:20:53 -08:00
Code Issues Projects Releases Wiki Activity

Mps br/padding zcoll.c: (remove hack: revert change zcoll.c168574)

Browse source 
Copied from Perforce
 Change: 168575
 ServerID: perforce.ravenbrook.com

GitHub-reference: https://github.com/Ravenbrook/mps/issues/8
This commit is contained in:
Richard Kistruck 2009-09-04 16:53:52 +01:00
parent 783dc5c88d
commit 2fad7cbe30
1 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
mps/code/zcoll.c
View file

@ -432,15 +432,7 @@ static void BigdropSmall(mps_arena_t arena, mps_ap_t ap, size_t big, char small)
mps_arena_park(arena);
for(i = 0; i < 100; i++) {
/* Hack to demonstrate pRLr in AMCTraceEnd_pageret diag:
* Make ambig ref to bigLimit, which for large segs will point to
* the LSP-pad. This will make pRLr (pages of Large segs retained
* by a rest-obj ref) non-zero.
* With this hack, pRLr in AMCTraceEnd_pageret does indeed do this.
*/
char *bigLimit = MakeThing(arena, ap, big);
bigLimit += big;
myrootAmbig[keepCount++ % myrootAmbigCOUNT] = bigLimit;
(void) MakeThing(arena, ap, big);
if(small == 'A') {
myrootAmbig[keepCount++ % myrootAmbigCOUNT] = MakeThing(arena, ap, 1);
} else if(small == 'E') {