mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

Really disable stack underflow checks when VM_CHECK_UNDERFLOW == 0.

Browse source 
* libguile/vm-engine.h: Use '#if VM_CHECK_UNDERFLOW' instead of
  '#ifdef'.
This commit is contained in:
Ludovic Courtès 2015-01-22 13:50:49 +01:00
parent 5b7632331e
commit 1abe6ba5d8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm-engine.h
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2001, 2009-2012, 2014 Free Software Foundation, Inc. /* Copyright (C) 2001, 2009-2012, 2014, 2015 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -284,7 +284,7 @@
do { if (SCM_UNLIKELY (sp >= stack_limit)) goto handle_overflow; } while (0) do { if (SCM_UNLIKELY (sp >= stack_limit)) goto handle_overflow; } while (0)
#ifdef VM_CHECK_UNDERFLOW #if VM_CHECK_UNDERFLOW
#define PRE_CHECK_UNDERFLOW(N) \ #define PRE_CHECK_UNDERFLOW(N) \
VM_ASSERT (sp - (N) > SCM_FRAME_UPPER_ADDRESS (fp), vm_error_stack_underflow ()) VM_ASSERT (sp - (N) > SCM_FRAME_UPPER_ADDRESS (fp), vm_error_stack_underflow ())
#define CHECK_UNDERFLOW() PRE_CHECK_UNDERFLOW (0) #define CHECK_UNDERFLOW() PRE_CHECK_UNDERFLOW (0)