From db733f3932bddf786a33d5c3d7f4e27a02588d94 Mon Sep 17 00:00:00 2001
From: Gareth Rees
Date: Tue, 12 Mar 2013 14:33:27 +0000
Subject: 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

---
 mps/code/amcss.c | 21 ---------------------
 1 file changed, 21 deletions(-)

(limited to 'mps/code/amcss.c')

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];
 static mps_addr_t ambigRoots[ambigRootsCOUNT];
 
 
-/* alert -- synchronous alert of collection start/stop */
-
-static void alertfn(int alertcode, int whycode)
-{
-  switch(alertcode) {
-    case MPS_ALERT_COLLECTION_BEGIN: {
-      printf("\n^^^^^^ BEGIN (why: %d) ^^^^^^\n", whycode);
-      break;
-    }
-    case MPS_ALERT_COLLECTION_END: {
-      printf("vvvvvv END (why: %d)  vvvvvv\n", whycode);
-      break;
-    }
-    default: {
-      cdie(0, "unknown alertcode");
-      break;
-    }
-  }
-}
-
 /* report -- report statistics from any messages */
 
 static void report(mps_arena_t arena)
@@ -326,7 +306,6 @@ int main(int argc, char *argv[])
       "arena_create");
   mps_message_type_enable(arena, mps_message_type_gc());
   mps_message_type_enable(arena, mps_message_type_gc_start());
-  mps_alert_collection_set(arena, &alertfn);
   die(mps_arena_commit_limit_set(arena, testArenaSIZE), "set limit");
   die(mps_thread_reg(&thread, arena), "thread_reg");
   test(arena);
-- 
cgit v1.2.1