[tex-k] Incorrect sizes in GFtoDVI output

[Andreas Scherer]

[I'm terribly sorry about the clutter, but I forgot to press the 'Text' 
button in the web interface of my mail provider.]

Hello, Igor,

please apply the attached changefile with TANGLE and compile with FPC.

Or clone https://github.com/ascherer/web and run 'make boot all gftodvi'.

Regards,
Andreas

PS: 'gftodvi' produces a 'runtime error 2', so you'll have to try to 
debug it.
-------------- next part --------------
Section 2.

@x l.88
@d othercases == others: {default for cases not listed explicitly}
@y
@d othercases == @+else {default for cases not listed explicitly}
@z

Section 3.

@x l.108
@p program GF_to_DVI(@!output);
@y
@p
@{@&$M@&O@&D@&E@,@,ISO@} {switch to ISO mode of Free \PASCAL}
program GF_to_DVI(@!output);
@z

Section 11.

@x l.233
@d last_text_char=255 {ordinal number of the largest element of |text_char|}

@<Types ...@>=
@!text_file=packed file of text_char;
@y
@d last_text_char=255 {ordinal number of the largest element of |text_char|}
@z

Section 16.

@x l.383
@d update_terminal == break(output) {empty the terminal output buffer}
@y
@d update_terminal == flush(output) {empty the terminal output buffer}
@z

Section 17.

@x
begin update_terminal; reset(term_in);
@y
begin update_terminal; assign(term_in,''); reset(term_in);
@z