equal
deleted
inserted
replaced
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) |