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

Disassembler for missing code OP_EXIT_PROGV

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-03-27 23:36:55 +02:00
parent 7a2f1feae6
commit 20d5b17948
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/disassembler.d
View file

@ -542,6 +542,8 @@ disassemble(cl_object bytecodes, cl_opcode *vector) {
case OP_PROGV: vector = disassemble_progv(bytecodes, vector);
break;
case OP_EXIT_PROGV: print_noarg("PROGV\tEXIT");
return vector;
/* OP_VALUES n{arg}
Pop N values from the stack and store them in VALUES(...)