Changeset 426 for branches/thune/thread_safe/make.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/make.c (modified) (4 diffs)

branches/thune/thread_safe/make.c

@@ -111 +111 @@
   Size is the number of cells to reserve.  Used is set to 0.
 */
-UIndex ur_makeBlockT( UThread* ut, int size )
+UIndex ur_makeBlockT( UThread* ut, int size, UBlock** blkPtr )
 {
     UBlock* ptr;
@@ -144 +144 @@
 
     ur_arrayInit( ptr, sizeof(UCell), size );
+    if( blkPtr )
+        *blkPtr = ptr;
     return ur_blockN( ptr );
 }
@@ -1342 +1344 @@
 
 /*--------------------------------------------------------------------------*/
+
+
+#ifdef UR_CONFG_DATAFLOW
+extern void ur_cloneComponent( UThread*, UCell* result, UCell* proto );
+#endif
 
 
@@ -1869 +1876 @@
 #endif
 
+#ifdef UR_CONFG_DATAFLOW
+        case UT_COMPONENT:
+            if( ! ur_is(tos, UT_COMPONENT) )
+                goto error;
+            ur_cloneComponent( ut, res, tos );
+            break;
+#endif
         default:
             if( ur_datatype(res) < UT_BI_COUNT )