Changeset 11643 for lang/c

Timestamp:

05/15/08 22:50:42 (6 months ago)

Author:

mokehehe

Message:

implement "assign"

Files:

• lang/c/misc/mlisp/core/v_vm.cpp (modified) (3 diffs)

lang/c/misc/mlisp/core/v_vm.cpp

@@ -177 +177 @@
 
 //=============================================================================
+// �{�b�N�X
+
+static SExp box(SExp v) {
+        return cons(BOX, v);
+}
+
+static void set_box(SExp b, SExp v) {
+        rplacd(b, v);
+}
+
+static SExp unbox(SExp b) {
+        return cdr(b);
+}
+
+
+//=============================================================================
 
 static int vm_return(SExp* px, sint* pf, SExp* pc, int s) {
@@ -230 +246 @@
                         SExp xx = cadddr(x);
                         a = closure(body, n, s);        x = xx; s -= n;
+                } else if (op == BOX) {
+                        sint n = s2int(cadr(x));
+                        SExp xx = caddr(x);
+                        index_set(s, n + 1, box(index(s, n + 1)));
+                        x = xx;
+                } else if (op == ASSIGN_LOCAL) {
+                        sint n = s2int(cadr(x));
+                        SExp xx = caddr(x);
+                        set_box(index(f, n + 1), a);
+                        x = xx;
+                } else if (op == ASSIGN_FREE) {
+                        sint n = s2int(cadr(x));
+                        SExp xx = caddr(x);
+                        set_box(index_closure(c, n), a);
+                        x = xx;
                 } else if (op == APPLY) {
                         SExp argnum = cadr(x);
@@ -277 +308 @@
                         SExp xx = caddr(x);
                         a = refer_global(var);  x = xx;
+                } else if (op == ASSIGN_GLOBAL) {
+                        SExp var = cadr(x);
+                        SExp xx = caddr(x);
+                        define_global(var, a);
+                        a = var;        x = xx;
                 } else {
                         runtime_error("illegal opecode");