diff options
Diffstat (limited to 'Build/source/texk/web2c/gftype.ch')
-rw-r--r-- | Build/source/texk/web2c/gftype.ch | 14 |
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): |