Changeset 442 for branches/thune/thread_safe/eval.c

Timestamp:

08/05/07 00:26:17 (16 months ago)

Author:

krobillard

Message:

Added ++/-- to replace word inc/dec.
Renamed UR_FLAG_EOL as UR_FLAG_SOL.
GL - Added 'sphere draw opcode and 'curve-value call.

Files:

• branches/thune/thread_safe/eval.c (modified) (6 diffs)

branches/thune/thread_safe/eval.c

@@ -1386 +1386 @@
             if( wrdN > -1 )
             {
-                flags = it->id.flags & UR_FLAG_EOL;
+                flags = it->id.flags & UR_FLAG_SOL;
 
                 ur_copyCell( it, values[ wrdN ] );
 
-                it->id.flags = (it->id.flags & ~UR_FLAG_EOL) | flags;
+                it->id.flags = (it->id.flags & ~UR_FLAG_SOL) | flags;
             }
         }
@@ -1404 +1404 @@
                 UCell* src;
                 int sel;
-#define ISEL_FLAGS   (UR_FLAG_EOL | UR_FLAG_SEL_ATOM)
+#define ISEL_FLAGS   (UR_FLAG_SOL | UR_FLAG_SEL_ATOM)
 
                 src = values + wrdN;
@@ -1473 +1473 @@
     while( it != end )
     {
-        if( ur_is(it, UT_WORD) )
+        if( ur_is(it, UT_WORD) || ur_is(it, UT_OPCODE) )
         {
             if( ur_atom(it) == UR_ATOM_DDASH )
@@ -1496 +1496 @@
     while( it != end )
     {
-        if( ur_is(it, UT_WORD) )
+        if( ur_is(it, UT_WORD) || ur_is(it, UT_OPCODE) )
         {
             if( ur_atom(it) == UR_ATOM_DDASH )
@@ -1615 +1615 @@
         {
             cell = blk->ptr.cells + tos->series.it;
-            cell->id.flags |= UR_FLAG_EOL;
+            cell->id.flags |= UR_FLAG_SOL;
         }
     }
@@ -1628 +1628 @@
             {
                 cell = blk->ptr.cells + tos->series.it;
-                cell->id.flags |= UR_FLAG_BLOCK_EOL;
+                cell->id.flags |= UR_FLAG_BLOCK_SOL;
             }
             UR_S_DROP;