[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 05/15: Disable f64->scm instruction
From: |
Andy Wingo |
Subject: |
[Guile-commits] 05/15: Disable f64->scm instruction |
Date: |
Fri, 13 Apr 2018 04:41:12 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit b285226477814c83548dbee92e8a4a4b0efbbc80
Author: Andy Wingo <address@hidden>
Date: Tue Apr 10 20:41:04 2018 +0200
Disable f64->scm instruction
* libguile/vm-engine.c (f64->scm): Disable instruction.
* module/language/cps/compile-bytecode.scm (compile-function): Remove
f64->scm case.
* module/system/vm/assembler.scm: Remove emit-f64->scm export.
---
libguile/vm-engine.c | 7 +------
module/language/cps/compile-bytecode.scm | 2 --
module/system/vm/assembler.scm | 1 -
3 files changed, 1 insertion(+), 9 deletions(-)
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index b936cdc..13cbc77 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -2244,12 +2244,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
NEXT (1);
}
- /* f64->scm dst:12 src:12
- *
- * Pack a raw double-precision floating point value into an inexact
- * number allocated on the heap.
- */
- VM_DEFINE_OP (137, f64_to_scm, "f64->scm", OP1 (X8_S12_S12) | OP_DST)
+ VM_DEFINE_OP (137, unused_137, NULL, NOP)
{
scm_t_uint16 dst, src;
UNPACK_12_12 (op, dst, src);
diff --git a/module/language/cps/compile-bytecode.scm
b/module/language/cps/compile-bytecode.scm
index f9eb8a4..01eb57b 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -205,8 +205,6 @@
(emit-scm->f64 asm (from-sp dst) (from-sp (slot src))))
(($ $primcall 'load-f64 val ())
(emit-load-f64 asm (from-sp dst) val))
- (($ $primcall 'f64->scm #f (src))
- (emit-f64->scm asm (from-sp dst) (from-sp (slot src))))
(($ $primcall 'scm->u64 #f (src))
(emit-scm->u64 asm (from-sp dst) (from-sp (slot src))))
(($ $primcall 'scm->u64/truncate #f (src))
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 0c43ce6..88f713a 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -263,7 +263,6 @@
emit-ulsh/immediate
emit-make-array
emit-load-f64
- emit-f64->scm
emit-scm->u64
emit-scm->u64/truncate
emit-load-u64
- [Guile-commits] branch master updated (59f1f5a -> 79ba396), Andy Wingo, 2018/04/13
- [Guile-commits] 05/15: Disable f64->scm instruction,
Andy Wingo <=
- [Guile-commits] 06/15: Remove scm->f64, f64->scm implementations, Andy Wingo, 2018/04/13
- [Guile-commits] 04/15: Instruction explosion for f64->scm, Andy Wingo, 2018/04/13
- [Guile-commits] 03/15: Add reifier for fadd/immediate., Andy Wingo, 2018/04/13
- [Guile-commits] 02/15: Slim heap-allocated flonums, Andy Wingo, 2018/04/13
- [Guile-commits] 01/15: Add scm->f64 intrinsic, Andy Wingo, 2018/04/13
- [Guile-commits] 11/15: logsub is intrinsic, Andy Wingo, 2018/04/13
- [Guile-commits] 09/15: u64->scm, s64->scm intrinsics, Andy Wingo, 2018/04/13
- [Guile-commits] 08/15: Remove scm->u64, etc implementations, Andy Wingo, 2018/04/13
- [Guile-commits] 10/15: Remove implementations of obsolete s64->scm, u64->scm insts, Andy Wingo, 2018/04/13
- [Guile-commits] 12/15: Remove implementation of logsub VM op, Andy Wingo, 2018/04/13