[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 22/24: Class-of is intrinsic
From: |
Andy Wingo |
Subject: |
[Guile-commits] 22/24: Class-of is intrinsic |
Date: |
Tue, 10 Apr 2018 13:24:16 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit 954bfad26288f65e4a00a2ab886bd6cdd0fdc743
Author: Andy Wingo <address@hidden>
Date: Tue Apr 10 18:27:08 2018 +0200
Class-of is intrinsic
* libguile/vm-engine.c (class-of): Disable.
* module/language/cps/reify-primitives.scm (compute-known-primitives):
Add class-of as macro-instruction.
* libguile/intrinsics.c (scm_bootstrap_intrinsics): Add class-of.
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS): Add class-of.
* module/system/vm/assembler.scm (class-of): Define as intrinsic.
---
libguile/intrinsics.c | 1 +
libguile/intrinsics.h | 1 +
libguile/vm-engine.c | 10 +---------
module/language/cps/reify-primitives.scm | 1 +
module/system/vm/assembler.scm | 3 ++-
5 files changed, 6 insertions(+), 10 deletions(-)
diff --git a/libguile/intrinsics.c b/libguile/intrinsics.c
index b974ce1..8bb9947 100644
--- a/libguile/intrinsics.c
+++ b/libguile/intrinsics.c
@@ -90,6 +90,7 @@ scm_bootstrap_intrinsics (void)
scm_vm_intrinsics.string_to_number = string_to_number;
scm_vm_intrinsics.string_to_symbol = scm_string_to_symbol;
scm_vm_intrinsics.symbol_to_keyword = scm_symbol_to_keyword;
+ scm_vm_intrinsics.class_of = scm_class_of;
scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION,
"scm_init_intrinsics",
diff --git a/libguile/intrinsics.h b/libguile/intrinsics.h
index b9cc8e4..a70669a 100644
--- a/libguile/intrinsics.h
+++ b/libguile/intrinsics.h
@@ -45,6 +45,7 @@ typedef SCM (*scm_t_scm_from_scm_intrinsic) (SCM);
M(scm_from_scm, string_to_number, "string->number", STRING_TO_NUMBER) \
M(scm_from_scm, string_to_symbol, "string->symbol", STRING_TO_SYMBOL) \
M(scm_from_scm, symbol_to_keyword, "symbol->keyword", SYMBOL_TO_KEYWORD) \
+ M(scm_from_scm, class_of, "class-of", CLASS_OF) \
/* Add new intrinsics here; also update scm_bootstrap_intrinsics. */
enum scm_vm_intrinsic
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index e4a72e4..59ed357 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -2196,15 +2196,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
abort (); /* never reached */
}
-
-
-
-
- /* class-of dst:12 type:12
- *
- * Store the vtable of SRC into DST.
- */
- VM_DEFINE_OP (113, class_of, "class-of", OP1 (X8_S12_S12) | OP_DST)
+ VM_DEFINE_OP (113, unused_113, NULL, NOP)
{
ARGS1 (obj);
/* FIXME: restore fast path for direct instances. */
diff --git a/module/language/cps/reify-primitives.scm
b/module/language/cps/reify-primitives.scm
index 057b3bf..6f09024 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -216,6 +216,7 @@
string->number
string->symbol
symbol->keyword
+ class-of
u64->s64
s64->u64
cache-current-module!
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 08e0366..f1c2db2 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -199,6 +199,7 @@
emit-string->number
emit-string->symbol
emit-symbol->keyword
+ emit-class-of
emit-call
emit-call-label
@@ -259,7 +260,6 @@
emit-ursh/immediate
emit-srsh/immediate
emit-ulsh/immediate
- emit-class-of
emit-make-array
emit-scm->f64
emit-load-f64
@@ -1311,6 +1311,7 @@ returned instead."
(define-scm<-scm-intrinsic string->number)
(define-scm<-scm-intrinsic string->symbol)
(define-scm<-scm-intrinsic symbol->keyword)
+(define-scm<-scm-intrinsic class-of)
(define-macro-assembler (begin-program asm label properties)
(emit-label asm label)
- [Guile-commits] 01/24: Add instrinsics to runtime, (continued)
- [Guile-commits] 01/24: Add instrinsics to runtime, Andy Wingo, 2018/04/10
- [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 <=
- [Guile-commits] 18/24: Remove unused make-closure opcode., Andy Wingo, 2018/04/10
- [Guile-commits] 08/24: Add string-set! intrinsic, Andy Wingo, 2018/04/10