anchor.diff:      lists:foldl(fun (#erl_link{type = T, pid = I} = EL,
                        Acc) when T == Type, I == Item ->
                           [EL|Acc];
  +                    ({erl_link, T, P, I},
  +                     Acc) when T == Type, P == Item ->
  +                        %% Old emulator without state (linked if record exists)...
  +                        [#erl_link{type = T, pid = P, id = I, state = linked}|Acc];
                       (_, Acc) ->
                           Acc
                   end,
  
positive.code:     [links, dist_links, monitor_nodes, process_monitors,
       dist_process_monitors, busy_dist_port_monitor,
       busy_dist_port_link, otp_5772_link, otp_5772_dist_link,
       otp_5772_monitor, otp_5772_dist_monitor, otp_7946].
  
  init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) ->
      case catch erts_debug:get_internal_state(available_internal_state) of
  
negative.code:             end
      end.
  
  busy_wait_until(Fun) ->
      case Fun() of
          true -> ok;
          _ ->
              busy_wait_until(Fun)
      end.
  
  forever(Fun) ->
      Fun(),
      forever(Fun).
  