summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/opl2ofm.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-01-08 15:03:48 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-01-08 15:03:48 +0000
commitef3d3d2a405439fbfb04894c5185025dcd0a7f46 (patch)
tree91b1f27c7b9cbf7bfdb9e6870f4cf5e35cc6b07c /Build/source/texk/web2c/omegaware/opl2ofm.ch
parenta17ac4e834bdda29ee580bb9f77f23cd086ba109 (diff)
texk/web2c/omegaware: minor bug fixes and additional test case
git-svn-id: svn://tug.org/texlive/trunk@16639 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/opl2ofm.ch')
-rw-r--r--Build/source/texk/web2c/omegaware/opl2ofm.ch15
1 files changed, 14 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.ch b/Build/source/texk/web2c/omegaware/opl2ofm.ch
index ff626c22e37..67172f602bd 100644
--- a/Build/source/texk/web2c/omegaware/opl2ofm.ch
+++ b/Build/source/texk/web2c/omegaware/opl2ofm.ch
@@ -100,12 +100,25 @@ rewritebin (tfm_file, tfm_name);
@d index == index_var
@z
-@x [103] No output (except errors) unless verbose.
+@x [116] No output (except errors) unless verbose.
@<Print |c| in hex notation@>;
@y
if verbose then @<Print |c| in hex notation@>;
@z
+@x [119] No output (except errors) unless verbose.
+@<Print |c| in hex notation@>;
+@y
+if verbose then @<Print |c| in hex notation@>;
+@z
+@x
+print('-'); print_hex(c+crange);
+@y
+if verbose then begin
+ print('-'); print_hex(c+crange);
+ end;
+@z
+
% [27, 28] Change strings to C char pointers. The Pascal strings are
% indexed starting at 1, so we pad with a blank.
@x