summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2022-04-27 14:43:04 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2022-04-27 14:43:04 +0000
commit0af0f41700900cdfd791389cb63c3b57ce4d957f (patch)
tree80c19b889ab5260d4b87ae6b7a2d20619fa143d2 /Build
parentbfa2799429df16b5d4c20516c91a61b1616073ea (diff)
[WEB] Avoid non-POSIX conflict with Solaris 11.4.
See https://tug.org/pipermail/tlbuild/2022q2/005220.html for the bug report and https://blogs.oracle.com/solaris/post/reflink3c-what-is-it-why-do-i-care-and-how-can-i-use-it for Oracle's rationale. git-svn-id: svn://tug.org/texlive/trunk@63158 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/ChangeLog4
-rw-r--r--Build/source/texk/web2c/weav-twill.ch14
2 files changed, 11 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 952b7b631f8..1fd5e66acdc 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,7 @@
+2022-04-27 Andreas Scherer <https://ascherer.github.io>
+
+ * weav-twill.ch: Avoid non-POSIX conflict with Solaris 11.4.
+
2022-04-06 Andreas Scherer <https://ascherer.github.io>
* weav-twill.ch: My name is 'twill'.
diff --git a/Build/source/texk/web2c/weav-twill.ch b/Build/source/texk/web2c/weav-twill.ch
index f61a3bb7254..f944d1cfe31 100644
--- a/Build/source/texk/web2c/weav-twill.ch
+++ b/Build/source/texk/web2c/weav-twill.ch
@@ -568,7 +568,7 @@ Section 220.
begin incr(module_count);@/
@y
begin incr(module_count);@/
-mm:=module_count+def_flag; ref_link[0]:=0; ref_loc[0]:=0; new_ref_ptr:=0;
+mm:=module_count+def_flag; ref_lnk[0]:=0; ref_loc[0]:=0; new_ref_ptr:=0;
safety:=guaranteed;
@z
@@ -831,9 +831,9 @@ if q<>0 then if q<>undef_val then if not phase_three then
begin repeat r:=q; q:=dlink(q);
until (q=0) or (num(q)>mm);
if num(r)<>mm then
- begin qq:=0; q:=ref_link[0];
+ begin qq:=0; q:=ref_lnk[0];
while ref_loc[q]>r do
- begin qq:=q; q:=ref_link[qq];
+ begin qq:=q; q:=ref_lnk[qq];
end;
if ref_loc[q]=r then
begin if safety=guaranteed then
@@ -841,7 +841,7 @@ if q<>0 then if q<>undef_val then if not phase_three then
end
else begin if new_ref_ptr=max_new_refs then overflow('new references');
incr(new_ref_ptr);
- ref_link[new_ref_ptr]:=q; ref_link[qq]:=new_ref_ptr;
+ ref_lnk[new_ref_ptr]:=q; ref_lnk[qq]:=new_ref_ptr;
ref_loc[new_ref_ptr]:=r;
if dlink(def_val[p])=0 then ref_safety[new_ref_ptr]:=guaranteed
else ref_safety[new_ref_ptr]:=safety;
@@ -870,7 +870,7 @@ identifier is multiply defined.
@<Glob...@>=
@!mm:integer; {current module number plus |def_flag|}
@!ref_loc:array[0..max_new_refs] of sixteen_bits;
-@!ref_link:array[0..max_new_refs] of sixteen_bits;
+@!ref_lnk:array[0..max_new_refs] of sixteen_bits;
@!ref_safety:array[0..max_new_refs] of guaranteed..flaky;
@!new_ref_ptr:0..max_new_refs;
@!safety:guaranteed..flaky;
@@ -938,7 +938,7 @@ but not defined in the current module.
procedure beta_out;
label done,888,found;
var k,p,q,w,xx,mmm:integer;
-begin p:=ref_link[0];
+begin p:=ref_lnk[0];
while p<>0 do
begin flush_buffer(out_ptr,false,false);
out2("\")("[");
@@ -949,7 +949,7 @@ while p<>0 do
@<Move past commas@>;
@<Output the reference, based on its |dtype|@>;
if ref_safety[p]=flaky then out3(" ")("%")("?");
- p:=ref_link[p];
+ p:=ref_lnk[p];
end;
end;