hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2005-10-01 16:48:44 +00:00
parent 15bb9a2005
commit b48829f1af
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ase/stx/makefile.lcc
View File

@ -1,7 +1,9 @@
SRCS = stx.c memory.c object.c symbol.c class.c dict.c misc.c array.c \
context.c name.c token.c parser.c bootstrp.c bytecode.c interp.c
OBJS = stx.obj memory.obj object.obj symbol.obj class.obj dict.obj misc.obj array.obj \
context.obj name.obj token.obj parser.obj bootstrp.obj bytecode.obj interp.obj
SRCS = stx.c memory.c object.c symbol.c class.c array.c \
dict.c misc.c name.c token.c parser.c bootstrp.c \
bytecode.c interp.c
OBJS = stx.obj memory.obj object.obj symbol.obj class.obj array.obj \
dict.obj misc.obj name.obj token.obj parser.obj bootstrp.obj \
bytecode.obj interp.obj
OUT = xpstx.lib
CC = lcc

6
ase/stx/parser.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parser.c,v 1.75 2005-10-01 05:33:06 bacon Exp $
* $Id: parser.c,v 1.76 2005-10-01 16:48:44 bacon Exp $
*/
#include <xp/stx/parser.h>
@ -1120,15 +1120,13 @@ static int __parse_message_continuation (
* <keyword message>
* <cascaded messages> ::= (';' <messages>)*
*/
xp_bool_t dummy;
if (__parse_keyword_message(parser, is_super) == -1) return -1;
while (parser->token.type == XP_STX_TOKEN_SEMICOLON) {
EMIT_CODE_TEST (parser, XP_TEXT("DoSpecial(DUP_RECEIVER(CASCADE))"), XP_TEXT(""));
GET_TOKEN (parser);
if (__parse_keyword_message (parser, &dummy) == -1) return -1;
if (__parse_keyword_message(parser, xp_false) == -1) return -1;
EMIT_CODE_TEST (parser, XP_TEXT("DoSpecial(POP_TOP)"), XP_TEXT(""));
}