Changeset 292 for trunk/thune/eval.c

Timestamp:

10/04/06 20:41:29 (2 years ago)

Author:

krobillard

Message:

Thune - int! to works on decimal!

Files:

• trunk/thune/eval.c (modified) (1 diff)

trunk/thune/eval.c

@@ -2002 +2002 @@
         case UT_INT:
             if( ur_is(val, UT_CHAR) || ur_is(val, UT_LOGIC) )
+            {
                 ur_type(val) = UT_INT;
+            }
+            else if( ur_is(val, UT_DECIMAL) )
+            {
+                ur_initType(val, UT_INT);
+                ur_int(val) = (int32_t) ur_decimal(val);
+            }
             break;