[WEB2C] Preserve section numbering in GFtoPK.

git-svn-id: svn://tug.org/texlive/trunk@55383 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 17 insertions, 2 deletions

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  <https://ascherer.github.io>
+
+	* gftopk.ch: Preserve internal section numbering.
+
 2020-05-30  Andreas Scherer  <https://ascherer.github.io>
 
 	* 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 ;
 @ @<Set init...@>=
 comment := preamble_comment ;
 @y
+@ This module is empty in the C version.
 @z
 
 @x [86] Remove the final_end label