FIX: incorrect codepage id for CP819 alias IBM819 codepage name

Author: Oldes

src/core/u-iconv.c

@@ -119,14 +119,13 @@ static struct {
 	{20127, "US-ASCII"},
 	{20127, "CSASCII"},
 
-	/* !IsValidCodePage(819) */
-	{1252, "CP819"},
-	{1252, "IBM819"},
 	{28591, "ISO-8859-1"},
 	{28591, "ISO-IR-100"},
 	{28591, "ISO8859-1"},
 	{28591, "ISO_8859-1"},
 	{28591, "ISO_8859-1:1987"},
+	{28591, "CP819"},
+	{28591, "IBM819"},
 	{28591, "L1"},
 	{28591, "LATIN1"},
 	{28591, "CSISOLATIN1"},
@@ -769,7 +768,7 @@ static REBYTE* get_codepage_name(REBVAL *cp)
 		Trap0(RE_FEATURE_NA);
 	}
 
-	dst_wide = Make_Series(src_len + 1, wide, FALSE);
+	dst_wide = Make_Series(src_len + 4, wide, FALSE);
 	dst_size = SERIES_SPACE(dst_wide);
 
 
@@ -782,7 +781,7 @@ static REBYTE* get_codepage_name(REBVAL *cp)
 		nread = iconv(cd, &src, &src_size, &dst, &dst_size);
 		//printf("ret: %d src_size: %d dst_size: %d %d\n", nread, src_size, dst_size, (REBYTE *)dst - BIN_HEAD(dst_wide));
 		if(nread == (size_t)-1) {
-			//printf("iconv failed: %d\n", errno );
+			printf("iconv failed: %d\n", errno );
 			if(errno == E2BIG) {
 				// There is not sufficient room at destination
 				if (SERIES_SPACE(dst_wide) < (4 * src_len)) {