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

Class-of is intrinsic

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2018-04-10 18:27:08 +02:00
parent d1ed64d900
commit 954bfad262
5 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/vm-engine.c
View file

@ -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. */