Stub out comparison operators for records

nickg · Dec 22, 2012 · 7e127ee · 7e127ee
1 parent 4bd3014
commit 7e127ee
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/src/sem.c b/src/sem.c
@@ -611,6 +611,12 @@ static void sem_declare_predefined_ops(tree_t decl)
       sem_declare_binary(ident_new("\">=\""), t, t, std_bool, "ageq");
       break;
 
+   case T_RECORD:
+      // Operators on records
+      sem_declare_binary(ident_new("\"=\""), t, t, std_bool, "req");
+      sem_declare_binary(ident_new("\"/=\""), t, t, std_bool, "rneq");
+      break;
+
    case T_PHYSICAL:
       // Multiplication
       sem_declare_binary(mult, t, std_int, t, "mul");

diff --git a/test/regress/record1.vhd b/test/regress/record1.vhd
@@ -27,6 +27,7 @@ begin
         assert (a.x = 1) and (a.y = 2);
         a := k;
         assert (a.x = k.x) and (a.y = k.y);
+        --assert a = k;
         wait;
     end process;