diff options
author | Olly Betts <olly@survex.com> | 2022-02-11 08:56:16 +1300 |
---|---|---|
committer | Olly Betts <ojwbetts@gmail.com> | 2022-02-11 18:39:08 +1300 |
commit | 31af3ce9bf08022a236b7140da33fa721102823d (patch) | |
tree | 50bf863318d52f1fefca01743c160c2552bbd063 /Lib/mzscheme | |
parent | b624d17f3f42da37ee601945d795dca392e01f84 (diff) | |
download | swig-31af3ce9bf08022a236b7140da33fa721102823d.tar.gz |
Avoid -Wempty-body warnings from SWIG_contract_assert
Diffstat (limited to 'Lib/mzscheme')
-rw-r--r-- | Lib/mzscheme/mzrun.swg | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Lib/mzscheme/mzrun.swg b/Lib/mzscheme/mzrun.swg index c438c9ce8..279073113 100644 --- a/Lib/mzscheme/mzrun.swg +++ b/Lib/mzscheme/mzrun.swg @@ -23,12 +23,14 @@ extern "C" { SWIG_MzScheme_MustGetPtr(s, type, argnum, flags, FUNC_NAME, argc, argv) #define SWIG_contract_assert(expr,msg) \ - if (!(expr)) { \ - char *m=(char *) scheme_malloc(strlen(msg)+1000); \ - sprintf(m,"SWIG contract, assertion failed: function=%s, message=%s", \ - (char *) FUNC_NAME,(char *) msg); \ - scheme_signal_error(m); \ - } + do { \ + if (!(expr)) { \ + char *m=(char *) scheme_malloc(strlen(msg)+1000); \ + sprintf(m,"SWIG contract, assertion failed: function=%s, message=%s", \ + (char *) FUNC_NAME,(char *) msg); \ + scheme_signal_error(m); \ + } \ + } while (0) /* Runtime API */ #define SWIG_GetModule(clientdata) SWIG_MzScheme_GetModule((Scheme_Env *)(clientdata)) |