erl_interface: Do not generate atoms on old latin1 ext format

Solved by letting ei_encode_atom_as ignore 'to_enc' argument
and always encode in UTF8 format.

1 files changed, 11 insertions, 5 deletions

diff --git a/lib/erl_interface/src/legacy/erl_eterm.c b/lib/erl_interface/src/legacy/erl_eterm.c
index e4b3b49c7d..5153d0f2e7 100644
--- a/lib/erl_interface/src/legacy/erl_eterm.c
+++ b/lib/erl_interface/src/legacy/erl_eterm.c
@@ -188,14 +188,20 @@ char* erl_atom_ptr_latin1(Erl_Atom_data* a)
 char* erl_atom_ptr_utf8(Erl_Atom_data* a)
 {
     if (a->utf8 == NULL) {
-	int dlen = a->lenL * 2; /* over estimation */
-	a->utf8 = malloc(dlen + 1); 
-	a->lenU = latin1_to_utf8(a->utf8, a->latin1, a->lenL, dlen, NULL);
-	a->utf8[a->lenU] = '\0';
+        erlang_char_encoding enc;
+        a->lenU = latin1_to_utf8(NULL, a->latin1, a->lenL, a->lenL*2, &enc);
+        if (enc == ERLANG_ASCII) {
+            a->utf8 = a->latin1;
+        }
+        else {
+            a->utf8 = malloc(a->lenU + 1);
+            latin1_to_utf8(a->utf8, a->latin1, a->lenL, a->lenU, NULL);
+            a->utf8[a->lenU] = '\0';
+        }
     }
     return a->utf8;
-
 }
+
 int erl_atom_size_latin1(Erl_Atom_data* a)
 {
     if (a->latin1 == NULL) {