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

logsub is intrinsic

Browse source 
* libguile/intrinsics.h:
* libguile/intrinsics.c (logsub): New intrinsic.
  (scm_bootstrap_intrinsics): Init new intrinsic.
* libguile/vm-engine.c (logsub): Disable.
* module/language/cps/reify-primitives.scm (compute-known-primitives):
  Add logsub.
* module/system/vm/assembler.scm: Update logsub intrinsic assembler.
This commit is contained in:
Andy Wingo 2018-04-12 17:10:35 +02:00
parent b2c01e5b58
commit 25a0fe8839
5 changed files with 22 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/intrinsics.h
View file

@ -57,6 +57,7 @@ typedef SCM (*scm_t_scm_from_s64_intrinsic) (scm_t_int64);
M(s64_from_scm, scm_to_s64, "scm->s64", SCM_TO_S64) \
M(scm_from_u64, u64_to_scm, "u64->scm", U64_TO_SCM) \
M(scm_from_s64, s64_to_scm, "s64->scm", S64_TO_SCM) \
M(scm_from_scm_scm, logsub, "logsub", LOGSUB) \
/* Add new intrinsics here; also update scm_bootstrap_intrinsics. */
enum scm_vm_intrinsic