fix indexing of long instructions

This commit is contained in:
Vitor Santos Costa 2013-07-22 10:43:38 -05:00
parent 0639f86980
commit 38a804db1e
2 changed files with 4 additions and 1 deletions

View File

@ -6,6 +6,9 @@
while (TRUE) {
op_numbers op = Yap_op_from_opcode(cl->opc);
switch (op) {
case _ensure_space:
cl = NEXTOP(cl,Osbpa);
break;
case _native_me:
cl = NEXTOP(cl,aFlp);
break;

View File

@ -851,7 +851,7 @@ opinfo("p_nonvar_x",[body,ifthenelse]).
opinfo("p_nonvar_y",[body,ifthenelse]).
opinfo("save_b_x",[body,new("x")]).
opinfo("save_b_y",[body,new("y")]).
opinfo("ensure_space",[body]).
opinfo("ensure_space",[]).
opinfo("write_x_loc",[body]).
opinfo("write_x_var",[body,new("x")]).
opinfo("write_y_var",[body,new("y")]).