Cache Reed-Solomon coefficients readonly

The coefficient arrays delivered by the gencoeffs procedures are shared
across calls via the FIFO caches, so mark them readonly.

Author: terryburton

src/azteccode.ps.src

@@ -259,7 +259,7 @@ begin
     %
     [ rsnc 1 sub -1 0 {
         coeffs exch get dup 0 ne { rslog exch get } { pop -1 } ifelse
-    } for ]
+    } for ] readonly
 } bind def
 
 /azteccode.coeffscache azteccode.coeffscachemax azteccode.coeffscachelimit //fifocache exec def

src/codeone.ps.src

@@ -354,7 +354,7 @@ begin
     %
     [ ecpb 1 sub -1 0 {
         coeffs exch get dup 0 ne { rslog exch get } { pop -1 } ifelse
-    } for ]
+    } for ] readonly
 } bind def
 
 %

src/datamatrix.ps.src

@@ -343,7 +343,7 @@ begin
     %
     [ k 1 sub -1 0 {
         coeffs exch get dup 0 ne { rslog exch get } { pop -1 } ifelse
-    } for ]
+    } for ] readonly
 } bind def
 
 %

src/dotcode.ps.src

@@ -221,7 +221,7 @@ begin
     % Drop the leading 1, delivering the coefficients reversed as rsecprime
     % requires
     1 1 NC { coeffs exch get } for
-    NC array astore
+    NC array astore readonly
 } bind def
 
 %

src/hanxin.ps.src

@@ -570,7 +570,7 @@ begin
     %
     [ rsnc 1 sub -1 0 {
         coeffs exch get dup 0 ne { rslog exch get } { pop -1 } ifelse
-    } for ]
+    } for ] readonly
 } bind def
 
 %

src/maxicode.ps.src

@@ -250,7 +250,7 @@ begin
     %
     [ k 1 sub -1 0 {
         coeffs exch get dup 0 ne { rslog exch get } { pop -1 } ifelse
-    } for ]
+    } for ] readonly
 } bind def
 
 %

src/micropdf417.ps.src

@@ -568,7 +568,7 @@ begin
     %
     % Deliver the coefficients reversed, as rsecprime requires
     %
-    [ k 1 sub -1 0 { coeffs exch get } for ]
+    [ k 1 sub -1 0 { coeffs exch get } for ] readonly
 } bind def
 
 %

src/pdf417.ps.src

@@ -437,7 +437,7 @@ begin
     %
     % Deliver the coefficients reversed, as rsecprime requires
     %
-    [ k 1 sub -1 0 { coeffs exch get } for ]
+    [ k 1 sub -1 0 { coeffs exch get } for ] readonly
 } bind def
 
 %

src/qrcode.ps.src

@@ -674,7 +674,7 @@ begin
     %
     [ ecpb 1 sub -1 0 {
         coeffs exch get dup 0 ne { rslog exch get } { pop -1 } ifelse
-    } for ]
+    } for ] readonly
 } bind def
 
 %

src/ultracode.ps.src

@@ -200,7 +200,7 @@ begin
     %
     % Deliver the coefficients reversed, as rsecprime requires
     %
-    [ k 1 sub -1 0 { coeffs exch get } for ]
+    [ k 1 sub -1 0 { coeffs exch get } for ] readonly
 } bind def
 
 %