mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

6
libguile/vm-engine.c
View file

@ -2564,11 +2564,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
NEXT (1);
}
/* logsub dst:8 a:8 b:8
*
* Place the bitwise AND of A and the bitwise NOT of B into DST.
*/
VM_DEFINE_OP (161, logsub, "logsub", OP1 (X8_S8_S8_S8) | OP_DST)
VM_DEFINE_OP (161, unused_161, NULL, NOP)
{
ARGS2 (x, y);