SystemVerilog: class identifiers

Author: kroening

src/hw_cbmc_irep_ids.h

@@ -251,6 +251,7 @@ IREP_ID_ONE(verilog_empty_item)
 IREP_ID_ONE(verilog_import_item)
 IREP_ID_ONE(verilog_interface)
 IREP_ID_ONE(verilog_class)
+IREP_ID_ONE(verilog_class_type)
 IREP_ID_ONE(verilog_module)
 IREP_ID_ONE(verilog_package)
 IREP_ID_ONE(verilog_package_import)

src/verilog/parser.y

@@ -537,6 +537,7 @@ int yyverilogerror(const char *error)
 /* Others */
 %token TOK_ENDOFFILE
 %token TOK_NON_TYPE_IDENTIFIER
+%token TOK_CLASS_IDENTIFIER
 %token TOK_PACKAGE_IDENTIFIER
 %token TOK_TYPE_IDENTIFIER
 %token TOK_NUMBER           // number, any base
@@ -819,12 +820,13 @@ checker_port_direction_opt:
 	;
 
 class_declaration:
-	  TOK_CLASS class_identifier
+	  TOK_CLASS any_identifier
 	  ';'
 		{
 		  init($$, ID_verilog_class);
-		  stack_expr($$).set(ID_base_name, stack_expr($2).id());
-	          push_scope(stack_expr($2).id(), "::", verilog_scopet::CLASS);
+		  auto base_name = stack_expr($2).get(ID_base_name);
+		  stack_expr($$).set(ID_base_name, base_name);
+	          push_scope(base_name, "::", verilog_scopet::CLASS);
 	        }
 	  class_item_brace
 	  TOK_ENDCLASS
@@ -1550,7 +1552,7 @@ data_type:
 		{ stack_expr($1).id(ID_typedef_type);
                   add_as_subtype(stack_type($2), stack_type($1));
                   $$ = $2; }
-//	| class_type
+	| class_type
 	| TOK_EVENT
 	        { init($$, ID_verilog_event); }
 	/*
@@ -4380,7 +4382,14 @@ non_type_identifier: TOK_NON_TYPE_IDENTIFIER
 
 block_identifier: TOK_NON_TYPE_IDENTIFIER;
 
-class_identifier: TOK_NON_TYPE_IDENTIFIER;
+class_identifier: TOK_CLASS_IDENTIFIER
+		{
+		  init($$, ID_verilog_class_type);
+		  auto base_name = stack_expr($1).id();
+		  stack_expr($$).set(ID_base_name, base_name);
+		  stack_expr($$).set(ID_identifier, PARSER.scopes.current_scope().prefix+id2string(base_name));
+		}
+	;
 
 constraint_identifier: TOK_NON_TYPE_IDENTIFIER;
 

src/verilog/verilog_scope.cpp

@@ -62,7 +62,7 @@ unsigned verilog_scopest::identifier_token(irep_idt base_name) const
     case verilog_scopet::FILE:      return TOK_NON_TYPE_IDENTIFIER;
     case verilog_scopet::PACKAGE:   return TOK_PACKAGE_IDENTIFIER;
     case verilog_scopet::MODULE:    return TOK_NON_TYPE_IDENTIFIER;
-    case verilog_scopet::CLASS:     return TOK_NON_TYPE_IDENTIFIER;
+    case verilog_scopet::CLASS:     return TOK_CLASS_IDENTIFIER;
     case verilog_scopet::BLOCK:     return TOK_NON_TYPE_IDENTIFIER;
     case verilog_scopet::ENUM_NAME: return TOK_NON_TYPE_IDENTIFIER;
     case verilog_scopet::TASK:      return TOK_NON_TYPE_IDENTIFIER;