The following program segfaults when I compile it with ocamlc version 3.01:

  type 'a declarator = {ml: string; t: 'a}
  
  type 'a cdecl =
      Declare of 'a declarator
    | Macro of 'a declarator
  
  type ctype = String | Char
  
  let caml_code decl =
    match decl with
      (Declare {ml=mname; t=ctype} | Macro {ml=mname; t=ctype}) ->
        match ctype with String -> mname
        | _ -> ""
  
  let _ = caml_code (Declare {ml="getenv"; t=String})
-------------------
To unsubscribe, mail caml-list-request@inria.fr.  Archives: http://caml.inria.fr