diff options
author | Andy Wingo <wingo@pobox.com> | 2012-05-17 18:35:05 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-05-27 07:14:26 +0200 |
commit | a0ec1ca11650ad7c16cf1c3261ec1b8665d46ac8 (patch) | |
tree | b0de115042fb1cbdf6e5ab611944697c7718df35 /libguile/vm-i-scheme.c | |
parent | c850a0ff4d0073364612ff5785bda8217ea9ae7f (diff) | |
download | guile-a0ec1ca11650ad7c16cf1c3261ec1b8665d46ac8.tar.gz |
cpp hygiene in the vm
* libguile/vm-engine.c:
* libguile/vm-i-scheme.c:
* libguile/vm-i-system.c: CPP hygiene: the code that #defines, #undefs.
Makes things cleaner given the multiple inclusion dance we do.
Diffstat (limited to 'libguile/vm-i-scheme.c')
-rw-r--r-- | libguile/vm-i-scheme.c | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index c12c42ba1..ef3d02b7c 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -176,7 +176,6 @@ VM_DEFINE_INSTRUCTION (146, set_cdr, "set-cdr!", 0, 2, 0) * Numeric relational tests */ -#undef REL #define REL(crel,srel) \ { \ ARGS2 (x, y); \ @@ -212,18 +211,17 @@ VM_DEFINE_FUNCTION (151, ge, "ge?", 2) REL (>=, scm_geq_p); } +#undef REL + /* * Numeric functions */ /* The maximum/minimum tagged integers. */ -#undef INUM_MAX -#undef INUM_MIN #define INUM_MAX (INTPTR_MAX - 1) #define INUM_MIN (INTPTR_MIN + scm_tc2_int) -#undef FUNC2 #define FUNC2(CFUNC,SFUNC) \ { \ ARGS2 (x, y); \ @@ -357,8 +355,11 @@ VM_DEFINE_FUNCTION (155, sub1, "sub1", 1) RETURN (scm_difference (x, SCM_I_MAKINUM (1))); } -# undef ASM_ADD -# undef ASM_SUB +#undef ASM_ADD +#undef ASM_SUB +#undef FUNC2 +#undef INUM_MAX +#undef INUM_MIN VM_DEFINE_FUNCTION (156, mul, "mul", 2) { @@ -992,6 +993,17 @@ BV_FLOAT_SET (f64, ieee_double, double, 8) #undef BV_INT_SET #undef BV_FLOAT_SET +#undef ALIGNED_P +#undef VM_VALIDATE_BYTEVECTOR + +#undef VM_VALIDATE_STRUCT +#undef VM_VALIDATE_CONS + +#undef ARGS1 +#undef ARGS2 +#undef ARGS3 +#undef RETURN + /* (defun renumber-ops () "start from top of buffer and renumber 'VM_DEFINE_FOO (\n' sequences" |