Changeset 178 for trunk/thune/internal.h

Timestamp:

06/10/06 00:38:50 (3 years ago)

Author:

krobillard

Message:

Thune -

Reduce now evaluates blocks.
Added 'to-text and 'console.out. Print & prin are now functions.
Fixed un-initialized word.valBlks.

Files:

• trunk/thune/internal.h (modified) (5 diffs)

trunk/thune/internal.h

@@ -81 +81 @@
 CEFunc;
 
-typedef struct
-{
-    int16_t code;
-    int16_t _pad;
-    int32_t it;
-    int32_t max;
-}
-CELoop;
-
 /*
 typedef struct
@@ -106 +97 @@
     CEEnd  end;
     CEEval eval;
+    CECell reduce;
     CEFunc func;
-    CELoop loop;
     //CEHold hold;
 }
@@ -116 +107 @@
 #define CC_EVAL             1
 #define CC_EVAL_RUNNING     2
-#define CC_ITER             3
-#define CC_CATCH            4
-#define CC_END              5
+#define CC_REDUCE           3
+#define CC_ITER             4
+#define CC_CATCH            5
+#define CC_END              6
 #define CC_COUNT            (CC_END+1)
 
@@ -124 +116 @@
 //#define CC_LEN_FUNC         1  // + argc
 #define CC_LEN_EVAL         1
+#define CC_LEN_REDUCE       1
 #define CC_LEN_ITER         2
 #define CC_LEN_CATCH        3
@@ -181 +174 @@
 #define OP_DECREMENT        25
 #define OP_VERIFY           26
-#define OP_27               27
+#define OP_REDUCE           27
 #define OP_28               28
 #define OP_DO_FUNC          29