summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/opl2ofm.up
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/omegaware/opl2ofm.up')
-rw-r--r--Build/source/texk/web2c/omegaware/opl2ofm.up41
1 files changed, 41 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.up b/Build/source/texk/web2c/omegaware/opl2ofm.up
new file mode 100644
index 00000000000..7889604012c
--- /dev/null
+++ b/Build/source/texk/web2c/omegaware/opl2ofm.up
@@ -0,0 +1,41 @@
+@x [3] Increase constants.
+@d char_max=@"FFFF
+@y
+@d char_max=@"10FFFF
+@z
+@x [3] Increase constants.
+@d width_max=@"FFFF
+@y
+@d width_max=@"10FFFF
+@z
+
+@x [51]
+@d max_byte=@"FFFF
+
+@p function get_byte:byte; {scans a one-byte property value}
+@y
+@d max_byte=@"10FFFF
+
+@p function get_byte:integer; {scans a one-byte property value}
+@z
+@x [53]
+ skip_error('This value shouldn''t exceed 65535');
+@y
+ skip_error('This value shouldn''t exceed 1114111');
+@z
+@x [54]
+ skip_error('This value shouldn''t exceed ''177777');
+@y
+ skip_error('This value shouldn''t exceed ''4177777');
+@z
+@x [55]
+ skip_error('This value shouldn''t exceed "FFFF');
+@y
+ skip_error('This value shouldn''t exceed "10FFFF');
+@z
+
+@x [159]
+ while (not diff) and (cprime<=ec) do begin
+@y
+ while (not diff) and (cprime<=ec) and (cprime-c<@"10000) do begin
+@z