mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Remove scm->f64, f64->scm implementations

Browse source 
* libguile/vm-engine.c: Remove now-unused f64->scm, scm->f64 impls.
This commit is contained in:
Andy Wingo 2018-04-10 20:51:06 +02:00
parent b285226477
commit 2db7c2df64
1 changed files with 2 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/vm-engine.c
View file

@ -2230,29 +2230,13 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
VM_DEFINE_OP (133, unused_133, NULL, NOP) VM_DEFINE_OP (133, unused_133, NULL, NOP)
VM_DEFINE_OP (134, unused_134, NULL, NOP) VM_DEFINE_OP (134, unused_134, NULL, NOP)
VM_DEFINE_OP (135, unused_135, NULL, NOP) VM_DEFINE_OP (135, unused_135, NULL, NOP)
VM_DEFINE_OP (136, unused_136, NULL, NOP)
VM_DEFINE_OP (137, unused_137, NULL, NOP)
{ {
vm_error_bad_instruction (op); vm_error_bad_instruction (op);
abort (); /* never reached */ abort (); /* never reached */
} }
VM_DEFINE_OP (136, unused_136, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
SYNC_IP ();
SP_SET_F64 (dst, scm_to_double (SP_REF (src)));
NEXT (1);
}
VM_DEFINE_OP (137, unused_137, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
SYNC_IP ();
SP_SET (dst, scm_from_double (SP_REF_F64 (src)));
NEXT (1);
}
/* fadd dst:8 a:8 b:8 /* fadd dst:8 a:8 b:8
* *
* Add A to B, and place the result in DST. The operands and the * Add A to B, and place the result in DST. The operands and the