Commit 3ea14d5b authored by John van Groningen's avatar John van Groningen

remove unused field dim_function_index from DclInstanceMemberTypeAndFunction

parent 6ab1fed8
......@@ -2601,7 +2601,7 @@ check_module1 cdefs icl_global_function_range fun_defs optional_dcl_mod optional
where
convert_dcl_class_instances :: ![ScannedInstanceAndMembers] -> [ClassInstance]
convert_dcl_class_instances [{sim_pi,sim_member_types} : pins]
# member_types_and_functions = [{dim_type=fun_type,dim_function_index = -1} \\ fun_type<-sim_member_types]
# member_types_and_functions = [{dim_type=fun_type} \\ fun_type<-sim_member_types]
= [ParsedInstanceToClassInstance sim_pi member_types_and_functions {} : convert_dcl_class_instances pins]
convert_dcl_class_instances []
= []
......
......@@ -269,7 +269,7 @@ where
= member_types_equal [] icl_instance_members (icl_member_n+1) icl_functions comp_st
= member_types_equal [] icl_instance_members (icl_member_n+1) icl_functions comp_st
= (icl_functions,comp_st)
member_types_equal [{dim_type=instance_member_type,dim_function_index}:instance_member_types] icl_instance_members icl_member_n icl_functions comp_st
member_types_equal [{dim_type=instance_member_type}:instance_member_types] icl_instance_members icl_member_n icl_functions comp_st
= member_type_and_types_equal instance_member_type instance_member_types icl_instance_members icl_member_n icl_functions comp_st
where
member_type_and_types_equal instance_member_type=:{ft_ident,ft_type,ft_pos} instance_member_types icl_instance_members icl_member_n icl_functions comp_st
......
......@@ -322,8 +322,7 @@ cNameLocationDependent :== True
}
:: DclInstanceMemberTypeAndFunction = {
dim_type :: !FunType,
dim_function_index :: !MacroIndex // optional, -1 if no function
dim_type :: !FunType
}
:: IdentOrQualifiedIdent
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment