Avoid "this statement may fall through" warnings.

[cln.git] / src / complex / input / cl_N_read.cc

diff --git a/src/complex/input/cl_N_read.cc b/src/complex/input/cl_N_read.cc
index 7b1b773c0521d3e5826077ceefb314a37c03496b..9365972a5d71227fbc1c49c7dd936681fa339353 100644 (file)
--- a/src/complex/input/cl_N_read.cc
+++ b/src/complex/input/cl_N_read.cc
@@ -108,7 +108,7 @@ const cl_N read_complex (const cl_read_flags& flags, const char * string, const
                var cl_signean sign = 0;
                if (ptr == string_limit) goto not_rational_syntax;
                switch (*ptr) {
-                       case '-': sign = ~sign;
+                       case '-': sign = ~sign; // fallthrough
                        case '+': ptr++;
                        default: break;
                }
@@ -158,7 +158,7 @@ not_rational_syntax:
                var cl_signean sign = 0;
                if (ptr == string_limit) goto not_float_syntax;
                switch (*ptr) {
-                       case '-': sign = ~sign;
+                       case '-': sign = ~sign; // fallthrough
                        case '+': ptr++;
                        default: break;
                }
@@ -316,7 +316,7 @@ static const cl_N read_complex_number_rest (const cl_read_flags& flags, const ch
                        return complex(0,x);
                }
                switch (*ptr) {
-                       case '+': ptr++;
+                       case '+': ptr++; // fallthrough
                        case '-': break;
                        default: goto not_complex_syntax;
                }