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:
parent
daccfef47b
commit
1b68d62762
1 changed files with 10 additions and 5 deletions
|
@ -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) \
|
||||
{ \
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue