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

fix yxn instruction type.

Browse Source
This commit is contained in:
Vítor Santos de Costa 2008-10-07 22:32:15 +01:00
parent 681d0f186d
commit 2cdcf87044
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
H/YapOpcodes.h
View File

@ -240,7 +240,7 @@
OPCODE(p_nonvar_x ,xl),
OPCODE(p_nonvar_y ,yl),
OPCODE(p_number_x ,xl),
OPCODE(p_number_y ,xl),
OPCODE(p_number_y ,yl),
OPCODE(p_var_x ,xl),
OPCODE(p_var_y ,yl),
OPCODE(p_db_ref_x ,xl),

2
H/amidefs.h
View File

@ -633,8 +633,8 @@ typedef struct yami {
CELL next;
} yyy;
struct {
wamreg xi;
yslot y;
wamreg xi;
Int c;
CELL next;
} yxn;

6
H/rclause.h
View File

@ -541,7 +541,6 @@ restore_opcodes(yamop *pc)
case _p_integer_x:
case _p_nonvar_x:
case _p_number_x:
case _p_number_y:
case _p_primitive_x:
case _p_var_x:
pc->u.xl.x = XAdjust(pc->u.xl.x);
@ -659,6 +658,7 @@ restore_opcodes(yamop *pc)
case _p_float_y:
case _p_integer_y:
case _p_nonvar_y:
case _p_number_y:
case _p_primitive_y:
case _p_var_y:
pc->u.yl.y = YAdjust(pc->u.yl.y);
@ -696,8 +696,8 @@ restore_opcodes(yamop *pc)
case _p_slr_y_cv:
case _p_slr_y_vc:
case _p_times_y_vc:
pc->u.yxn.xi = YAdjust(pc->u.yxn.xi);
pc->u.yxn.y = XAdjust(pc->u.yxn.y);
pc->u.yxn.y = YAdjust(pc->u.yxn.y);
pc->u.yxn.xi = XAdjust(pc->u.yxn.xi);
pc->u.yxn.c = IntegerAdjust(pc->u.yxn.c);
pc = NEXTOP(pc,yxn);
break;