patch::: 1.3.9.hwn2

[lilypond.git] / lily / debug.cc

diff --git a/lily/debug.cc b/lily/debug.cc
index 964353f34861babed84159cfff7d32ed1c1f7660..35a32a7a288d1521d9ffb4616a9ff58d9f80140d 100644 (file)
--- a/lily/debug.cc
+++ b/lily/debug.cc
@@ -1,68 +1,109 @@
+/*   
+  debug.cc --  implement debugging routines
+  
+  source file of the GNU LilyPond music typesetter
+  
+  (c) 1996,98 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  
+ */
 #include <fstream.h>
 #include <signal.h>
-#include <std/new.h>
+
+// libg++ 2.8.0
+// #include <std/new.h>
 #include <stdlib.h>
+
+
 #include "debug.hh"
 #include "dstream.hh"
 #include "flower-debug.hh"
 #include "moment.hh"
+#include "misc.hh"
+#include "main.hh"
+
+Dstream *my_monitor=0;
 
-Dstream *monitor=0;
-ostream * nulldev =0;
+void
+float_handler (int)
+{
+  cerr << _ ("floating point exception") << endl;
+  assert (false);
+}
 
+void
+debug_init()
+{
+  my_monitor = new Dstream (&cout, ".dstreamrc");
+  signal (SIGFPE, float_handler);
+}
 
-// ugh
-struct _Dinit {
-    _Dinit() {
-       nulldev = new ofstream ("/dev/null");
-       monitor = new Dstream (&cout,".dstreamrc");
-    }
-    ~_Dinit() {
-       delete nulldev;
-       delete monitor;
-    }
-} dinit;
+bool check_malloc_b = false;
 
+// #define MEMORY_PARANOID
 
+#ifdef MEMORY_PARANOID
+
+#include <malloc.h>
 
-/*
-  want to do a stacktrace .
-  */
 void
-mynewhandler()
+frobnify (void *p, size_t s)
 {
-    assert (false);
+  char *cp = (char*)p;
+  char *e  = cp + s;
+  while (cp < e)
+    {
+      *cp++ ^=42;
+    }
 }
 
-void
-float_handler (int)
+
+void *
+operator new (size_t size)
 {
-    cerr << "Floating point exception .. \n"<< flush;
-    assert (false);
+  void *result;
+  result = malloc (size);
+  if (check_malloc_b)
+    frobnify (result, size);
+  return result;
 }
 
-/// just to make sure print_rat is linked in
-static void (*rat_printer)(Moment const&);
+void *to_frob; int frob_size;
 
 void
-debug_init()
+set_frobnify (void * p, size_t sz)
 {
-    rat_printer = print_rat;   
-#ifndef NDEBUG
-    set_new_handler (&mynewhandler);
-#endif
-    set_flower_debug (*monitor, check_debug);
-    
-    signal (SIGFPE, float_handler);
-}   
+  to_frob = p;
+  frob_size = sz;
+}
 
-bool check_debug=false;
+void 
+operator delete (void *p)
+{
+  if (!p)
+    return ;
+  if (p == to_frob)
+    {
+      frobnify (p, frob_size);
+      to_frob = 0;
+      frob_size=0;
+    }
+
+  free (p);
+}
+#endif // MEMORY_PARANOID
 
 void
 set_debug (bool b)
 {
-    check_debug =b;
-    set_flower_debug (*monitor, check_debug);
+  if (b)
+    flower_dstream = my_monitor;
+  else
+    flower_dstream = 0;
+  
+#ifdef MEMORY_PARANOID
+  if (check_malloc_b)
+    if (mcheck (0))
+      warning (_ ("Can't set mem-checking!"));
+#endif
 }
 
-