Skip to content

Commit cda47df

Browse files
authored
Fix debug + no stack check mode (#2620)
1 parent d2ce131 commit cda47df

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

ocaml/runtime/fiber.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -928,7 +928,7 @@ void caml_free_stack (struct stack_info* stack)
928928
(Stack_high(stack)-Stack_base(stack))*sizeof(value));
929929
#endif
930930
} else {
931-
#ifdef DEBUG
931+
#if defined(DEBUG) && defined(STACK_CHECKS_ENABLED)
932932
memset(stack, 0x42, (char*)stack->handler - (char*)stack);
933933
#endif
934934
#ifdef USE_MMAP_MAP_STACK

0 commit comments

Comments
 (0)