[Guile-commits] 47/99: Add some primitives to runtime.js

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit 936050c657729b21b8d42045a8e5287d2194e25d
Author: Ian Price <ianpric...@googlemail.com>
AuthorDate: Fri Jun 16 18:11:02 2017 +0100

    Add some primitives to runtime.js
    
    * module/language/js-il/runtime.js(add/immediate, sub/immediate,
      load-u64, u64-=-scm, handle-interrupts): Add primitives.
---
 module/language/js-il/runtime.js | 44 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 43 insertions(+), 1 deletion(-)

diff --git a/module/language/js-il/runtime.js b/module/language/js-il/runtime.js
index 4a4c542..6ef6ff1 100644
--- a/module/language/js-il/runtime.js
+++ b/module/language/js-il/runtime.js
@@ -33,6 +33,10 @@ scheme.primitives.add1 = function (x) {
     return x + 1;
 };
 
+scheme.primitives["add/immediate"] = function (x, y) {
+    return x + y;
+};
+
 scheme.primitives.sub = function (x, y) {
     return x - y;
 };
@@ -41,6 +45,10 @@ scheme.primitives.sub1 = function (x) {
     return x - 1;
 };
 
+scheme.primitives["sub/immediate"] = function (x, y) {
+    return x - y;
+};
+
 scheme.primitives.mul = function (x, y) {
     return x * y;
 };
@@ -73,6 +81,32 @@ scheme.primitives.quo = not_implemented_yet;
 scheme.primitives.rem = not_implemented_yet;
 scheme.primitives.mod = not_implemented_yet;
 
+// Unboxed Numbers
+scheme.primitives["load-u64"] = function(x) {
+    return x;
+};
+
+scheme.primitives["u64-=-scm"] = function(x, y) {
+    // i.e. br-if-u64-=-scm
+    return coerce_bool(x === y);
+};
+
+scheme.primitives["u64-<=-scm"] = function(x, y) {
+    return coerce_bool(x <= y);
+};
+
+scheme.primitives["u64-<-scm"] = function(x, y) {
+    return coerce_bool(x < y);
+};
+
+scheme.primitives["u64->-scm"] = function(x, y) {
+    return coerce_bool(x > y);
+};
+
+scheme.primitives["u64->=-scm"] = function(x, y) {
+    return coerce_bool(x >= y);
+};
+
 // Boxes
 scheme.Box = function (x) {
     this.x = x;
@@ -259,7 +293,9 @@ scheme.primitives["builtin-ref"] = function (idx) {
 
 // Modules
 scheme.primitives["define!"] = function(sym, obj) {
-    scheme.env[sym.name] = new scheme.Box(obj);
+    var b = new scheme.Box(obj);
+    scheme.env[sym.name] = b;
+    return b;
 };
 
 scheme.primitives["cache-current-module!"] = function (module, scope) {
@@ -430,6 +466,12 @@ var find_prompt = function(prompt) {
     // FIXME: should error
     return undefined;
 };
+
+scheme.primitives["handle-interrupts"] = function () {
+    // TODO: implement
+    return;
+};
+
 // Dynstack frames
 scheme.frame = {};