mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +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. */ /* 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 \ do \
{ \ { \
a = (op >> 8) & 0xff; \ a = (op >> 8) & 0xff; \
@ -28,7 +28,7 @@
} \ } \
while (0) while (0)
#define UNPACK_8_16(op,a,b) \ #define UNPACK_8_16(op,a,b) \
do \ do \
{ \ { \
a = (op >> 8) & 0xff; \ a = (op >> 8) & 0xff; \
@ -36,7 +36,7 @@
} \ } \
while (0) while (0)
#define UNPACK_16_8(op,a,b) \ #define UNPACK_16_8(op,a,b) \
do \ do \
{ \ { \
a = (op >> 8) & 0xffff; \ a = (op >> 8) & 0xffff; \
@ -44,7 +44,7 @@
} \ } \
while (0) while (0)
#define UNPACK_12_12(op,a,b) \ #define UNPACK_12_12(op,a,b) \
do \ do \
{ \ { \
a = (op >> 8) & 0xfff; \ a = (op >> 8) & 0xfff; \
@ -52,7 +52,7 @@
} \ } \
while (0) while (0)
#define UNPACK_24(op,a) \ #define UNPACK_24(op,a) \
do \ do \
{ \ { \
a = op >> 8; \ a = op >> 8; \
@ -84,13 +84,13 @@
# define JT_REG # define JT_REG
#endif #endif
#define VM_ASSERT(condition, handler) \ #define VM_ASSERT(condition, handler) \
do { \ do { \
if (SCM_UNLIKELY (!(condition))) \ if (SCM_UNLIKELY (!(condition))) \
{ \ { \
SYNC_ALL(); \ SYNC_ALL(); \
handler; \ handler; \
} \ } \
} while (0) } while (0)
#ifdef VM_ENABLE_ASSERTIONS #ifdef VM_ENABLE_ASSERTIONS