genCheckFields (CStruct name  sums) = concat $ offsets ++ [genCheckFieldsUnion' (length sums) name]
    where offsets = zipWith (\ix ft -> genCheckFields' (name ++ s_ix ix) ft) [1..] sums
genCheckFields (CStruct name  sums) = concat $ offsets ++ [genCheckFieldsUnion' (length sums) name]
    where offsets = zipWith (\ix ft -> genCheckFields' (name ++ s_ix ix) ft) [1..] sums
genCheckFields (CStruct name  sums) = concat $ offsets ++ [genCheckFieldsUnion' (length sums) name]
    where offsets = zipWith (\ix ft -> genCheckFields' (name ++ s_ix ix) ft) [1..] sums