summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vftovp.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2015-01-13 07:35:45 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2015-01-13 07:35:45 +0000
commitb83822f4ed06282c5c503ef4cf2534646208090a (patch)
tree5a35926163a1d7b53e725478b69c776eb401a9c3 /Build/source/texk/web2c/vftovp.ch
parent8cf3c492f65da822e1acf372ed64ca50a202ac00 (diff)
texk/web2c: Use ^byte and alloc_array() in TFtoPL, VFtoVF & Co
Drop casttobytepointer and pointertobyte git-svn-id: svn://tug.org/texlive/trunk@36045 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/vftovp.ch')
-rw-r--r--Build/source/texk/web2c/vftovp.ch7
1 files changed, 3 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index ad8325205ab..dd523e5ffbb 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -52,7 +52,7 @@ procedure initialize; {this procedure gets things started properly}
kpse_init_prog ('VFTOVP', 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
@@ -139,7 +139,7 @@ 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
% [24] abort() should cause a bad exit code.
@@ -159,8 +159,7 @@ end;
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
% [31] Ditto for vf_abort.