Fix \XeTeXglyphname, add test (#1353)

Author: CraftSpider

crates/engine_xetex/xetex/xetex-ext.c

@@ -2138,8 +2138,9 @@ print_glyph_name(int32_t font, int32_t gid)
     } else {
         _tt_abort("bad native font flag in `print_glyph_name`");
     }
-    while (len-- > 0)
-        print_char(*s++);
+    for (int i = 0; i < len; i++) {
+    	print_char(s[i]);
+    }
     if (s)
     	freeGlyphName(s);
 }

tests/tex-outputs.rs

@@ -363,6 +363,11 @@ fn the_letter_a() {
     TestCase::new("the_letter_a").check_pdf(true).go()
 }
 
+#[test]
+fn xetex_builtins() {
+    TestCase::new("xetex_builtins").check_pdf(true).go()
+}
+
 #[test]
 fn xetex_g_builtins() {
     TestCase::new("xetex_g_builtins").check_pdf(true).go()

tests/tex-outputs/xetex_builtins.log

@@ -0,0 +1,3 @@
+**
+(xetex_builtins.tex [1] )
+Output written on xetex_builtins.xdv (1 page, 236 bytes).

tests/tex-outputs/xetex_builtins.pdf

@@ -0,0 +1,5 @@
+\font\i="[Inconsolatazi4-Regular.otf]/OT"
+
+Glyph name: \XeTeXglyphname \i 33
+
+\bye