src/Tools/code/code_target.ML
changeset 30024 5e9d471afef3
parent 28926 530b83967c82
child 30161 c26e515f1c29
equal deleted inserted replaced
30023:55954f726043 30024:5e9d471afef3
   416     val names_all = Graph.all_succs program2 names2;
   416     val names_all = Graph.all_succs program2 names2;
   417     val includes = abs_includes names_all;
   417     val includes = abs_includes names_all;
   418     val program4 = Graph.subgraph (member (op =) names_all) program3;
   418     val program4 = Graph.subgraph (member (op =) names_all) program3;
   419     val empty_funs = filter_out (member (op =) abortable)
   419     val empty_funs = filter_out (member (op =) abortable)
   420       (Code_Thingol.empty_funs program3);
   420       (Code_Thingol.empty_funs program3);
   421     val _ = if null empty_funs then () else error ("No defining equations for "
   421     val _ = if null empty_funs then () else error ("No code equations for "
   422       ^ commas (map (Sign.extern_const thy) empty_funs));
   422       ^ commas (map (Sign.extern_const thy) empty_funs));
   423   in
   423   in
   424     serializer module args (labelled_name thy program2) reserved includes
   424     serializer module args (labelled_name thy program2) reserved includes
   425       (Symtab.lookup module_alias) (Symtab.lookup class')
   425       (Symtab.lookup module_alias) (Symtab.lookup class')
   426       (Symtab.lookup tyco') (Symtab.lookup const')
   426       (Symtab.lookup tyco') (Symtab.lookup const')