LLVM compiler: Access closure variables through the closure data pointer.

1 files changed, 10 insertions, 3 deletions

diff --git a/MLKLexicalContext-MLKLLVMCompilation.mm b/MLKLexicalContext-MLKLLVMCompilation.mm
index e670151..4285d1e 100644
--- a/MLKLexicalContext-MLKLLVMCompilation.mm
+++ b/MLKLexicalContext-MLKLLVMCompilation.mm
@@ -44,7 +44,7 @@ id MLKDummyUseLLVMLexicalContext = nil;
 
 -(BOOL) variableHeapAllocationForSymbol:(id)name;
 {
-  id flag = [self deepPropertyForVariable:name
+  id flag = [self propertyForVariable:name
                   key:@"LLVM.heap-flag"];
 
   if (flag)
@@ -85,11 +85,18 @@ id MLKDummyUseLLVMLexicalContext = nil;
 
 -(Value *) bindingValueForSymbol:(id)name
 {
-  return (Value *) [[self deepPropertyForVariable:name
+  return (Value *) [[self propertyForVariable:name
                           key:@"LLVM.variable-binding"]
                      pointerValue];
 }
 
+-(void) locallySetBindingValue:(Value *)value forSymbol:(id)name
+{
+  [self addShallowProperty:[NSValue valueWithPointer:value]
+        forVariable:name
+        key:@"LLVM.variable-binding"];
+}
+
 -(void) setBindingValue:(Value *)value forSymbol:(id)name
 {
   [self setDeepProperty:[NSValue valueWithPointer:value]
@@ -99,7 +106,7 @@ id MLKDummyUseLLVMLexicalContext = nil;
 
 -(Value *) valueValueForSymbol:(id)name
 {
-  return (Value *) [[self deepPropertyForVariable:name
+  return (Value *) [[self propertyForVariable:name
                           key:@"LLVM.variable-value"]
                      pointerValue];
 }