From ace29d495df89afd2e3251064de91b00da2612da Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 11 Sep 2008 18:10:41 +0200
Subject: Add various disabled debugging messages.

---
 MLKCons.m                               | 1 +
 MLKForm.m                               | 2 --
 MLKLLVMCompiler.mm                      | 6 +++---
 MLKLexicalContext-MLKLLVMCompilation.mm | 2 ++
 MLKLexicalContext.m                     | 1 +
 MLKRoot.m                               | 4 ++++
 6 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/MLKCons.m b/MLKCons.m
index 9e49d45..2ab5a8b 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -34,6 +34,7 @@
 -(MLKCons*) initWithCar:(id)car cdr:(id)cdr
 {
   self = [super init];
+  //  NSLog (@"CONS: %@", MLKPrintToString(car));
   LASSIGN (_car, car);
   LASSIGN (_cdr, cdr);
   return self;
diff --git a/MLKForm.m b/MLKForm.m
index 674181b..d0bcf42 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -140,8 +140,6 @@
 
 
 @implementation MLKSymbolForm
-// FIXME
-
 +(Class) dispatchClassForObject:(id)object
 {
   return self;
diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index 9e51112..443bde9 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -178,7 +178,9 @@ static Constant
   lambdaForm = i->runFunction (function)->PointerVal;
 #endif
 
-  //NSLog (@"Closure built.");
+  //NSLog (@"Function: %p / %p", function, execution_engine->getPointerToFunction (function));
+  //NSLog (@"Executed: %p", fn);
+  //NSLog (@"Closure built: %p", lambdaForm);
 
   return lambdaForm;
 }
@@ -214,7 +216,6 @@ static Constant
   NSArray *subforms = [form subforms];
   unsigned int i;
 
-  //NSLog (@"Marking %@.", form);
   for (i = 0; i < [subforms count]; i++)
     {
       MLKForm *subform = [subforms objectAtIndex:i];
@@ -235,7 +236,6 @@ static Constant
             }
         }
     }
-  //NSLog (@"%@ marked.", form);
 }
 
 +(Value *) insertSelectorLookup:(NSString *)name
diff --git a/MLKLexicalContext-MLKLLVMCompilation.mm b/MLKLexicalContext-MLKLLVMCompilation.mm
index 37f03f5..669c943 100644
--- a/MLKLexicalContext-MLKLLVMCompilation.mm
+++ b/MLKLexicalContext-MLKLLVMCompilation.mm
@@ -44,6 +44,8 @@ id MLKDummyUseLLVMLexicalContext = nil;
 
 -(BOOL) variableHeapAllocationForSymbol:(id)name;
 {
+  //return YES;
+
   id flag = [self propertyForVariable:name
                   key:@"LLVM.heap-flag"];
 
diff --git a/MLKLexicalContext.m b/MLKLexicalContext.m
index acb5b4e..8574e0b 100644
--- a/MLKLexicalContext.m
+++ b/MLKLexicalContext.m
@@ -359,6 +359,7 @@ static MLKLexicalContext *global_context;
       if (!props)
         {
           props = [NSMutableDictionary dictionary];
+          //NSLog (@"%p", nullify(name)->class_pointer);
           [_variableInfo setObject:props forKey:nullify(name)];
         }
       [props setObject:object forKey:key];
diff --git a/MLKRoot.m b/MLKRoot.m
index 906fe9e..a84a709 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -286,6 +286,8 @@ list (id *_data, ...)
 
   while ((arg = va_arg(ap, id)) != MLKEndOfArgumentsMarker)
     {
+      //NSLog (@"list: Adding stuff (%%p = %p).", arg);
+      //NSLog (@"list: Stuff: %p = %@", arg, nullify(arg));
       if (!tail)
         {
           cons = tail = [MLKCons cons:arg with:nil];
@@ -299,6 +301,8 @@ list (id *_data, ...)
 
   va_end (ap);
 
+  //NSLog (@"list: Done.  Result: %p", cons);
+  //NSLog (@"list: %p = %@", cons, cons);
   return cons;
 }
 
-- 
cgit v1.2.3