You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Original bug ID: 4346 Reporter: jm Assigned to:@diml Status: closed (set by @diml on 2013-12-24T08:48:53Z) Resolution: reopened Priority: low Severity: minor Version: 3.10+dev Target version: 4.01.1+dev Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues Related to:#4545#4713 Monitored by:@Chris00
Bug description
$ cat tst.ml
(** comment of t )
type t =
{
mutable a : int; (* a )
mutable b : int; (* b )
mutable c : int; (* c )
mutable d : int; (* d )
mutable e : int; (* e )
}
(* after )
$ camlp4o tst.ml
(* comment of t )
type t =
{ (* a ) (* b ) (* c ) mutable a : int; mutable b : int;
mutable c : int; mutable d : int; (* d *) mutable e : int
}
cat tst_bis.ml
(** comment of t )
type t =
{
mutable a : int; (* a )
mutable b : int; (* b )
mutable c : int; (* c )
mutable d : int; (* d )
mutable e : int; (* e )
}
(* after )
()
$ camlp4o tst_bis.ml
(* comment of t )
type t =
{ (* a ) (* b ) (* c ) mutable a : int; mutable b : int;
mutable c : int; mutable d : int; (* d ) mutable e : int
}
(* e )
(* after *)
let _ = ()
Additional information
This becomes extremely annoying when the output is intended to be used by ocamldoc.
The text was updated successfully, but these errors were encountered:
Original bug ID: 4346
Reporter: jm
Assigned to: @diml
Status: closed (set by @diml on 2013-12-24T08:48:53Z)
Resolution: reopened
Priority: low
Severity: minor
Version: 3.10+dev
Target version: 4.01.1+dev
Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues
Related to: #4545 #4713
Monitored by: @Chris00
Bug description
$ cat tst.ml
(** comment of t )
type t =
{
mutable a : int; (* a )
mutable b : int; (* b )
mutable c : int; (* c )
mutable d : int; (* d )
mutable e : int; (* e )
}
(* after )
$ camlp4o tst.ml
(* comment of t )
type t =
{ (* a ) (* b ) (* c ) mutable a : int; mutable b : int;
mutable c : int; mutable d : int; (* d *) mutable e : int
}
cat tst_bis.ml
(** comment of t )
type t =
{
mutable a : int; (* a )
mutable b : int; (* b )
mutable c : int; (* c )
mutable d : int; (* d )
mutable e : int; (* e )
}
(* after )
()
$ camlp4o tst_bis.ml
(* comment of t )
type t =
{ (* a ) (* b ) (* c ) mutable a : int; mutable b : int;
mutable c : int; mutable d : int; (* d ) mutable e : int
}
(* e )
(* after *)
let _ = ()
Additional information
This becomes extremely annoying when the output is intended to be used by ocamldoc.
The text was updated successfully, but these errors were encountered: