From 9716f179b67f6315f41fdfd61023afc726c9fb37 Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Tue, 2 Jun 2020 09:58:00 +0000 Subject: [WEB2C] Preserve section numbering in GFtoPK. git-svn-id: svn://tug.org/texlive/trunk@55383 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ChangeLog | 4 ++++ Build/source/texk/web2c/gftopk.ch | 15 +++++++++++++-- 2 files changed, 17 insertions(+), 2 deletions(-) (limited to 'Build/source/texk') diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index bf13e945b46..fa11dab4d5b 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,3 +1,7 @@ +2020-06-02 Andreas Scherer + + * gftopk.ch: Preserve internal section numbering. + 2020-05-30 Andreas Scherer * bibtex.ch, diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch index 38dd79decd3..fa496d44058 100644 --- a/Build/source/texk/web2c/gftopk.ch +++ b/Build/source/texk/web2c/gftopk.ch @@ -143,7 +143,12 @@ begin end; @z -@x [45] Redefine pk_byte, pk_halfword, pk_three_bytes, and pk_word. +@x [44] Redefine pk_byte, pk_halfword, pk_three_bytes, and pk_word. +@ We also need a few routines to write data to the \.{PK} file. We write +data in 4-, 8-, 16-, 24-, and 32-bit chunks, so we define the appropriate +routines. We must be careful not to let the sign bit mess us up, as some +\PASCAL s implement division of a negative integer differently. + @p procedure pk_byte(a:integer) ; begin if pk_open then begin @@ -186,7 +191,12 @@ begin end ; end ; @y -@ Output is handled through |putbyte| which is supplied by web2c. +@ We also need a few routines to write data to the \.{PK} file. We write +data in 4-, 8-, 16-, 24-, and 32-bit chunks, so we define the appropriate +routines. We must be careful not to let the sign bit mess us up, as some +\PASCAL s implement division of a negative integer differently. + +Output is handled through |putbyte| which is supplied by web2c. @d pk_byte(#)==begin putbyte(#, pk_file); incr(pk_loc) end @@ -368,6 +378,7 @@ end ; @ @= comment := preamble_comment ; @y +@ This module is empty in the C version. @z @x [86] Remove the final_end label -- cgit v1.2.3