camlspotter avatar camlspotter committed 078cc77

OCaml bug fix: CamlP4: location recovery for Pexp_ident was wrong

Comments (0)

Files changed (1)

camlp4/Camlp4/Struct/Camlp4Ast2OCamlAst.ml

           [ [(loc, ml, <:expr@sloc< $uid:s$ >>) :: l] ->
               let ca = constructors_arity () in
               (mkexp loc (Pexp_construct (mkli sloc (conv_con s) ml) None ca), l)
-          | [(loc, ml, <:expr@sloc< $lid:s$ >>) :: l] ->
-              (mkexp loc (Pexp_ident (mkli sloc s ml)), l)
+          | [(loc, ml, <:expr@_sloc< $lid:s$ >>) :: l] ->
+              (mkexp loc (Pexp_ident (mkli loc s ml)), l)
           | [(_, [], e) :: l] -> (expr e, l)
           | _ -> error loc "bad ast in expression" ]
         in
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.