summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2020-06-02 09:58:00 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2020-06-02 09:58:00 +0000
commit9716f179b67f6315f41fdfd61023afc726c9fb37 (patch)
treed3207a09a0efecedc6f69366887a1c067d26fcc6
parentbb6d63560d1e756f09d7c1a68583fc00aa8522bc (diff)
[WEB2C] Preserve section numbering in GFtoPK.
git-svn-id: svn://tug.org/texlive/trunk@55383 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/ChangeLog4
-rw-r--r--Build/source/texk/web2c/gftopk.ch15
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