Changeset 510 for trunk/thune/internal.h

Timestamp:

02/10/08 23:53:46 (9 months ago)

Author:

krobillard

Message:

'loop is now an opcode and can act as loop.to for integers.
File port! read now handles optional limit.
console.out now handles binary!.
Can now 'make an int! from first 4 bytes of a binary!
Added ur_initDecimal macro.
Added 'fcalc.
Removed word inc/dec.

Files:

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

trunk/thune/internal.h

@@ -108 +108 @@
 typedef struct
 {
+    int16_t  code;
+    uint16_t flags;
+    int32_t  n;
+    int32_t  it;
+}
+CELoop;
+
+typedef struct
+{
     int16_t code;
     int16_t locals;
@@ -118 +127 @@
 typedef union
 {
-    char   bytes[16];
+    UCell  cell;
     CEId   id;
     CECell cp;
     CEEnd  end;
     CEEval eval;
+    CELoop loop;
     CECell iter;
     CECell reduce;
@@ -134 +144 @@
 #define CC_EVAL             2
 #define CC_EVAL_RUNNING     3
-#define CC_FOREVER          4
-#define CC_REDUCE           5
-#define CC_ITER             6
-#define CC_EACH             7
-#define CC_CATCH            8
-#define CC_TERM             9
-#define CC_END              10
+#define CC_REDUCE           4
+#define CC_FOREVER          5
+#define CC_LOOP             6
+#define CC_ITER             7
+#define CC_EACH             8
+#define CC_CATCH            9
+#define CC_TERM             10
+#define CC_END              11
 #define CC_COUNT            (CC_END+1)
 
@@ -147 +158 @@
 #define CC_LEN_EVAL         1
 #define CC_LEN_FOREVER      1
+#define CC_LEN_LOOP         2
 #define CC_LEN_REDUCE       1
 #define CC_LEN_ITER         2
@@ -210 +222 @@
 #define OP_VERIFY           31
 #define OP_FOREVER          32
-#define OP_REDUCE           33
-#define OP_DO_FUNC          34
+#define OP_LOOP             33
+#define OP_REDUCE           34
+#define OP_DO_FUNC          35
 //#define OP_END              255