From 96cee2a64cd0208f47fe4a0fc2af5e4366574a84 Mon Sep 17 00:00:00 2001 From: Martin Sumner Date: Fri, 4 May 2018 17:14:12 +0100 Subject: [PATCH] Add specific compile flag to avoid deprecation warning Will see us through OTP 20 and 21. --- rebar.config | 1 + src/leveled_cdb.erl | 11 +++++++++++ src/leveled_sst.erl | 8 ++++++++ 3 files changed, 20 insertions(+) diff --git a/rebar.config b/rebar.config index a28ea33..7aa7bcc 100644 --- a/rebar.config +++ b/rebar.config @@ -1,4 +1,5 @@ {erl_opts, [warnings_as_errors, + {platform_define, "^2[0-1]{1}", fsm_deprecated}, {platform_define, "^1[7-8]{1}", old_rand}, {platform_define, "^R", old_rand}, {platform_define, "^R", no_sync}]}. diff --git a/src/leveled_cdb.erl b/src/leveled_cdb.erl index 9adff0e..5100b8b 100644 --- a/src/leveled_cdb.erl +++ b/src/leveled_cdb.erl @@ -46,6 +46,17 @@ -behaviour(gen_fsm). -include("include/leveled.hrl"). + +-ifdef(fsm_deprecated). +-compile({nowarn_deprecated_function, + [{gen_fsm, start, 3}, + {gen_fsm, sync_send_event, 3}, + {gen_fsm, sync_send_event, 2}, + {gen_fsm, send_event, 2}, + {gen_fsm, sync_send_all_state_event, 3}, + {gen_fsm, send_all_state_event, 2}]}). +-endif. + -export([init/1, handle_sync_event/4, handle_event/3, diff --git a/src/leveled_sst.erl b/src/leveled_sst.erl index 857cc48..33fc79c 100644 --- a/src/leveled_sst.erl +++ b/src/leveled_sst.erl @@ -62,6 +62,14 @@ -behaviour(gen_fsm). +-ifdef(fsm_deprecated). +-compile({nowarn_deprecated_function, + [{gen_fsm, start, 3}, + {gen_fsm, sync_send_event, 3}, + {gen_fsm, send_event, 2}, + {gen_fsm, send_all_state_event, 2}]}). +-endif. + -include("include/leveled.hrl"). -define(MAX_SLOTS, 256).