mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

Implement unboxed integer primitives.

Browse source 
* module/language/js-il/runtime.js (u64-=, u64->scm): New primitives.
This commit is contained in:
Ian Price 2017-08-14 16:31:20 +01:00
parent 3f9bc2dbb0
commit 166def2da0
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/language/js-il/runtime.js
View file

@ -87,6 +87,10 @@ scheme.primitives["load-u64"] = function(x) {
return x; return x;
}; };
scheme.primitives["u64-="] = function(x, y) {
return coerce_bool(x === y);
};
scheme.primitives["u64-=-scm"] = function(x, y) { scheme.primitives["u64-=-scm"] = function(x, y) {
// i.e. br-if-u64-=-scm // i.e. br-if-u64-=-scm
return coerce_bool(x === y); return coerce_bool(x === y);
@ -112,6 +116,10 @@ scheme.primitives["scm->u64"] = function(x) {
return x; return x;
}; };
scheme.primitives["u64->scm"] = function(x) {
return x;
};
// Boxes // Boxes
scheme.Box = function (x) { scheme.Box = function (x) {
this.x = x; this.x = x;