diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-06 13:13:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-15 21:03:33 +0100 |
commit | b10d93309b4c96caa5d399716c9b09a862c8ce0e (patch) | |
tree | 1a848a022ded67076216978ddc0fdf7785774682 /libguile/vm-i-scheme.c | |
parent | aec4a84ac8bb3270e6f68f8299e76c49857e24d4 (diff) | |
download | guile-b10d93309b4c96caa5d399716c9b09a862c8ce0e.tar.gz |
opcodes for bit twiddling (ash, logand, logior, logxor)
* module/language/tree-il/compile-glil.scm:
* module/language/tree-il/primitives.scm:
* libguile/vm-i-scheme.c (ash, logand, logior, logxor): New opcodes.
Diffstat (limited to 'libguile/vm-i-scheme.c')
-rw-r--r-- | libguile/vm-i-scheme.c | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 73c4296a5..b95a45a59 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -281,6 +281,49 @@ VM_DEFINE_FUNCTION (126, mod, "mod", 2) RETURN (scm_modulo (x, y)); } +VM_DEFINE_FUNCTION (170, ash, "ash", 2) +{ + ARGS2 (x, y); + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + { + if (SCM_I_INUM (y) < 0) + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); + else if ((SCM_I_INUM (x) << SCM_I_INUM (y)) >> SCM_I_INUM (y) + == SCM_I_INUM (x)) + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) << SCM_I_INUM (y))); + /* fall through */ + } + SYNC_REGISTER (); + RETURN (scm_ash (x, y)); +} + +VM_DEFINE_FUNCTION (171, logand, "logand", 2) +{ + ARGS2 (x, y); + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) & SCM_I_INUM (y))); + SYNC_REGISTER (); + RETURN (scm_logand (x, y)); +} + +VM_DEFINE_FUNCTION (172, logior, "logior", 2) +{ + ARGS2 (x, y); + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) | SCM_I_INUM (y))); + SYNC_REGISTER (); + RETURN (scm_logior (x, y)); +} + +VM_DEFINE_FUNCTION (173, logxor, "logxor", 2) +{ + ARGS2 (x, y); + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) ^ SCM_I_INUM (y))); + SYNC_REGISTER (); + RETURN (scm_logxor (x, y)); +} + /* * GOOPS support |