1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00

Fix `VM_VALIDATE_BYTEVECTOR' macro wrt. trailing semicolons.

* 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

View file

@ -543,11 +543,16 @@ VM_DEFINE_INSTRUCTION (171, slot_set, "slot-set", 0, 3, 0)
/*
* Bytevectors
*/
#define VM_VALIDATE_BYTEVECTOR(x) \
if (SCM_UNLIKELY (!SCM_BYTEVECTOR_P (x))) \
{ finish_args = x; \
goto vm_error_not_a_bytevector; \
}
#define VM_VALIDATE_BYTEVECTOR(x) \
do \
{ \
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) \
{ \