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

vm-engine cosmetic cleanup

Browse source 
* libguile/vm-engine.c: Reindent UNPACK macros.
This commit is contained in:
Andy Wingo 2013-11-20 19:38:37 +01:00
parent 62e1660695
commit 6ed55e9143
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/vm-engine.c
View file

@ -19,7 +19,7 @@
/* This file is included in vm.c multiple times. */
#define UNPACK_8_8_8(op,a,b,c) \
#define UNPACK_8_8_8(op,a,b,c) \
do \
{ \
a = (op >> 8) & 0xff; \
@ -28,7 +28,7 @@
} \
while (0)
#define UNPACK_8_16(op,a,b) \
#define UNPACK_8_16(op,a,b) \
do \
{ \
a = (op >> 8) & 0xff; \
@ -36,7 +36,7 @@
} \
while (0)
#define UNPACK_16_8(op,a,b) \
#define UNPACK_16_8(op,a,b) \
do \
{ \
a = (op >> 8) & 0xffff; \
@ -44,7 +44,7 @@
} \
while (0)
#define UNPACK_12_12(op,a,b) \
#define UNPACK_12_12(op,a,b) \
do \
{ \
a = (op >> 8) & 0xfff; \
@ -52,7 +52,7 @@
} \
while (0)
#define UNPACK_24(op,a) \
#define UNPACK_24(op,a) \
do \
{ \
a = op >> 8; \
@ -84,13 +84,13 @@
# define JT_REG
#endif
#define VM_ASSERT(condition, handler) \
do { \
if (SCM_UNLIKELY (!(condition))) \
{ \
SYNC_ALL(); \
handler; \
} \
#define VM_ASSERT(condition, handler) \
do { \
if (SCM_UNLIKELY (!(condition))) \
{ \
SYNC_ALL(); \
handler; \
} \
} while (0)
#ifdef VM_ENABLE_ASSERTIONS