← Back to branch summary

~ubuntu-branches/ubuntu/trusty/ocamlbricks/trusty-proposed

« back to all changes in this revision

Viewing changes to EXTRA/threadExtra.ml

  • Committer: Package Import Robot
  • Author(s): Lucas Nussbaum
  • Date: 2013-05-28 16:38:50 UTC
  • mfrom: (3.1.3 sid)
  • Revision ID: package-import@ubuntu.com-20130528163850-njreq52k3sdi3szn
Tags: 0.90+bzr364.3-1
* New upstream snapshot. Should fix the build failures on
  non-native ocaml architectures.
* Add no-ocamlopt-arches.diff: work-around for partial upstream fix
  (see https://bugs.launchpad.net/ocamlbricks/+bug/1130098).

Show diffs side-by-side

added added

removed removed

Lines of Context:
EXTRA/threadExtra.ml
576
576
    ?fallback ?do_not_kill_process_if_exit ()
577
577
    =
578
578
    let t = match enrich with None -> make_defaults () | Some t -> t in
579
 
    let () = t.killable <- killable in
580
 
    let () = t.before_waiting <- before_waiting in
581
 
    let () = t.after_waiting  <- after_waiting  in
582
 
    let () = t.perform_when_suspended <- perform_when_suspended in
583
 
    let () = t.perform_when_resumed <- perform_when_resumed in
584
 
    let () = t.fallback <- fallback in
585
 
    let () = t.do_not_kill_process_if_exit <- do_not_kill_process_if_exit in
 
579
    Option.iter (fun x -> t.killable <- Some x) killable;
 
580
    Option.iter (fun x -> t.before_waiting <- Some x) before_waiting;
 
581
    Option.iter (fun x -> t.after_waiting <- Some x) after_waiting;
 
582
    Option.iter (fun x -> t.perform_when_suspended <- Some x) perform_when_suspended;
 
583
    Option.iter (fun x -> t.perform_when_resumed <- Some x) perform_when_resumed;
 
584
    Option.iter (fun x -> t.fallback <- Some x) fallback;
 
585
    Option.iter (fun x -> t.do_not_kill_process_if_exit <- Some x) do_not_kill_process_if_exit;
586
586
    t
587
587
 
588
588
  let apply_with_options ?options