mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

Fix `VM_VALIDATE_BYTEVECTOR' macro wrt. trailing semicolons.

Browse source 
* libguile/vm-i-scheme.c (VM_VALIDATE_BYTEVECTOR): Enclose in "do { }
  while (0)".
This commit is contained in:
Ludovic Courtès 2010-06-01 00:42:58 +02:00
parent daccfef47b
commit 1b68d62762
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/vm-i-scheme.c
View file

@ -543,11 +543,16 @@ VM_DEFINE_INSTRUCTION (171, slot_set, "slot-set", 0, 3, 0)
/* /*
* Bytevectors * Bytevectors
*/ */
#define VM_VALIDATE_BYTEVECTOR(x) \ #define VM_VALIDATE_BYTEVECTOR(x) \
if (SCM_UNLIKELY (!SCM_BYTEVECTOR_P (x))) \ do \
{ finish_args = x; \ { \
goto vm_error_not_a_bytevector; \ if (SCM_UNLIKELY (!SCM_BYTEVECTOR_P (x))) \
} { \
finish_args = x; \
goto vm_error_not_a_bytevector; \
} \
} \
while (0)
#define BV_REF_WITH_ENDIANNESS(stem, fn_stem) \ #define BV_REF_WITH_ENDIANNESS(stem, fn_stem) \
{ \ { \