Fix __FUNCTION__ (#15)

Author: lpw25

lambda/translprim.ml

@@ -753,15 +753,15 @@ let transl_primitive loc p env ty ~poly_mode path =
   in
   let params = make_params p.prim_arity in
   let args = List.map (fun (id, _) -> Lvar id) params in
-  let loc =
-    Debuginfo.Scoped_location.map_scopes (fun ~scopes ->
-        Debuginfo.Scoped_location.enter_partial_or_eta_wrapper ~scopes)
-      loc
-  in
-  let body = lambda_of_prim p.prim_name prim loc args None in
   match params with
-  | [] -> body
+  | [] -> lambda_of_prim p.prim_name prim loc args None
   | _ ->
+     let loc =
+       Debuginfo.Scoped_location.map_scopes (fun ~scopes ->
+         Debuginfo.Scoped_location.enter_partial_or_eta_wrapper ~scopes)
+         loc
+     in
+     let body = lambda_of_prim p.prim_name prim loc args None in
      let to_alloc_mode m = to_alloc_mode ~poly:poly_mode m in
      let arg_modes = List.map to_alloc_mode p.prim_native_repr_args in
      let region =

testsuite/tests/translprim/locs.reference

@@ -9,34 +9,34 @@ an expression
 another expression
 locs.ml, 40, 14, 49
 yet another expression
-Locs.local_no_arg.(partial)
-Locs.fn_multi.(partial)
-Locs.fn_function.(partial)
-Locs.fn_poly.(partial)
-Locs.Mod1.Nested.apply.(partial)
-Locs.anon.(partial)
-Locs.anon.(partial)
-Locs.anon.(fun).(partial)
-Locs.double_anon.(partial)
-Locs.double_anon.(fun).(partial)
-Locs.double_anon.(fun).(partial)
-Locs.local.(partial)
-Locs.local.inner.(partial)
-Locs.double_local.(partial)
-Locs.double_local.inner1.(partial)
-Locs.double_local.inner1.inner2.(partial)
-Locs.local_no_arg.(fun).(partial)
-Locs.local_no_arg.inner.(partial)
-Locs.curried.(partial)
-Locs.curried.inner.(partial)
-Locs.local_module.(partial)
-Locs.local_module.N.r.(partial)
-Locs.local_module.N.foo.(partial)
-Locs.Functor.fn.(partial)
-Locs.Rec1.fn.(partial)
-Locs.Rec2.fn.(partial)
-Locs.(+@+).(partial)
-Locs.klass#meth.(partial)
-Locs.inline_object.object#meth.(partial)
-Locs.inline_object.object#othermeth.(partial)
-Locs.bang.(partial)
+Locs.local_no_arg
+Locs.fn_multi
+Locs.fn_function
+Locs.fn_poly
+Locs.Mod1.Nested.apply
+Locs.anon
+Locs.anon
+Locs.anon.(fun)
+Locs.double_anon
+Locs.double_anon.(fun)
+Locs.double_anon.(fun)
+Locs.local
+Locs.local.inner
+Locs.double_local
+Locs.double_local.inner1
+Locs.double_local.inner1.inner2
+Locs.local_no_arg.(fun)
+Locs.local_no_arg.inner
+Locs.curried
+Locs.curried.inner
+Locs.local_module
+Locs.local_module.N.r
+Locs.local_module.N.foo
+Locs.Functor.fn
+Locs.Rec1.fn
+Locs.Rec2.fn
+Locs.(+@+)
+Locs.klass#meth
+Locs.inline_object.object#meth
+Locs.inline_object.object#othermeth
+Locs.bang