diff options
| author | Richard Kistruck | 2010-03-22 23:00:42 +0000 |
|---|---|---|
| committer | Richard Kistruck | 2010-03-22 23:00:42 +0000 |
| commit | 1ff022cae16e98ff565fbfd76b14bd892418e653 (patch) | |
| tree | 91f2ff05d1c9517dde22486e1195c0feab8d1122 /mps/code/trace.c | |
| parent | 968eafea906c60658f5c412935e9352a645ca2fa (diff) | |
| download | emacs-1ff022cae16e98ff565fbfd76b14bd892418e653.tar.gz emacs-1ff022cae16e98ff565fbfd76b14bd892418e653.zip | |
mps br/vmem: simple-chunk-return:
zcoll.c:
How to get rid of all the objects, so full collect really collects all automatic objects:
- Rootdrop() helps, but we can still retain a 1.2MB object;
- stackwipe() does not help much -- these unwanted ambig refs are being left on the stack by MPS code that runs between mps_arena_collect and the flip!
- therefore StackScan(0/1) to destroy stack+reg root before full collect: it's the only way to be sure.
Reproducibility:
- give Make() a random? switch, acted on by df() = diversity function, to allow bypass of rnd();
- ZRndStateSet, to set the seed for rnd()
Output:
- print_M: switchable Mebibytes or Megabytes (more useful, to be honest);
- get(): don't report message times, it messes up diffs.
testlib.c/h:
Reproducibility:
- fix rnd_state so a rnd_state getter is possible;
- testlib.h += rnd_state_t, rnd_state(), rnd_state_set(), rnd_state_set_v2()
trace.c: traceFindGrey diag: no newline please
Copied from Perforce
Change: 170093
ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/trace.c')
| -rw-r--r-- | mps/code/trace.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mps/code/trace.c b/mps/code/trace.c index ff13b6180a9..b4b17c11b49 100644 --- a/mps/code/trace.c +++ b/mps/code/trace.c | |||
| @@ -974,7 +974,7 @@ static void traceFindGrey_diag(Bool found, Rank rank) | |||
| 974 | *report_lim++ = this; | 974 | *report_lim++ = this; |
| 975 | *report_lim++ = '\0'; | 975 | *report_lim++ = '\0'; |
| 976 | DIAG_SINGLEF(( "traceFindGrey", | 976 | DIAG_SINGLEF(( "traceFindGrey", |
| 977 | "rank sequence: $S\n", | 977 | "rank sequence: $S", |
| 978 | (WriteFS)report_array, | 978 | (WriteFS)report_array, |
| 979 | NULL )); | 979 | NULL )); |
| 980 | } | 980 | } |