Add otpbp_erl_anno

- add set_end_location/2

rebar.config.script

@@ -151,6 +151,7 @@ Funs = [{application, get_supervisor, 1},
         {eldap, paged_result_control, 1},
         {eldap, paged_result_control, 2},
         {eldap, paged_result_cookie, 1},
+        {erl_anno, set_end_location, 2},
         {erl_epmd, listen_port_please, 2},
         {erl_epmd, port_please, 2},
         {erl_epmd, port_please, 3},

src/otpbp_erl_anno.erl

@@ -0,0 +1,21 @@
+-module(otpbp_erl_anno).
+
+-ifndef(HAVE_erl_anno__set_end_location_2).
+% OTP 27.2
+-export([set_end_location/2]).
+-endif.
+
+-ifndef(HAVE_erl_anno__set_end_location_2).
+set_end_location(Location, {L, C} = Anno) when is_integer(L), L >= 0, is_integer(C), C >= 1 ->
+    set_end_location1(Location, [{location, Anno}]);
+set_end_location(Location, Anno) when is_integer(Anno), Anno >= 0 -> set_end_location1(Location, [{location, Anno}]);
+set_end_location(Location, [_|_] = Anno) -> set_end_location1(Location, Anno);
+set_end_location(Location, Anno) -> error(badarg, [Location, Anno]).
+
+set_end_location1({L, C} = Location, Anno) when is_integer(L), L >= 0, is_integer(C), C >= 1 ->
+    set_end_location2(Location, Anno);
+set_end_location1(Location, Anno) when is_integer(Location), Location >= 0 -> set_end_location2(Location, Anno);
+set_end_location1(Location, Anno) -> error(badarg, [Location, Anno]).
+
+set_end_location2(Location, Anno) -> lists:keystore(end_location, 1, Anno, {end_location, Location}).
+-endif.

src/otpbp_pt.erl

@@ -91,6 +91,7 @@
          {{eldap, paged_result_cookie, 1}, otpbp_eldap},
          {{edlin, keymap, 0}, otpbp_edlin},
          {{epp, scan_file, [1, 2]}, otpbp_epp},
+         {{erl_anno, set_end_location, 2}, otpbp_erl_anno},
          {{erl_epmd, listen_port_please, 2}, otpbp_erl_epmd},
          {{erl_epmd, port_please, [2, 3]}, otpbp_erl_epmd},
          {{erl_error, format_fun, [1, 2]}, lib},