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

Remove dedicated current-module instruction.

Browse source 
* libguile/vm-engine.c (current-module): Remove instruction.
This commit is contained in:
Andy Wingo 2018-06-27 15:06:40 +02:00
parent 8918165c40
commit 85ab5f0299
1 changed files with 1 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/vm-engine.c
View file

@ -1643,22 +1643,7 @@ VM_NAME (scm_thread *thread, jmp_buf *registers, int resume)
/* current-module dst:24
*
* Store the current module in DST.
*/
VM_DEFINE_OP (64, current_module, "current-module", OP1 (X8_S24) | OP_DST)
{
uint32_t dst;
UNPACK_24 (op, dst);
SYNC_IP ();
SP_SET (dst, scm_current_module ());
NEXT (1);
}
VM_DEFINE_OP (64, unused_64, NULL, NOP)
VM_DEFINE_OP (65, unused_65, NULL, NOP)
VM_DEFINE_OP (66, unused_66, NULL, NOP)
VM_DEFINE_OP (67, unused_67, NULL, NOP)