mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed disassembly of OP_CSET

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-02-27 16:21:01 +01:00
parent bc31e21e68
commit 4fd77c7963
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/disassembler.d
View file

@ -214,11 +214,11 @@ disassemble(cl_object bytecodes, cl_opcode *vector) {
GET_DATA(o, vector, data);
goto ARG;
/* OP_QUOTE
/* OP_CSET n{arg}
Replace constant with a computed value
*/
case OP_CSET: string = "CSET\t";
GET_OPARG(n, data);
GET_OPARG(n, vector);
goto OPARG;
/* OP_VAR n{arg}