mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Fix up some opcode metadata

Browse source 
* libguile/vm-engine.c (make-long-immediate, static-ref): Mark as "dst"
  instructions.
This commit is contained in:
Andy Wingo 2014-04-16 12:51:34 +02:00
parent f9425c8000
commit b7ee9e086e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm-engine.c
View file

@ -1662,7 +1662,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
* Make an immediate whose low bits are LOW-BITS, and whose top bits are * Make an immediate whose low bits are LOW-BITS, and whose top bits are
* 0. * 0.
*/ */
VM_DEFINE_OP (53, make_long_immediate, "make-long-immediate", OP2 (U8_U24, I32)) VM_DEFINE_OP (53, make_long_immediate, "make-long-immediate", OP2 (U8_U24, I32) | OP_DST)
{ {
scm_t_uint32 dst; scm_t_uint32 dst;
scm_t_bits val; scm_t_bits val;
@ -1737,7 +1737,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
* that the compiler is unable to statically allocate, like symbols. * that the compiler is unable to statically allocate, like symbols.
* These values would be initialized when the object file loads. * These values would be initialized when the object file loads.
*/ */
VM_DEFINE_OP (56, static_ref, "static-ref", OP2 (U8_U24, S32)) VM_DEFINE_OP (56, static_ref, "static-ref", OP2 (U8_U24, S32) | OP_DST)
{ {
scm_t_uint32 dst; scm_t_uint32 dst;
scm_t_int32 offset; scm_t_int32 offset;