Changeset 400

Timestamp:

05/28/07 05:18:08 (1 year ago)

Author:

krobillard

Message:

Thune - Can now pass vector! type to 'make.

Files:

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

branches/thune/thread_safe/make.c

@@ -1342 +1342 @@
-  (select! word sel -- value)
-  (context block -- value)
+  (vector! count type -- value)
-*/
-UR_CALL_PUB( uc_make )
@@ -1727 +1728 @@
-        case UT_VECTOR:
-        {
+#ifdef LANG_THUNE
+            if( argc == 2 )
+            {
+                if( !  ur_makeVectorCell( ut, ur_s_prev(tos), res ) )
+                    goto error;
+                if( ur_is(tos, UT_WORD) && (ur_atom(tos) == UT_DECIMAL) )
+                    ur_vectorDT(res) = UT_DECIMAL;
+            }
+            else
+#endif
+            {
-            // Make array before setting res in case GC is called.
-            if( !  ur_makeVectorCell( ut, tos, res ) )
-                goto error;
+            }
-        }
-            break;

trunk/thune/make.c

@@ -1300 +1300 @@
-  (select! word sel -- value)
-  (context block -- value)
+  (vector! count type -- value)
-*/
-UR_CALL_PUB( uc_make )
@@ -1687 +1688 @@
-        case UT_VECTOR:
-        {
+#ifdef LANG_THUNE
+            if( argc == 2 )
+            {
+                if( !  ur_makeVectorCell( ur_s_prev(tos), res ) )
+                    goto error;
+                if( ur_is(tos, UT_WORD) && (ur_atom(tos) == UT_DECIMAL) )
+                    ur_vectorDT(res) = UT_DECIMAL;
+            }
+            else
+#endif
+            {
-            // Make array before setting res in case GC is called.
-            if( !  ur_makeVectorCell( tos, res ) )
-                goto error;
+            }
-        }
-            break;