texlive[63158] Build/source/texk/web2c: [WEB] Avoid non-POSIX

[commits+ascherer at tug.org]

Revision: 63158
          http://tug.org/svn/texlive?view=revision&revision=63158
Author:   ascherer
Date:     2022-04-27 16:43:04 +0200 (Wed, 27 Apr 2022)
Log Message:
-----------
[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.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ChangeLog
    trunk/Build/source/texk/web2c/weav-twill.ch

Modified: trunk/Build/source/texk/web2c/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ChangeLog	2022-04-27 14:26:12 UTC (rev 63157)
+++ trunk/Build/source/texk/web2c/ChangeLog	2022-04-27 14:43:04 UTC (rev 63158)
@@ -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'.

Modified: trunk/Build/source/texk/web2c/weav-twill.ch
===================================================================
--- trunk/Build/source/texk/web2c/weav-twill.ch	2022-04-27 14:26:12 UTC (rev 63157)
+++ trunk/Build/source/texk/web2c/weav-twill.ch	2022-04-27 14:43:04 UTC (rev 63158)
@@ -568,7 +568,7 @@
 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 @@
   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 @@
       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 @@
 @<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 @@
 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 @@
   @<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;