diff options
| -rw-r--r-- | MLKCons.m | 1 | ||||
| -rw-r--r-- | MLKForm.m | 2 | ||||
| -rw-r--r-- | MLKLLVMCompiler.mm | 6 | ||||
| -rw-r--r-- | MLKLexicalContext-MLKLLVMCompilation.mm | 2 | ||||
| -rw-r--r-- | MLKLexicalContext.m | 1 | ||||
| -rw-r--r-- | MLKRoot.m | 4 |
6 files changed, 11 insertions, 5 deletions
@@ -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; @@ -144,8 +144,6 @@ @implementation MLKSymbolForm -// FIXME - +(Class) dispatchClassForObject:(id)object { return self; diff --git a/MLKLLVMCompiler.mm b/MLKLLVMCompiler.mm index 5428927..84fc6af 100644 --- a/MLKLLVMCompiler.mm +++ b/MLKLLVMCompiler.mm @@ -195,7 +195,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; } @@ -231,7 +233,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]; @@ -252,7 +253,6 @@ static Constant } } } - //NSLog (@"%@ marked.", form); } +(Value *) insertSelectorLookup:(NSString *)name diff --git a/MLKLexicalContext-MLKLLVMCompilation.mm b/MLKLexicalContext-MLKLLVMCompilation.mm index b387f62..92efa23 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]; @@ -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; } |