texlive[55383] Build/source/texk/web2c: [WEB2C] Preserve section

[commits+ascherer at tug.org]

Revision: 55383
          http://tug.org/svn/texlive?view=revision&revision=55383
Author:   ascherer
Date:     2020-06-02 11:58:00 +0200 (Tue, 02 Jun 2020)
Log Message:
-----------
[WEB2C] Preserve section numbering in GFtoPK.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/gftopk.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2020-06-01 23:22:02 UTC (rev 55382)
+++ trunk/Build/source/texk/web2c/ChangeLog	2020-06-02 09:58:00 UTC (rev 55383)
@@ -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,

Modified: trunk/Build/source/texk/web2c/gftopk.ch
===================================================================
--- trunk/Build/source/texk/web2c/gftopk.ch	2020-06-01 23:22:02 UTC (rev 55382)
+++ trunk/Build/source/texk/web2c/gftopk.ch	2020-06-02 09:58:00 UTC (rev 55383)
@@ -143,7 +143,12 @@
 end;
 @z
 
- at x [45] Redefine pk_byte, pk_halfword, pk_three_bytes, and pk_word.
+ at 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,8 +191,13 @@
    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
 
 @p procedure pk_halfword(a:integer) ;
@@ -368,6 +378,7 @@
 @ @<Set init...@>=
 comment := preamble_comment ;
 @y
+@ This module is empty in the C version.
 @z
 
 @x [86] Remove the final_end label