Changeset 553 for abuse/trunk/src/lispTweet

Timestamp:

Apr 29, 2011, 1:39:28 AM (12 years ago)

Author:

Sam Hocevar

Message:

lisp: remove old debug code.

File:

• abuse/trunk/src/lisp/lisp_gc.cpp (modified) (4 diffs)

abuse/trunk/src/lisp/lisp_gc.cpp

@@ -42 +42 @@
 static uint8_t *cstart, *cend, *collected_start, *collected_end;
 
-static void dump_memory(void *mem, int before, int after)
-{
-  uint8_t *p = (uint8_t *)mem;
-
-  fprintf(stderr, "dumping memory around %p:\n", p);
-  for (int i = -before; i < after; i++)
-  {
-    if (!(i & 15))
-      fprintf(stderr, "%p: ", p + i);
-    fprintf(stderr, "%c%02x%c", i ? ' ' : '[', p[i], i ? ' ' : ']');
-    if (!((i + 1) & 15))
-      fprintf(stderr, "\n");
-  }
-}
-
 void register_pointer(void **addr)
 {
@@ -131 +116 @@
   if (((uint8_t *)x) >= cstart && ((uint8_t *)x) < cend)
   {
-    //dump_memory(x, 32, 48);
     switch (item_type(x))
     {
@@ -193 +177 @@
         break;
       default:
-        dump_memory(x, 8, 196);
-        //*(char *)NULL = 0;
-        lbreak("shouldn't happen. collecting bad object 0x%x\n",
-               item_type(x));
+        lbreak("shouldn't happen. collecting bad object 0x%x\n", item_type(x));
         break;
     }
@@ -266 +247 @@
   collected_end = new_space + space_size[GC_SPACE];
 
-//dump_memory((char *)lsym_root->name, 128, 196);
-//dump_memory((char *)0xb6782025, 32, 48);
   collect_symbols(LSymbol::root);
   collect_stacks();