Original bug ID: 1786
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Full_Name: Winfried Dreckmann
Version: OCaml 3.06
OS: Linux PowerPC
Submission from: t2o902p68.telia.com (212.181.191.68)

The function Gc.delete_alarm doesn't work:

    Objective Caml version 3.06

let a = Gc.create_alarm (fun () -> print_string "alarm\n");;

val a : Gc.alarm =

Gc.major ();;

alarm

• : unit = ()

Gc.delete_alarm a;;

• : unit = ()

Gc.major ();;

alarm

• : unit = ()

This is the source code for "create_alarm" in "gc.ml":

let create_alarm f =
let a = ref true in
let arec = { active = ref true; f = f } in
finalise call_alarm arec;
a
;;

Shouldn't this be "active = a" in the third line?

Regards,
Winfried Dreckmann