summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--MLKCons.m1
-rw-r--r--MLKForm.m2
-rw-r--r--MLKLLVMCompiler.mm6
-rw-r--r--MLKLexicalContext-MLKLLVMCompilation.mm2
-rw-r--r--MLKLexicalContext.m1
-rw-r--r--MLKRoot.m4
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 8e8bf02..62ef451 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -144,8 +144,6 @@
@implementation MLKSymbolForm
-// FIXME
-
+(Class) dispatchClassForObject:(id)object
{
return self;
diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm
index 2334f27..9f273cf 100644
--- a/MLKLLVMCompiler.mm
+++ b/MLKLLVMCompiler.mm
@@ -197,7 +197,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;
}
@@ -233,7 +235,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];
@@ -254,7 +255,6 @@ static Constant
}
}
}
- //NSLog (@"%@ marked.", form);
}
+(Value *) insertSelectorLookup:(NSString *)name
diff --git a/MLKLexicalContext-MLKLLVMCompilation.mm b/MLKLexicalContext-MLKLLVMCompilation.mm
index b2d95ea..936ada5 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 4358402..ccd348a 100644
--- a/MLKLexicalContext.m
+++ b/MLKLexicalContext.m
@@ -365,6 +365,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 5bbabdf..4ab2f2e 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -286,6 +286,8 @@ list (id *_data, id *_multireturn, ...)
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, id *_multireturn, ...)
va_end (ap);
+ //NSLog (@"list: Done. Result: %p", cons);
+ //NSLog (@"list: %p = %@", cons, cons);
return cons;
}