[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 18/24: Remove unused make-closure opcode.
From: |
Andy Wingo |
Subject: |
[Guile-commits] 18/24: Remove unused make-closure opcode. |
Date: |
Tue, 10 Apr 2018 13:24:15 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit b0641783c9b2622b9a6f354baa55d733bce1b48c
Author: Andy Wingo <address@hidden>
Date: Tue Apr 10 17:12:33 2018 +0200
Remove unused make-closure opcode.
* libguile/vm-engine.c (make-closure): Remove opcode.
---
libguile/vm-engine.c | 33 ++-------------------------------
1 file changed, 2 insertions(+), 31 deletions(-)
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 9355110..74f5ec0 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -1546,35 +1546,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
NEXT (2);
}
- /* make-closure dst:24 offset:32 _:8 nfree:24
- *
- * Make a new closure, and write it to DST. The code for the closure
- * will be found at OFFSET words from the current IP. OFFSET is a
- * signed 32-bit integer. Space for NFREE free variables will be
- * allocated.
- */
- VM_DEFINE_OP (54, make_closure, "make-closure", OP3 (X8_S24, L32, X8_C24) |
OP_DST)
- {
- scm_t_uint32 dst, nfree, n;
- scm_t_int32 offset;
- SCM closure;
-
- UNPACK_24 (op, dst);
- offset = ip[1];
- UNPACK_24 (ip[2], nfree);
-
- // FIXME: Assert range of nfree?
- SYNC_IP ();
- closure = scm_inline_words (thread, scm_tc7_program | (nfree << 16),
- nfree + 2);
- SCM_SET_CELL_WORD_1 (closure, ip + offset);
- // FIXME: Elide these initializations?
- for (n = 0; n < nfree; n++)
- SCM_PROGRAM_FREE_VARIABLE_SET (closure, n, SCM_BOOL_F);
- SP_SET (dst, closure);
- NEXT (3);
- }
-
+ VM_DEFINE_OP (54, unused_54, NULL, NOP)
VM_DEFINE_OP (55, unused_55, NULL, NOP)
VM_DEFINE_OP (56, unused_56, NULL, NOP)
{
@@ -2135,12 +2107,11 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
{
scm_t_uint32 dst;
scm_t_int32 offset;
- SCM closure;
UNPACK_24 (op, dst);
offset = ip[1];
- SP_SET_U64 (dst, ip + offset);
+ SP_SET_U64 (dst, (scm_t_uintptr) (ip + offset));
NEXT (2);
}
- [Guile-commits] 02/24: Compile some generic arithmetic to intrinsic calls, (continued)
- [Guile-commits] 02/24: Compile some generic arithmetic to intrinsic calls, Andy Wingo, 2018/04/10
- [Guile-commits] 23/24: Remove class-of opcode, Andy Wingo, 2018/04/10
- [Guile-commits] 19/24: string->number, etc intrinsics, Andy Wingo, 2018/04/10
- [Guile-commits] 24/24: Remove load-typed-array, make-array opcodes, Andy Wingo, 2018/04/10
- [Guile-commits] 20/24: Remove string->number, etc opcodes, Andy Wingo, 2018/04/10
- [Guile-commits] 09/24: Explode "string-set!", Andy Wingo, 2018/04/10
- [Guile-commits] 14/24: Remove char->integer from VM, Andy Wingo, 2018/04/10
- [Guile-commits] 17/24: Add $code CPS expression type, Andy Wingo, 2018/04/10
- [Guile-commits] 15/24: Remove dead code in CPS converter, Andy Wingo, 2018/04/10
- [Guile-commits] 22/24: Class-of is intrinsic, Andy Wingo, 2018/04/10
- [Guile-commits] 18/24: Remove unused make-closure opcode.,
Andy Wingo <=
- [Guile-commits] 08/24: Add string-set! intrinsic, Andy Wingo, 2018/04/10