diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix indexing of long instructions

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
H/headclause.h
View File

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

2
misc/buildops
View File

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