diff options
| author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-13 07:35:45 +0000 |
|---|---|---|
| committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-01-13 07:35:45 +0000 |
| commit | b83822f4ed06282c5c503ef4cf2534646208090a (patch) | |
| tree | 5a35926163a1d7b53e725478b69c776eb401a9c3 /Build/source/texk/web2c/ptexdir | |
| parent | 8cf3c492f65da822e1acf372ed64ca50a202ac00 (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/ptexdir')
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ptftopl.ch | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 0afc80cd4ac..9178981ae70 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2015-01-12 Peter Breitenlohner <peb@mppmu.mpg.de> + + * ptftopl.ch: Use ^byte and xmalloc_array(). + 2014-12-12 Peter Breitenlohner <peb@mppmu.mpg.de> * ptriptest: Complain early if trip.fmt is not created. diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch index 57dffda83d0..302b2d2f69c 100644 --- a/Build/source/texk/web2c/ptexdir/ptftopl.ch +++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch @@ -26,9 +26,9 @@ var @!k:integer; {all-purpose initiallization index} @z @x [2] l.97 - pTeX: - tfm_file_array := cast_to_byte_pointer (xmalloc (1003)); + tfm_file_array := xmalloc_array (byte, 1002); @y - tfm_file_array := cast_to_byte_pointer (xmalloc (1003+4)); + tfm_file_array := xmalloc_array (byte, 1002 + 4); @z @x @@ -57,9 +57,9 @@ var @!k:integer; {all-purpose initiallization index} @z @x [18.20] l.448 - pTeX: -@!tfm_file_array: pointer_to_byte; {the input data all goes here} +@!tfm_file_array: ^byte; {the input data all goes here} @y -@!tfm_file_array: pointer_to_byte; {the input data all goes here} +@!tfm_file_array: ^byte; {the input data all goes here} @!file_format:tfm_format..vfm_format; {format of tfm file} @!nt:0..@'77777; {number of words in the character type table} @!ng:0..@'77777; {number of words in the glue table} |