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

64-bit tweaks for StepTalk's Smalltalk compiler.

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

6
Languages/Smalltalk/ChangeLog
View file

@ -1,3 +1,9 @@
2012-01-15 Wolfgang Lux <wolfgang.lux@gmail.com>
* STCompiler.m (-indexOfTemporaryVariable, -indexOfNamedReference,
-compilePrimary:, -compileExpression:): Minimal set of changes to
accomodate to large NSNotFound value on 64-bit machines.
2012-01-15 Wolfgang Lux <wolfgang.lux@gmail.com>
* STCompiler.m (-exceptionInfo): Return exceptionInfo dictionary.

14
Languages/Smalltalk/STCompiler.m
View file

@ -77,7 +77,7 @@ extern int STCparse(void *context);
- (void)compile;
- (void)initializeContext;
- (void)destroyCompilationContext;
- (unsigned)indexOfTemporaryVariable:(NSString *)varName;
- (NSUInteger)indexOfTemporaryVariable:(NSString *)varName;
- (void) initializeCompilationContext;
@ -434,7 +434,7 @@ extern int STCparse(void *context);
* ---------------------------------------------------------------------------
*/
- (unsigned)indexOfTemporaryVariable:(NSString *)varName
- (NSUInteger)indexOfTemporaryVariable:(NSString *)varName
{
return [tempVars indexOfObject:varName];
}
@ -473,9 +473,9 @@ extern int STCparse(void *context);
{
return [receiverVars containsObject:varName];
}
- (unsigned)indexOfNamedReference:(NSString *)varName
- (NSUInteger)indexOfNamedReference:(NSString *)varName
{
unsigned index;
NSUInteger index;
/* is it receiver or extern variable? */
index = [namedReferences indexOfObject:varName];
@ -689,7 +689,7 @@ extern int STCparse(void *context);
- (void)compilePrimary:(STCPrimary *)primary
{
id object = [primary object];
int index;
NSUInteger index;
NSDebugLLog(@"STCompiler-misc",@" compile primary");
@ -794,8 +794,8 @@ extern int STCparse(void *context);
NSArray *cascade;
NSString *varName;
NSArray *array;
unsigned count;
unsigned index,i;
NSUInteger count;
NSUInteger index,i;
id obj;
NSDebugLLog(@"STCompiler-misc",@" compile expression");