aboutsummaryrefslogblamecommitdiffstats
path: root/lib/dialyzer/test/race_SUITE_data/src/whereis_rec_function6.erl
blob: 4ec4baf0be3e571cb2c677e0dee77502d5d2089e (plain) (tree)























                                                                      
%% This tests the presence of possible races due to a register/whereis
%% combination in an indirectly recursive function.

-module(whereis_rec_function6).
-export([start/4]).

start(AnAtom, NextAtom, Fun, Id) ->
  case AnAtom of
    undefined -> register(start, Id);
    _ -> register(AnAtom, Id)
  end,
  case whereis(NextAtom) of
    undefined ->
      Pid = spawn(Fun),
      case Pid =:= self() of
        true -> ok;
        false -> continue(NextAtom, mod:next(), Pid, Id)
      end;
    P when is_pid(P) ->
      ok
  end.

continue(Atom, NextAtom, Fun, Id) ->
  start(Atom, NextAtom, Fun, Id).