Cleanup (use attributes to pass information).
Cleanup (use attributes to pass information).

git-svn-id: 852241410be1e5c8b34945bac6e6d2e100deb9dd@14509 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

gerdstolpmann/ocaml,gerdstolpmann/ocaml,eliberis/ocaml,yunxing/ocaml,yunxing/ocaml,msprotz/ocaml,eliberis/ocaml,msprotz/ocaml,yunxing/ocaml,yunxing/ocaml,eliberis/ocaml,msprotz/ocaml,yunxing/ocaml,gerdstolpmann/ocaml,gerdstolpmann/ocaml,msprotz/ocaml,msprotz/ocaml,eliberis/ocaml,eliberis/ocaml,gerdstolpmann/ocaml