Remove unused interpreter attribute and corresponding argument from

STBlockContext and its initializer.


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@38119 72102866-910b-0410-8b05-ffd578937521

Languages/Smalltalk/ChangeLog

@@ -1,3 +1,11 @@
+2014-10-14  Wolfgang Lux  <wolfgang.lux@gmail.com>
+
+    * STBlockContext.h (STExecutionContext, -initWithInitialIP:stackSize:):
+    * STBlockContext.m (-initWithInitialIP:stackSize:):
+    * STBlock.m (-valueWithArguments:):
+    Remove unused interpreter attribute and corresponding argument from
+    STBlockContext and its initializer.
+
 2014-10-14  Wolfgang Lux  <wolfgang.lux@gmail.com>
 
     * STMethodContext.h (+methodContextWithMethod:, initWithMethod:):

Languages/Smalltalk/STBlock.m

@@ -154,9 +154,8 @@ Class STBlockContextClass = nil;
         if (!cachedContext)
         {
             cachedContext = [[STBlockContextClass alloc] 
-                                    initWithInterpreter:interpreter
-                                              initialIP:initialIP
-                                              stackSize:stackSize];
+                                    initWithInitialIP:initialIP
+                                            stackSize:stackSize];
         }
 
         /* Avoid allocation */
@@ -167,9 +166,8 @@ Class STBlockContextClass = nil;
     else
     {
         /* Create new context */
-        context = [[STBlockContextClass alloc] initWithInterpreter:interpreter
-                                                         initialIP:initialIP
-                                                         stackSize:stackSize];
+        context = [[STBlockContextClass alloc] initWithInitialIP:initialIP
+                                                       stackSize:stackSize];
 
         AUTORELEASE(context);
     }

Languages/Smalltalk/STBlockContext.h

@@ -23,18 +23,15 @@
 
 #import "STExecutionContext.h"
 
-@class STBytecodeInterpreter;
 @class STMethodContext;
 
 @interface STBlockContext:STExecutionContext
 {
-    STBytecodeInterpreter *interpreter; 
     STMethodContext       *homeContext; /* owner of this block context */
 
     NSUInteger             initialIP;
 }
-- initWithInterpreter:(STBytecodeInterpreter *)anInterpreter
-  initialIP:(NSUInteger)pointer
+- initWithInitialIP:(NSUInteger)pointer
   stackSize:(NSUInteger)size;
 - (void)setHomeContext:(STMethodContext *)context;
 - (NSUInteger)initialIP;

Languages/Smalltalk/STBlockContext.m

@@ -35,24 +35,17 @@
 #import <Foundation/NSString.h>
 
 @implementation STBlockContext
-- initWithInterpreter:(STBytecodeInterpreter *)anInterpreter
-  initialIP:(NSUInteger)pointer
+- initWithInitialIP:(NSUInteger)pointer
   stackSize:(NSUInteger)size
 {
     if ((self = [super initWithStackSize:size]) != nil)
     {
-        interpreter = RETAIN(anInterpreter);
         initialIP = pointer;
 
         instructionPointer = initialIP;
     }
     return self; 
 }
-- (void)dealloc
-{
-    RELEASE(interpreter);
-    [super dealloc];
-}
 
 - (BOOL)isBlockContext
 {