gnustep/libs-steptalk
0
0
Fork 0
mirror of https://github.com/gnustep/libs-steptalk.git synced 2025-02-21 02:31:01 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Shut down a few more compiler warnings for StepTalk's Smalltalk interpreter.

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@34537 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Wolfgang Lux 2012-01-15 14:44:47 +00:00
parent 69646308b3
commit 2dc8f7f786
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Languages/Smalltalk/ChangeLog
View file

@ -1,3 +1,10 @@
2012-01-15 Wolfgang Lux <wolfgang.lux@gmail.com>
* STCompiler.m (-exceptionInfo): Return exceptionInfo dictionary.
* STCompiler.m (-compileMethodFromSource:forReceiver:, -compileString:,
-indexOfNamedReference:): Remove unneeded variables reported by gcc 4.6.
2012-01-15 Wolfgang Lux <wolfgang.lux@gmail.com>
* STBytecodes.h (-data, -length): Declare public methods.

11
Languages/Smalltalk/STCompiler.m
View file

@ -186,7 +186,6 @@ extern int STCparse(void *context);
NSString *hackedSource;
NSString *exceptionFmt = @"Syntax error at line %i near '%@', "
@"reason: %@.";
int parsRetval = 0;
NSDebugLLog(@"STCompiler", @"Compile method for receiver %@", [receiverObject className]);
@ -211,7 +210,7 @@ extern int STCparse(void *context);
{
// extern int STCdebug;
// STCdebug = 1;
parsRetval = STCparse(&context);
STCparse(&context);
}
NS_HANDLER
{
@ -254,7 +253,6 @@ extern int STCparse(void *context);
STCompiledScript *result;
NSString *exceptionFmt = @"Syntax error at line %i near '%@', "
@"reason: %@.";
int parsRetval = 0;
NSDebugLLog(@"STCompiler", @"Compile string", aString);
@ -277,7 +275,7 @@ extern int STCparse(void *context);
{
// extern int STCdebug;
// STCdebug = 1;
parsRetval = STCparse(&context);
STCparse(&context);
}
NS_HANDLER
{
@ -478,7 +476,6 @@ extern int STCparse(void *context);
- (unsigned)indexOfNamedReference:(NSString *)varName
{
unsigned index;
id obj;
/* is it receiver or extern variable? */
index = [namedReferences indexOfObject:varName];
@ -492,7 +489,7 @@ extern int STCparse(void *context);
{
NS_DURING
/* test whether variable is an ivar s*/
obj = [receiver valueForKey:varName];
[receiver valueForKey:varName];
NSDebugLLog(@"STCompiler", @"New name: receiver variable %@", varName);
[receiverVars addObject:varName];
NS_HANDLER
@ -973,7 +970,7 @@ extern int STCparse(void *context);
[NSValue valueWithRange:[reader tokenRange]],
@"TokenRange",
nil,nil];
return nil;
return dict;
}
/* ---------------------------------------------------------------------------
* Emit bytecodes