diff options
| author | Sverker Eriksson <[email protected]> | 2019-04-05 19:26:15 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2019-04-12 18:28:29 +0200 |
| commit | a78bf4550d8bba67672624b73841c83614dd3db0 (patch) | |
| tree | 45eeeed898d67e16d64c6db5df8fdcfe5ecc8005 /lib/erl_interface/src/misc | |
| parent | 7e064720c1363ee4ca4209d7c8b0f33a90182ce7 (diff) | |
| download | otp-a78bf4550d8bba67672624b73841c83614dd3db0.tar.gz otp-a78bf4550d8bba67672624b73841c83614dd3db0.tar.bz2 otp-a78bf4550d8bba67672624b73841c83614dd3db0.zip | |
erl_interface: Remove ei_get_type_internal()
same as ei_get_type()
Diffstat (limited to 'lib/erl_interface/src/misc')
| -rw-r--r-- | lib/erl_interface/src/misc/ei_printterm.c | 4 | ||||
| -rw-r--r-- | lib/erl_interface/src/misc/get_type.c | 9 | ||||
| -rw-r--r-- | lib/erl_interface/src/misc/show_msg.c | 2 |
3 files changed, 3 insertions, 12 deletions
diff --git a/lib/erl_interface/src/misc/ei_printterm.c b/lib/erl_interface/src/misc/ei_printterm.c index 058de00de5..e83f29b0c1 100644 --- a/lib/erl_interface/src/misc/ei_printterm.c +++ b/lib/erl_interface/src/misc/ei_printterm.c @@ -131,7 +131,7 @@ static int print_term(FILE* fp, ei_x_buff* x, if (fp == NULL && x == NULL) return -1; doquote = 0; - ei_get_type_internal(buf, index, &ty, &n); + ei_get_type(buf, index, &ty, &n); switch (ty) { case ERL_ATOM_EXT: case ERL_ATOM_UTF8_EXT: @@ -189,7 +189,7 @@ static int print_term(FILE* fp, ei_x_buff* x, xputs(", ", fp, x); ch_written += 2; } } - if (ei_get_type_internal(buf, &tindex, &ty, &n) < 0) goto err; + if (ei_get_type(buf, &tindex, &ty, &n) < 0) goto err; if (ty != ERL_NIL_EXT) { xputs(" | ", fp, x); ch_written += 3; r = print_term(fp, x, buf, &tindex); diff --git a/lib/erl_interface/src/misc/get_type.c b/lib/erl_interface/src/misc/get_type.c index aa69cd4d60..1136423902 100644 --- a/lib/erl_interface/src/misc/get_type.c +++ b/lib/erl_interface/src/misc/get_type.c @@ -27,17 +27,8 @@ /* for types with meaningful length attributes, return the length too. In other cases, return length 0 */ -/* FIXME working on this one.... */ - int ei_get_type(const char *buf, const int *index, int *type, int *len) { - return ei_get_type_internal(buf, index, type, len); -} - - -int ei_get_type_internal(const char *buf, const int *index, - int *type, int *len) -{ const char *s = buf + *index; *type = get8(s); diff --git a/lib/erl_interface/src/misc/show_msg.c b/lib/erl_interface/src/misc/show_msg.c index 5868cccba6..ad003605ad 100644 --- a/lib/erl_interface/src/misc/show_msg.c +++ b/lib/erl_interface/src/misc/show_msg.c @@ -342,7 +342,7 @@ static void show_term(const char *termbuf, int *index, FILE *stream) int i, len; char *s; - ei_get_type_internal(termbuf,index,&type,&len); + ei_get_type(termbuf,index,&type,&len); switch (type) { case ERL_VERSION_MAGIC: |