From 3fc69fc8eb920d6ce143010d5e7fc5cf191c37d1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 2 Sep 2008 10:57:33 +0200
Subject: Add a couple of disabled debugging statements in the form processor
 and compiler.

---
 MLKForm.m          |  7 ++++++-
 MLKLLVMCompiler.mm | 20 ++++++++++++++------
 2 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/MLKForm.m b/MLKForm.m
index 94df172..230df3e 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -47,7 +47,12 @@
   LASSIGN (_form, object);
   LASSIGN (_context, context);
   LASSIGN (_compiler, compiler);
-  return [self complete];
+
+  //NSLog (@"Processing: %@", MLKPrintToString(_form));
+  id processed_form = [self complete];
+  //NSLog (@"Processing finished: %@", MLKPrintToString(_form));
+
+  return processed_form;
 }
 
 -(id) complete
diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index 89795b1..bd64136 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -212,6 +212,7 @@ static Constant
   NSArray *subforms = [form subforms];
   unsigned int i;
 
+  //NSLog (@"Marking %@.", form);
   for (i = 0; i < [subforms count]; i++)
     {
       MLKForm *subform = [subforms objectAtIndex:i];
@@ -232,6 +233,7 @@ static Constant
             }
         }
     }
+  //NSLog (@"%@ marked.", form);
 }
 
 +(Value *) insertSelectorLookup:(NSString *)name
@@ -393,15 +395,20 @@ static Constant
 @implementation MLKForm (MLKLLVMCompilation)
 -(Value *) processForLLVM
 {
-  //[_compiler insertTrace:
-  //             [NSString stringWithFormat:
-  //                         @"Executing: %@", MLKPrintToString(_form)]];
+#if 0
+  [_compiler insertTrace:
+               [NSString stringWithFormat:
+                           @"Executing: %@", MLKPrintToString(_form)]];
+#endif
 
   Value *result = [self reallyProcessForLLVM];
 
-  //[_compiler insertTrace:
-  //             [NSString stringWithFormat:
-  //                         @"Done: %@", MLKPrintToString(_form)]];
+#if 0
+  [_compiler insertTrace:
+               [NSString stringWithFormat:
+                           @"Done: %@", MLKPrintToString(_form)]];
+#endif
+
   return result;
 }
 
@@ -547,6 +554,7 @@ static Constant
                                              PointerTy);
   args.push_back (endmarker);
 
+  //[_compiler insertTrace:[NSString stringWithFormat:@"Function call: %@.", MLKPrintToString(_head)]];
   CallInst *call = builder.CreateCall (functionPtr,
                                        args.begin(),
                                        args.end(),
-- 
cgit v1.2.3