summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/gftype.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/gftype.ch')
-rw-r--r--Build/source/texk/web2c/gftype.ch14
1 files changed, 14 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/gftype.ch b/Build/source/texk/web2c/gftype.ch
index a24e1486e9d..27c3167a86a 100644
--- a/Build/source/texk/web2c/gftype.ch
+++ b/Build/source/texk/web2c/gftype.ch
@@ -96,6 +96,13 @@ end;
@.Bad GF file@>
@z
+@x [9] Pascal Web's char
+@d text_char == char {the data type of characters in text files}
+@y
+@d char == 0..255
+@d text_char == char {the data type of characters in text files}
+@z
+
@x [22] Redo open_gf_file to do path searching.
@ To prepare this file for input, we |reset| it.
@@ -241,6 +248,13 @@ sixty_four_cases(new_row_0+64): first_par:=o-new_row_0;
thirty_seven_cases(new_row_0+128): first_par:=o-new_row_0;
@z
+@x [48] Diagnose impossible cases.
+end;
+@y
+othercases abort('internal error')
+endcases;
+@z
+
@x [64] Break up the second oversized case statement.
sixty_four_cases(new_row_0), sixty_four_cases(new_row_0+64),
thirty_seven_cases(new_row_0+128):