equal
deleted
inserted
replaced
162 ((Symtab.join (merge_target true) (target1, target2), |
162 ((Symtab.join (merge_target true) (target1, target2), |
163 Library.merge (op =) (exc1, exc2)), Int.max (width1, width2)); |
163 Library.merge (op =) (exc1, exc2)), Int.max (width1, width2)); |
164 ); |
164 ); |
165 |
165 |
166 val abort_allowed = snd o fst o Targets.get; |
166 val abort_allowed = snd o fst o Targets.get; |
167 |
|
168 val the_default_width = snd o Targets.get; |
|
169 |
167 |
170 fun assert_target thy target = if Symtab.defined ((fst o fst) (Targets.get thy)) target |
168 fun assert_target thy target = if Symtab.defined ((fst o fst) (Targets.get thy)) target |
171 then target |
169 then target |
172 else error ("Unknown code target language: " ^ quote target); |
170 else error ("Unknown code target language: " ^ quote target); |
173 |
171 |