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