diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-11-10 10:27:09 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-11-10 10:27:09 +0000 |
commit | 5e8e9500102800e68c9e7fcac9e85c1668b71a36 (patch) | |
tree | 81d79ac70ffbb127e8063f18c8f55475ca169ee1 /Build/source/texk/web2c/gftype.ch | |
parent | e6a9c88ada2f11dd61e4c4e39dff84944bed5787 (diff) |
towards TL2010: texk/web2c
git-svn-id: svn://tug.org/texlive/trunk@15964 c570f23f-e606-0410-a88d-b1316a301751
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): |