src/Tools/Code/code_target.ML
changeset 37814 120c6e2d7474
parent 37748 0af0d45257be
child 37819 000049335247
equal deleted inserted replaced
37813:7c33f5c5c59c 37814:120c6e2d7474
   362           Code_Thingol.consts_program thy false (read_const_exprs thy ["*"]);
   362           Code_Thingol.consts_program thy false (read_const_exprs thy ["*"]);
   363         val destination = make_destination p;
   363         val destination = make_destination p;
   364         val _ = file destination (serialize thy target (SOME 80)
   364         val _ = file destination (serialize thy target (SOME 80)
   365           (SOME module_name) [] naming program cs);
   365           (SOME module_name) [] naming program cs);
   366         val cmd = make_command env_param destination module_name;
   366         val cmd = make_command env_param destination module_name;
   367       in if bash ("cd " ^ File.shell_path p ^ " && " ^ cmd) <> 0
   367       in if bash ("cd " ^ File.shell_path p ^ " && " ^ cmd ^ " 2>&1") <> 0
   368         then error ("Code check failed for " ^ target ^ ": " ^ cmd)
   368         then error ("Code check failed for " ^ target ^ ": " ^ cmd)
   369         else ()
   369         else ()
   370       end;
   370       end;
   371   in if env_param = ""
   371   in if env_param = ""
   372     then warning (env_var ^ " not set; skipped code check for " ^ target)
   372     then warning (env_var ^ " not set; skipped code check for " ^ target)