Changeset 426 for branches/thune/thread_safe/thune.c

Timestamp:

07/05/07 04:03:51 (17 months ago)

Author:

krobillard

Message:

Added component! & lit-select! datatypes.
ur_makeBlockT() now has a ptr return argument.

Files:

• branches/thune/thread_safe/thune.c (modified) (2 diffs)

branches/thune/thread_safe/thune.c

@@ -379 +379 @@
             UR_S_PUSH( *val );
             ur_type( UR_TOS ) = UT_WORD;
+            break;
+            
+        case UT_LITSELECT:
+            if( UR_TOS >= ut->eos )
+                goto stack_overflow;
+            UR_S_PUSH( *val );
+            ur_type( UR_TOS ) = UT_SELECT;
             break;
             
@@ -822 +829 @@
 
         case UT_SETWORD:
-            val = ur_wordCell( ut, val );
-            if( ! val )
+            if( ! ur_setWord( ut, val, UR_TOS ) )
                 goto throw_cc;
-            ur_copyCell(val, *UR_TOS);
             UR_S_DROP;
             break;