engine_xetex: close input files on abnormal exit

Author: pkgw

crates/engine_xetex/xetex/xetex-ini.c

@@ -3510,6 +3510,12 @@ tt_cleanup(void) {
         }
     }
 
+    for (int i = 1; i <= in_open; i++) {
+        if (input_file[i] != NULL) {
+            u_close(input_file[i]);
+        }
+    }
+
     // Free the big allocated arrays
     free(buffer);
     free(nest);

crates/engine_xetex/xetex/xetex-xetex0.c

@@ -5040,18 +5040,21 @@ void begin_file_reading(void)
     cur_input.synctex_tag = 0;
 }
 
-void end_file_reading(void)
+void
+end_file_reading(void)
 {
     first = cur_input.start;
     line = line_stack[cur_input.index];
-    if ((cur_input.name == 18) || (cur_input.name == 19))
+
+    if (cur_input.name == 18 || cur_input.name == 19) {
         pseudo_close();
-    else if (cur_input.name > 17)
+    } else if (cur_input.name > 17) {
         u_close(input_file[cur_input.index]);
-    {
-        input_ptr--;
-        cur_input = input_stack[input_ptr];
+        input_file[cur_input.index] = NULL;
     }
+
+    input_ptr--;
+    cur_input = input_stack[input_ptr];
     in_open--;
 }