LLVM compiler: Support FUNCTION.

1 files changed, 26 insertions, 0 deletions

diff --git a/MLKLexicalContext.m b/MLKLexicalContext.m
index acb5b4e..0afc66b 100644
--- a/MLKLexicalContext.m
+++ b/MLKLexicalContext.m
@@ -297,6 +297,12 @@ static MLKLexicalContext *global_context;
           || [self contextForVariable:name] == [MLKLexicalContext globalContext]);
 }
 
+-(BOOL) functionIsGlobal:(id)name
+{
+  return (![self contextForFunction:name]
+          || [self contextForFunction:name] == [MLKLexicalContext globalContext]);
+}
+
 -(BOOL) functionIsInline:(MLKSymbol *)symbol
 {
   if ([_functions containsObject:symbol])
@@ -455,6 +461,26 @@ static MLKLexicalContext *global_context;
     }
 }
 
+-(intptr_t *) closureDataLengthForSymbol:(id)name
+{
+  id prop = [self propertyForFunction:name
+                                  key:@"LEXCTX.closure-data-length"];
+  
+  if (!prop)
+    {
+      intptr_t *cell = malloc (sizeof(intptr_t));
+      prop = [NSValue valueWithPointer:cell];
+      [self setDeepProperty:prop
+                forFunction:name
+                        key:@"LEXCTX.closure-data-length"];
+      return cell;
+    }
+  else
+    {
+      return (intptr_t*)[prop pointerValue];
+    }
+}
+
 -(id) bindingForSymbol:(id)name
 {
   id prop = [self propertyForVariable:name