src/Tools/Code/code_target.ML
changeset 36121 86b952fc31da
parent 34248 6fb7dd3fd81a
child 36271 2ef9dbddfcb8
equal deleted inserted replaced
36120:dd6e69cdcc1e 36121:86b952fc31da
   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