diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2020-06-02 09:58:00 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2020-06-02 09:58:00 +0000 |
commit | 9716f179b67f6315f41fdfd61023afc726c9fb37 (patch) | |
tree | d3207a09a0efecedc6f69366887a1c067d26fcc6 | |
parent | bb6d63560d1e756f09d7c1a68583fc00aa8522bc (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/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/gftopk.ch | 15 |
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 |