diff options
| author | Sverker Eriksson <[email protected]> | 2019-04-03 21:16:59 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2019-04-17 19:09:12 +0200 |
| commit | 6465de7e3a5393a80ed0e2c63f012fd126de706f (patch) | |
| tree | f85198d2afe765a8f3b7c94ed31b36830346b006 /lib/erl_interface/src/misc/show_msg.c | |
| parent | 46aa940b9d771c4806aacaf065c2f637474e9815 (diff) | |
| download | otp-6465de7e3a5393a80ed0e2c63f012fd126de706f.tar.gz otp-6465de7e3a5393a80ed0e2c63f012fd126de706f.tar.bz2 otp-6465de7e3a5393a80ed0e2c63f012fd126de706f.zip | |
erl_interface: Add bitstring and export fun support
Diffstat (limited to 'lib/erl_interface/src/misc/show_msg.c')
| -rw-r--r-- | lib/erl_interface/src/misc/show_msg.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/erl_interface/src/misc/show_msg.c b/lib/erl_interface/src/misc/show_msg.c index ad003605ad..2d49eb6449 100644 --- a/lib/erl_interface/src/misc/show_msg.c +++ b/lib/erl_interface/src/misc/show_msg.c @@ -24,6 +24,13 @@ #include <stdlib.h> #include <stdarg.h> #include <string.h> +#ifdef HAVE_STDINT_H +# include <stdint.h> +#endif + +#ifndef SIZE_MAX +# define SIZE_MAX (~((size_t)0)) +#endif #include <sys/types.h> @@ -455,6 +462,12 @@ static void show_term(const char *termbuf, int *index, FILE *stream) fprintf(stream,"#Bin<%ld>",num); break; + case ERL_BIT_BINARY_EXT: { + size_t bits; + ei_decode_bitstring(termbuf, index, NULL, SIZE_MAX, &bits); + fprintf(stream, "#Bits<%lu>", (unsigned long)bits); + break; + } case ERL_LARGE_BIG_EXT: /* doesn't actually decode - just skip over it */ /* FIXME if GMP, what to do here?? */ |