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 05:33:06 +00:00
parent 4c8346d52d
commit 15bb9a2005
3 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
ase/stx/interp.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: interp.c,v 1.16 2005-09-30 12:19:00 bacon Exp $ * $Id: interp.c,v 1.17 2005-10-01 05:33:06 bacon Exp $
*/ */
#include <xp/stx/interp.h> #include <xp/stx/interp.h>
@ -175,8 +175,8 @@ static int __run_process (xp_stx_t* stx, process_t* proc)
else if (code == 0x71) { else if (code == 0x71) {
/* send to super */ /* send to super */
next = proc->bytecodes[proc->pc++]; next = proc->bytecodes[proc->pc++];
//__send_to_super (stx, //if (__send_to_super (stx, proc,
// proc, next >> 5, proc->literals[next & 0x1F]); // next >> 5, proc->literals[next & 0x1F]) == -1) break;
} }
else if (code == 0x72) { else if (code == 0x72) {
/* send to self extended */ /* send to self extended */
@ -194,6 +194,12 @@ static int __run_process (xp_stx_t* stx, process_t* proc)
} }
/* more code .... */ /* more code .... */
else if (code == 0x78) {
/* return receiver */
proc->stack[proc->stack_top++] = proc->receiver;
if (__return_from_message (stx, proc) == -1) break;
}
else if (code == 0x7C) { else if (code == 0x7C) {
/* return from message */ /* return from message */
if (__return_from_message (stx, proc) == -1) break; if (__return_from_message (stx, proc) == -1) break;
@ -204,6 +210,11 @@ static int __run_process (xp_stx_t* stx, process_t* proc)
next = proc->bytecodes[proc->pc++]; next = proc->bytecodes[proc->pc++];
__dispatch_primitive (stx, proc, ((code & 0x0F) << 8) | next); __dispatch_primitive (stx, proc, ((code & 0x0F) << 8) | next);
} }
else {
xp_printf (XP_TEXT("INVALID OPCODE...........\n"));
break;
}
} }
return 0; return 0;

4
ase/stx/parser.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parser.c,v 1.74 2005-09-30 16:49:39 bacon Exp $ * $Id: parser.c,v 1.75 2005-10-01 05:33:06 bacon Exp $
*/ */
#include <xp/stx/parser.h> #include <xp/stx/parser.h>
@ -780,7 +780,7 @@ static int __parse_statements (xp_stx_parser_t* parser)
} }
} }
EMIT_RETURN_FROM_MESSAGE (parser); EMIT_CODE (parser, RETURN_RECEIVER);
return 0; return 0;
} }

2
ase/test/stx/test.st
View File

@ -9,6 +9,6 @@ main
a := #abc print: 123 and: 2345. a := #abc print: 123 and: 2345.
#abc print: a and: a. #abc print: a and: a.
super print: a and: a. "super print: a and: a."
1234567. 1234567.
^nil. ^nil.