anchor.diff:  -include("diameter_gen_nas_application_rfc7155.hrl").
   
   -record(statedata,
  -		{server_address :: inet:ip_address(),
  +		{sup :: pid(),
  +		server_address :: inet:ip_address(),
   		server_port :: pos_integer(),
   		client_address :: undefined | inet:ip_address(),
   		client_port :: undefined | pos_integer(),
   		radius_fsm :: undefined | pid(),
  +		auc_fsm :: undefined | pid(),
   		session_id:: string() | {NAS :: inet:ip_address() | string(),
   				Port :: string(), Peer :: string()},
   		start :: undefined | #diameter_eap_app_DER{} | #radius{},
   		secret :: undefined | binary(),
  +		eap_id = 0 :: byte(),
   		server_id  ::  binary(),
   		auth_app_id :: undefined | integer(),
   		auth_req_type :: undefined | integer(),
  
positive.code: 
  -spec handle_sync_event(Event, From, StateName, StateData) -> Result
  	when
  		Event :: term(), 
  		From :: {Pid :: pid(), Tag :: term()},
  		StateName :: atom(), 
  		StateData :: statedata(),
  		Result :: {reply, Reply, NextStateName, NewStateData}
  		| {reply, Reply, NextStateName, NewStateData, Timeout}
  
negative.code: %%  The ocs_eap_aka_fsm gen_fsm call backs
  %%----------------------------------------------------------------------
  
  init([Sup, radius, ServerAddress, ServerPort, ClientAddress, ClientPort,
  		RadiusFsm, Secret, PasswordReq, SessionID,
  		#radius{attributes = Attributes} = AccessRequest] = _Args) ->
  	{ok, Hostname} = inet:gethostname(),
  	ServiceType = case radius_attributes:find(?ServiceType, Attributes) of
  		{error, not_found} ->
  			undefined;
  		{_, ST} ->
  			ST
  	end,
  	StateData = #statedata{sup = Sup,
  			server_address = ServerAddress,
  			server_port = ServerPort, client_address = ClientAddress,
  			client_port = ClientPort, radius_fsm = RadiusFsm,
  			secret = Secret, session_id = SessionID,
  			server_id = list_to_binary(Hostname), start = AccessRequest,
  			password_required = PasswordReq,
  			service_type = ServiceType},
  	process_flag(trap_exit, true),
  	{ok, eap_start, StateData, 0};
  init([Sup, diameter, ServerAddress, ServerPort, ClientAddress, ClientPort,
  		PasswordReq, SessionId, ApplicationId, AuthReqType, OHost, ORealm,
  		_DHost, _DRealm, Request, _Options] = _Args) ->
  	{ok, Hostname} = inet:gethostname(),
  	case global:whereis_name({ocs_diameter_auth, ServerAddress, ServerPort}) of
  