Changeset 539 for trunk/thune/eval.c

Timestamp:

06/21/08 16:32:56 (5 months ago)

Author:

krobillard

Message:

Removed appen.
eq? and same? work on datatype!.

Files:

• trunk/thune/eval.c (modified) (3 diffs)

trunk/thune/eval.c

@@ -557 +557 @@
     switch( ur_type(a) )
     {
+        case UT_DATATYPE:
+            if( ur_is(b, UT_DATATYPE) )
+            {
+                if( (a->dt.mask0 == b->dt.mask0) &&
+                    (a->dt.mask1 == b->dt.mask1) )
+                    return 1;
+            }
+            break;
+
         case UT_NONE:
             if( ur_is(b, UT_NONE) )
@@ -772 +781 @@
     switch( ur_type(a) )
     {
+        case UT_DATATYPE:
+            if( (a->dt.mask0 == b->dt.mask0) &&
+                (a->dt.mask1 == b->dt.mask1) )
+                return 1;
+            break;
+
         case UT_NONE:
             return 1;
@@ -887 +902 @@
     ur_initType(tos, UT_DATATYPE);
     ur_datatype(tos) = t;
+    ur_setDatatypeMask(tos, t);
 }