File tree 1 file changed +3
-1
lines changed
1 file changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -274,6 +274,7 @@ struct caml__roots_block {
274
274
*/
275
275
276
276
#define CAMLparam0 () \
277
+ int caml__missing_CAMLreturn = 0; \
277
278
struct caml__roots_block** caml_local_roots_ptr = \
278
279
(DO_CHECK_CAML_STATE ? Caml_check_caml_state() : (void)0, \
279
280
&CAML_LOCAL_ROOTS); \
@@ -408,6 +409,7 @@ struct caml__roots_block {
408
409
}
409
410
410
411
#define CAMLdrop do{ \
412
+ (void)caml__missing_CAMLreturn; \
411
413
*caml_local_roots_ptr = caml__frame; \
412
414
}while (0)
413
415
@@ -424,7 +426,7 @@ struct caml__roots_block {
424
426
425
427
#define CAMLreturn (result ) CAMLreturnT(value, result)
426
428
427
- #define CAMLnoreturn ((void) caml__frame)
429
+ #define CAMLnoreturn ((void) caml__missing_CAMLreturn, (void) caml__frame)
428
430
429
431
430
432
/* convenience macro */
You can’t perform that action at this time.
0 commit comments