move types Group and Component to module checksupport

frontend/checksupport.dcl

@@ -29,6 +29,15 @@ cNeedStdStrictLists		:== 16
 
 ::	CheckStateX = {x_needed_modules :: !BITVECT,x_main_dcl_module_n :: !Int, x_check_dynamic_types :: !Bool }
 
+::	Group = { group_members :: ![Int] }
+
+::	Component = { component_members :: !ComponentMembers }
+
+::	ComponentMembers
+	= ComponentMember !Int !ComponentMembers
+	| GeneratedComponentMember !Int !FunctionInfoPtr !ComponentMembers
+	| NoComponentMembers
+
 instance == STE_Kind
 
 cTypeDefs				:== 0

frontend/convertcases.icl

-/*
-	module owner: Ronny Wichers Schreur
-*/
 implementation module convertcases
 
-import syntax, transform, compare_types, utilities, typesupport, general
-from partition import ::Component(..),::ComponentMembers(..)
+import syntax, compare_types, utilities, typesupport, general
+from checksupport import ::Component(..),::ComponentMembers(..)
 from trans import convertSymbolType
 
 // exactZip fails when its arguments are of unequal length

frontend/partition.dcl

@@ -2,13 +2,6 @@ definition module partition
 
 import syntax, transform
 
-::	Component = { component_members	:: !ComponentMembers }
-
-:: ComponentMembers
-	= ComponentMember !Int !ComponentMembers
-	| GeneratedComponentMember !Int !FunctionInfoPtr !ComponentMembers
-	| NoComponentMembers
-
 partitionateFunctions :: !*{# FunDef} ![IndexRange] -> (!*{!Component}, !*{# FunDef})
 
 partitionateFunctions`

frontend/transform.dcl

@@ -2,10 +2,6 @@ definition module transform
 
 import syntax, checksupport
 
-::	Group =
-	{	group_members	:: ![Int]
-	}
-
 :: PredefSymbolsForTransform = { predef_alias_dummy :: !PredefinedSymbol, predef_and :: !PredefinedSymbol, predef_or :: !PredefinedSymbol };
 
 partitionateDclMacros :: !IndexRange !Index !PredefSymbolsForTransform !*{#*{#FunDef}} !*VarHeap !*ExpressionHeap !*SymbolTable !*ErrorAdmin

frontend/transform.icl

@@ -860,10 +860,6 @@ where
 		  new_var = { fv_ident = fv_ident, fv_def_level = NotALevel, fv_info_ptr = new_info, fv_count = 0 }
 		= ([{ lb_src = expr, lb_dst = new_var, lb_position = NoPos} : binds], writePtr fv_info_ptr (VI_Variable fv_ident new_info) var_heap)
 
-::	Group =
-	{	group_members	:: ![Int]
-	}
-
 ::	PartitioningInfo = 
 	{	pi_symbol_table	:: !.SymbolTable
 	,	pi_var_heap		:: !.VarHeap