diff options
| author | Niclas Eklund <[email protected]> | 2011-02-10 16:18:50 +0100 |
|---|---|---|
| committer | Niclas Eklund <[email protected]> | 2011-02-10 16:18:50 +0100 |
| commit | 59bb06a90248defb4c0be98f10afae88c2251fe7 (patch) | |
| tree | 5cc2b0b25becec926f9d3981579b8038b95cbcec /lib/cosNotification/src/CosNotification_Common.erl | |
| parent | 06ff115c291c4bb07a728bbeb72f67822e9d4b80 (diff) | |
| download | otp-59bb06a90248defb4c0be98f10afae88c2251fe7.tar.gz otp-59bb06a90248defb4c0be98f10afae88c2251fe7.tar.bz2 otp-59bb06a90248defb4c0be98f10afae88c2251fe7.zip | |
Eliminated Dialyzer warnings when using exit or throw.
Diffstat (limited to 'lib/cosNotification/src/CosNotification_Common.erl')
| -rw-r--r-- | lib/cosNotification/src/CosNotification_Common.erl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/cosNotification/src/CosNotification_Common.erl b/lib/cosNotification/src/CosNotification_Common.erl index 0e0f1da0d5..73a5550911 100644 --- a/lib/cosNotification/src/CosNotification_Common.erl +++ b/lib/cosNotification/src/CosNotification_Common.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1999-2009. All Rights Reserved. +%% Copyright Ericsson AB 1999-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -28,7 +28,6 @@ %%--------------- INCLUDES ----------------------------------- -include_lib("orber/include/corba.hrl"). --include_lib("orber/include/ifr_types.hrl"). %% Application files -include("CosNotification.hrl"). -include("CosNotifyChannelAdmin.hrl"). @@ -947,6 +946,9 @@ check_limits(LQS, NPR) -> validate_event_qos(Wanted, Curr) -> v_e_q_helper(Wanted, Curr, []), []. + +%% To avoid dialyzer warnings due to the use of exit/throw. +-spec(v_e_q_helper/3 :: (_, _, _) -> no_return()). v_e_q_helper([], _Curr, []) -> %% Parsed all and foynd no conflicts. ok; @@ -1071,6 +1073,8 @@ v_e_q_helper(What, _, _) -> %% LQS - local representation of QoS. %% Returns : {NewOMGStyleQoS, NewLocalQoS} | #'CosNotification_UnsupportedQoS'{} %%------------------------------------------------------------ +%% To avoid dialyzer warnings due to the use of exit/throw. +-spec(set_properties/9 :: (_, _, _, _, _, _, _, _, _) -> no_return()). set_properties([], Curr, channelAdm, _, [], NewQoS,_,_,LAS) -> merge_properties(NewQoS, Curr, LAS); set_properties([], Curr, _, _, [], NewQoS,_,_,LQS) -> |