From 3fc69fc8eb920d6ce143010d5e7fc5cf191c37d1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard 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