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 \ SRCS = stx.c memory.c object.c symbol.c class.c array.c \
context.c name.c token.c parser.c bootstrp.c bytecode.c interp.c dict.c misc.c name.c token.c parser.c bootstrp.c \
OBJS = stx.obj memory.obj object.obj symbol.obj class.obj dict.obj misc.obj array.obj \ bytecode.c interp.c
context.obj name.obj token.obj parser.obj bootstrp.obj bytecode.obj interp.obj 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 OUT = xpstx.lib
CC = lcc 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> #include <xp/stx/parser.h>
@ -1120,15 +1120,13 @@ static int __parse_message_continuation (
* <keyword message> * <keyword message>
* <cascaded messages> ::= (';' <messages>)* * <cascaded messages> ::= (';' <messages>)*
*/ */
xp_bool_t dummy;
if (__parse_keyword_message(parser, is_super) == -1) return -1; if (__parse_keyword_message(parser, is_super) == -1) return -1;
while (parser->token.type == XP_STX_TOKEN_SEMICOLON) { while (parser->token.type == XP_STX_TOKEN_SEMICOLON) {
EMIT_CODE_TEST (parser, XP_TEXT("DoSpecial(DUP_RECEIVER(CASCADE))"), XP_TEXT("")); EMIT_CODE_TEST (parser, XP_TEXT("DoSpecial(DUP_RECEIVER(CASCADE))"), XP_TEXT(""));
GET_TOKEN (parser); 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("")); EMIT_CODE_TEST (parser, XP_TEXT("DoSpecial(POP_TOP)"), XP_TEXT(""));
} }