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

stack fix

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@19565 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Stefan Urbanek 2004-06-20 12:16:19 +00:00
parent 55d3ea8aec
commit 9155a068cd
2 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Languages/Smalltalk/ChangeLog
View file

@ -1,3 +1,7 @@
2004 Jun 20 Stefan Urbanek
* Added a fix to the compiler from Mateu Batle
2004 May 27 Stefan Urbanek
* Fixed bug with signed/unsigned bytecode, which made StepTalk to crash if

16
Languages/Smalltalk/STCompiler.m
View file

@ -596,10 +596,26 @@ extern int STCparse(void *context);
if(array)
{
BOOL first = YES;
enumerator = [array objectEnumerator];
while((expr = [enumerator nextObject]))
{
[self compileExpression:expr];
/* Mateu Batle: ignore returned value on the stack ? */
/* FIXME: please check this !!! */
if (!first)
{
[self emitPopStack];
}
else
{
first = NO;
}
[self compileExpression:expr];
}
}