aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/amcss.c
diff options
context:
space:
mode:
authorGareth Rees2013-03-12 14:33:27 +0000
committerGareth Rees2013-03-12 14:33:27 +0000
commitdb733f3932bddf786a33d5c3d7f4e27a02588d94 (patch)
treeae300d45134175d87d0891027a009186ffbcfeb6 /mps/code/amcss.c
parentf3f1a4a202f5e21bd8e498bfa6ba51f325659130 (diff)
downloademacs-db733f3932bddf786a33d5c3d7f4e27a02588d94.tar.gz
emacs-db733f3932bddf786a33d5c3d7f4e27a02588d94.zip
Remove "mps_alert_collection_set" from public interface and remove its implementation and test case. client programs should use the messages interface to find out what the mps is doing.
Copied from Perforce Change: 181119 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/amcss.c')
-rw-r--r--mps/code/amcss.c21
1 files changed, 0 insertions, 21 deletions
diff --git a/mps/code/amcss.c b/mps/code/amcss.c
index f4d956e4c61..d51756dc24e 100644
--- a/mps/code/amcss.c
+++ b/mps/code/amcss.c
@@ -46,26 +46,6 @@ static mps_addr_t exactRoots[exactRootsCOUNT];
46static mps_addr_t ambigRoots[ambigRootsCOUNT]; 46static mps_addr_t ambigRoots[ambigRootsCOUNT];
47 47
48 48
49/* alert -- synchronous alert of collection start/stop */
50
51static void alertfn(int alertcode, int whycode)
52{
53 switch(alertcode) {
54 case MPS_ALERT_COLLECTION_BEGIN: {
55 printf("\n^^^^^^ BEGIN (why: %d) ^^^^^^\n", whycode);
56 break;
57 }
58 case MPS_ALERT_COLLECTION_END: {
59 printf("vvvvvv END (why: %d) vvvvvv\n", whycode);
60 break;
61 }
62 default: {
63 cdie(0, "unknown alertcode");
64 break;
65 }
66 }
67}
68
69/* report -- report statistics from any messages */ 49/* report -- report statistics from any messages */
70 50
71static void report(mps_arena_t arena) 51static void report(mps_arena_t arena)
@@ -326,7 +306,6 @@ int main(int argc, char *argv[])
326 "arena_create"); 306 "arena_create");
327 mps_message_type_enable(arena, mps_message_type_gc()); 307 mps_message_type_enable(arena, mps_message_type_gc());
328 mps_message_type_enable(arena, mps_message_type_gc_start()); 308 mps_message_type_enable(arena, mps_message_type_gc_start());
329 mps_alert_collection_set(arena, &alertfn);
330 die(mps_arena_commit_limit_set(arena, testArenaSIZE), "set limit"); 309 die(mps_arena_commit_limit_set(arena, testArenaSIZE), "set limit");
331 die(mps_thread_reg(&thread, arena), "thread_reg"); 310 die(mps_thread_reg(&thread, arena), "thread_reg");
332 test(arena); 311 test(arena);