Changeset 493

Timestamp:

10/23/07 17:55:22 (10 months ago)

Author:

krobillard

Message:

Added stack.level

Files:

• trunk/thune/eval.c (modified) (2 diffs)

trunk/thune/eval.c

@@ -933 +933 @@
-    _probe( ut, tos );
-    UR_S_SAFE_DROP;
+}
+
+
+UR_CALL( uc_stack_level )
+{
+    UR_S_GROW;
+    ur_initType(UR_TOS, UT_INT);
+    ur_int(UR_TOS) = UR_TOS - UR_BOS;
-}
-#endif
@@ -1759 +1767 @@
-#endif
-    { uc_showTOS,      "." },
+    { uc_stack_level,  "stack.level" },
-    { uc_lift_local,   "lift-local" },
-    //{ uc_enclose,      "enclose" },