Author: wlux
Date: Tue Oct 14 22:13:09 2014
New Revision: 38119
URL: http://svn.gna.org/viewcvs/gnustep?rev=38119&view=rev
Log:
Remove unused interpreter attribute and corresponding argument from
STBlockContext and its initializer.
Modified:
libs/steptalk/trunk/Languages/Smalltalk/ChangeLog
libs/steptalk/trunk/Languages/Smalltalk/STBlock.m
libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.h
libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.m
Modified: libs/steptalk/trunk/Languages/Smalltalk/ChangeLog
URL:
http://svn.gna.org/viewcvs/gnustep/libs/steptalk/trunk/Languages/Smalltalk/ChangeLog?rev=38119&r1=38118&r2=38119&view=diff
==============================================================================
--- libs/steptalk/trunk/Languages/Smalltalk/ChangeLog (original)
+++ libs/steptalk/trunk/Languages/Smalltalk/ChangeLog Tue Oct 14 22:13:09 2014
@@ -1,3 +1,11 @@
+2014-10-14 Wolfgang Lux <[email protected]>
+
+ * 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 <[email protected]>
* STMethodContext.h (+methodContextWithMethod:, initWithMethod:):
Modified: libs/steptalk/trunk/Languages/Smalltalk/STBlock.m
URL:
http://svn.gna.org/viewcvs/gnustep/libs/steptalk/trunk/Languages/Smalltalk/STBlock.m?rev=38119&r1=38118&r2=38119&view=diff
==============================================================================
--- libs/steptalk/trunk/Languages/Smalltalk/STBlock.m (original)
+++ libs/steptalk/trunk/Languages/Smalltalk/STBlock.m Tue Oct 14 22:13:09 2014
@@ -154,9 +154,8 @@
if (!cachedContext)
{
cachedContext = [[STBlockContextClass alloc]
- initWithInterpreter:interpreter
- initialIP:initialIP
- stackSize:stackSize];
+ initWithInitialIP:initialIP
+ stackSize:stackSize];
}
/* Avoid allocation */
@@ -167,9 +166,8 @@
else
{
/* Create new context */
- context = [[STBlockContextClass alloc] initWithInterpreter:interpreter
- initialIP:initialIP
- stackSize:stackSize];
+ context = [[STBlockContextClass alloc] initWithInitialIP:initialIP
+ stackSize:stackSize];
AUTORELEASE(context);
}
Modified: libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.h
URL:
http://svn.gna.org/viewcvs/gnustep/libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.h?rev=38119&r1=38118&r2=38119&view=diff
==============================================================================
--- libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.h (original)
+++ libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.h Tue Oct 14
22:13:09 2014
@@ -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;
Modified: libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.m
URL:
http://svn.gna.org/viewcvs/gnustep/libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.m?rev=38119&r1=38118&r2=38119&view=diff
==============================================================================
--- libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.m (original)
+++ libs/steptalk/trunk/Languages/Smalltalk/STBlockContext.m Tue Oct 14
22:13:09 2014
@@ -35,23 +35,16 @@
#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
_______________________________________________
Gnustep-cvs mailing list
[email protected]
https://mail.gna.org/listinfo/gnustep-cvs
