Changeset 323 for trunk/thune/make.c

Timestamp:

12/26/06 22:10:34 (2 years ago)

Author:

krobillard

Message:

Rune is now stand-alone.

Files:

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

trunk/thune/make.c

@@ -1250 +1250 @@
     {
         case UT_OPCODE:
+#ifdef LANG_RUNE
+            if( ur_is(tos, UT_BLOCK) )
+            {
+                UBlock* blk;
+                UCell* it;
+                UCell* end;
+
+                ur_initType( res, UT_OPCODE );
+                ur_atom(res)   = 0;
+                ur_opcode(res) = 0;
+                ur_sel(res)    = 0;
+
+                blk = ur_block(tos);
+                UR_ITER_BLOCK( it, end, blk, tos );
+                while( it != end )
+                {
+                    if( ur_isAWord(it) )
+                        ur_atom(res) = ur_atom(it);
+                    else if( ur_is(it, UT_INT) )
+                        ur_opcode(res) = ur_int(it);
+                    ++it;
+                }
+            }
+#else
             if( (ur_isAWord(tos) || ur_is(tos, UT_OPCODE))
                 && ur_is(ur_s_prev(tos), UT_INT) )
@@ -1258 +1282 @@
                 ur_sel(res)    = 0;
             }
+#endif
             break;