diff options
Diffstat (limited to 'Build/source/texk/web2c/tftopl.ch')
-rw-r--r-- | Build/source/texk/web2c/tftopl.ch | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch index 3287df32fc5..f2fa5894633 100644 --- a/Build/source/texk/web2c/tftopl.ch +++ b/Build/source/texk/web2c/tftopl.ch @@ -66,7 +66,7 @@ procedure initialize; {this procedure gets things started properly} kpse_init_prog ('TFTOPL', 0, nil, nil); {We |xrealloc| when we know how big the file is. The 1000 comes from the negative lower bound.} - tfm_file_array := cast_to_byte_pointer (xmalloc (1003)); + tfm_file_array := xmalloc_array (byte, 1002); parse_arguments; @z @@ -141,15 +141,14 @@ end; {Kludge here to define |tfm| as a macro which takes care of the negative lower bound. We've defined |tfm| for the benefit of web2c above.} @=#define tfm (tfmfilearray + 1001);@>@\ -@!tfm_file_array: pointer_to_byte; {the input data all goes here} +@!tfm_file_array: ^byte; {the input data all goes here} @z @x [20] Allow arbitrarily large input files. if 4*lf-1>tfm_size then abort('The file is bigger than I can handle!'); @.The file is bigger...@> @y -tfm_file_array - := cast_to_byte_pointer (xrealloc (tfm_file_array, 4 * lf - 1 + 1002)); +tfm_file_array := xrealloc_array (tfm_file_array, byte, 4 * lf + 1000); @z % [27, 28] Change strings to C char pointers. The Pascal strings are |