mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

Remove slot-ref and slot-set! ops

Browse source 
* libguile/vm-engine.c: Remove slot-ref and slot-set! ops.
This commit is contained in:
Andy Wingo 2013-11-30 16:43:28 +01:00
parent 4d6a7ac6ad
commit 2b6659e438
1 changed files with 3 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

31
libguile/vm-engine.c
View file

@ -2722,34 +2722,9 @@ VM_NAME (scm_i_thread *current_thread, struct scm_vm *vp,
RETURN (scm_class_of (obj)); RETURN (scm_class_of (obj));
} }
/* slot-ref dst:8 src:8 idx:8 VM_DEFINE_OP (103, unused_103, NULL, NOP)
* VM_DEFINE_OP (104, unused_104, NULL, NOP)
* Fetch the item at slot IDX in the struct in SRC, and store it in goto op_unused_255;
* DST. Unlike struct-ref, IDX is an 8-bit immediate value, not an
* index into the stack.
*/
VM_DEFINE_OP (103, slot_ref, "slot-ref", OP1 (U8_U8_U8_U8) | OP_DST)
{
scm_t_uint8 dst, src, idx;
UNPACK_8_8_8 (op, dst, src, idx);
LOCAL_SET (dst,
SCM_PACK (SCM_STRUCT_DATA (LOCAL_REF (src))[idx]));
NEXT (1);
}
/* slot-set! dst:8 idx:8 src:8
*
* Store SRC into slot IDX of the struct in DST. Unlike struct-set!,
* IDX is an 8-bit immediate value, not an index into the stack.
*/
VM_DEFINE_OP (104, slot_set, "slot-set!", OP1 (U8_U8_U8_U8))
{
scm_t_uint8 dst, idx, src;
UNPACK_8_8_8 (op, dst, idx, src);
SCM_STRUCT_DATA (LOCAL_REF (dst))[idx] = SCM_UNPACK (LOCAL_REF (src));
NEXT (1);
}