equal
deleted
inserted
replaced
272 (case (best_one_rep_for_type scope T1, best_one_rep_for_type scope T2) of |
272 (case (best_one_rep_for_type scope T1, best_one_rep_for_type scope T2) of |
273 (Unit, Unit) => Unit |
273 (Unit, Unit) => Unit |
274 | (R1, R2) => Struct [R1, R2]) |
274 | (R1, R2) => Struct [R1, R2]) |
275 | best_one_rep_for_type (scope as {card_assigns, datatypes, ofs, ...}) T = |
275 | best_one_rep_for_type (scope as {card_assigns, datatypes, ofs, ...}) T = |
276 (case card_of_type card_assigns T of |
276 (case card_of_type card_assigns T of |
277 1 => if is_some (datatype_spec datatypes T) |
277 1 => if is_some (datatype_spec datatypes T) orelse |
278 orelse is_fp_iterator_type T then |
278 is_fp_iterator_type T then |
279 Atom (1, offset_of_type ofs T) |
279 Atom (1, offset_of_type ofs T) |
280 else |
280 else |
281 Unit |
281 Unit |
282 | k => Atom (k, offset_of_type ofs T)) |
282 | k => Atom (k, offset_of_type ofs T)) |
283 |
283 |