Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #8507 from mshinwell/flambda_name_mangling 

Shorten symbol names of anonymous functions in Flambda mode
master
Nicolás Ojeda Bär 2019-03-18 12:31:01 +01:00 committed by GitHub
parent 4f03a1467d c843e2dd72
commit db1e59d727
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Changes
View File

@ -9,6 +9,10 @@ Working version
iOS and other Darwin targets. iOS and other Darwin targets.
(Mark Shinwell, review by Nicolas Ojeda Bar and Xavier Leroy) (Mark Shinwell, review by Nicolas Ojeda Bar and Xavier Leroy)
- GPR#8507: Shorten symbol names of anonymous functions in Flambda mode
(the directory portions are now hidden)
(Mark Shinwell, review by Nicolás Ojeda Bär)
### Compiler user-interface and warnings: ### Compiler user-interface and warnings:
* GPR#2276: Remove support for compiler plugins and hooks (also adds * GPR#2276: Remove support for compiler plugins and hooks (also adds

4
middle_end/internal_variable_names.ml
View File

@ -299,8 +299,8 @@ let anon_fn_with_loc (loc: Location.t) =
if startchar >= 0 then Format.fprintf ppf ",%i--%i" startchar endchar in if startchar >= 0 then Format.fprintf ppf ",%i--%i" startchar endchar in
if loc.Location.loc_ghost then "anon_fn" if loc.Location.loc_ghost then "anon_fn"
else else
Format.asprintf "anon_fn[%a:%i%t]" Format.asprintf "anon_fn[%s:%i%t]"
Location.print_filename file line pp_chars (Filename.basename file) line pp_chars
let of_primitive : Lambda.primitive -> string = function let of_primitive : Lambda.primitive -> string = function
| Pidentity -> pidentity | Pidentity -> pidentity