Commit 6236c73e authored by erwan's avatar erwan
Browse files

Upgrade: redbg/clean_terminate changed

parent c6dc9b43
Pipeline #70624 passed with stages
in 4 minutes and 56 seconds
(* Time-stamp: <modified the 01/07/2021 (at 15:12) by Erwan Jahier> *)
(* Time-stamp: <modified the 04/07/2021 (at 17:33) by Erwan Jahier> *)
(* Mimick the behavior of 'rdbg -lurette', but without the dependency
on ocaml *)
......@@ -136,21 +136,19 @@ let _ =
flush stdout
| Dynlink.Error msg -> (* deadcode *)
Printf.eprintf "\n*** error in lurette (Dynlink.loadfile %s).\n*** %s.\n"
Printf.eprintf "\n*** error in lurette (Dynlink.loadfile %s).\n*** %s.\n%!"
(List.fold_left (fun acc x -> acc^" "^x) "" args._others)
(Dynlink.error_message msg);
RdbgRun.clean_terminate();
flush stderr;
exit 2
RdbgRun.clean_terminate 2
| RdbgEvent.End(_i) ->
RdbgRun.clean_terminate()
RdbgRun.clean_terminate 0
| pb ->
Printf.fprintf args.ocr "\n%s\n%!" (Printexc.to_string pb);
RdbgRun.clean_terminate();
close_out args.ocr;
close_out args.ecr;
close_in args.icr;
Printf.printf "bye\n"; flush stdout; exit 2
Printf.printf "bye\n%!";
RdbgRun.clean_terminate 2
;;
let _ =
......
......@@ -23,7 +23,7 @@ test_new.rif:$(EXPDIR) rabbit.cmxs
-sut "ocaml rabbit.cmxs" \
-env "lutin rabbit.lut -main rabbit -seed 34 -L libm.so.6 -loc" && \
grep -v "lurette chronogram" test_new.rif0 | \
grep -v "lurette Version" | \
grep -v "Version" | \
grep -v "#seed" | \
grep -v "The execution lasted"| sed -e "s/^M//" > test_new.rif
......
......@@ -29,7 +29,7 @@ depends: [
"mlgmpidl"
"dune" {build & >= "2.0"}
"ocamlfind"
"rdbg" {> "1.184"}
"rdbg" {> "1.196.9"}
]
build: [
[make "build"]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment