diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-04-12 16:35:45 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-04-12 16:35:45 +0000 |
commit | 1e19065af9e98c874f6b7d1a229868d9ca2f88bc (patch) | |
tree | e0058c664add0df4f4be7426b362469448ff5062 /Build/source/texk/web2c/pktype.ch | |
parent | fc9b52216e92282f7cd5fbc80707650a81e99317 (diff) |
gftopk, pktogf: dynamic memory allocation
git-svn-id: svn://tug.org/texlive/trunk@17819 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pktype.ch')
-rw-r--r-- | Build/source/texk/web2c/pktype.ch | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/pktype.ch b/Build/source/texk/web2c/pktype.ch index 36fb4f71189..037538c9b79 100644 --- a/Build/source/texk/web2c/pktype.ch +++ b/Build/source/texk/web2c/pktype.ch @@ -5,7 +5,7 @@ % 02/04/90 Karl new file-searching routines. % (more recent changes in the ChangeLog) % -% There is no terminal input to this program. +% There is no terminal input to this program. % Output is to stdout, and may, of course, be redirected. @x [0] WEAVE: print changes only. @@ -137,7 +137,7 @@ end; @x [??] Use modified routines to access pk_file. @p function pk_byte : eight_bits ; var temp : eight_bits ; -begin +begin temp := pk_file^ ; get(pk_file) ; incr(pk_loc) ; @@ -151,7 +151,7 @@ subroutine calls. We comment out the ones we don't need @^system dependencies@> @d pk_byte==get_byte -@d pk_loc==cur_loc +@d pk_loc==cur_loc @p function get_byte:integer; {returns the next byte, unsigned} var b:eight_bits; @@ -322,10 +322,10 @@ begin address_of (option_index)); if getopt_return_val = -1 then begin do_nothing; - + end else if getopt_return_val = '?' then begin usage ('pktype'); - + end else if argument_is ('help') then begin usage_help (PKTYPE_HELP, nil); |