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

Bug description

Full_Name: Xavier Leroy
Version: 3.06
OS:
Submission from: estephe.inria.fr (128.93.11.95)
Submitted by: xleroy

(Problem reported by Francois Pessaux.)

$ cat papy.ml
class foo =
object (self)
method badbadbad : int = 5
end

$ ocamlcp -p a papy.ml
File "/tmp/camlpp479ee2", line 3, characters 2-3:
Syntax error

$ cat /tmp/camlpp479ee2
let _ocaml_prof_cnt_papy = Array.create 0000001 0;; Profiling.counters :=
("papy", ("a", _ocaml_prof_cnt_papy)) :: !Profiling.counters;;
class foo =
object (self)
(_ocaml_prof_cnt_papy.(0) <- Pervasives.succ _ocaml_prof_cnt_papy.(0);
met
hod badbadbad : int = 5)
end

The profiling code is inserted at the wrong place. Same bug in 3.04, except
that the code is inserted at another equally wrong place :-)