4 files changed, 126 insertions, 0 deletions
diff --git a/math/sprng/files/patch-SRC_pmlcg_longlong.h b/math/sprng/files/patch-SRC_pmlcg_longlong.h
new file mode 100644
index 000000000000..a153cbb31087
--- /dev/null
+++ b/math/sprng/files/patch-SRC_pmlcg_longlong.h
@@ -0,0 +1,15 @@
+--- SRC/pmlcg/longlong.h.orig	2024-12-17 18:25:17 UTC
++++ SRC/pmlcg/longlong.h
+@@ -211,9 +211,8 @@ UDItype __umulsidi3 (USItype, USItype);
+ 	     "r" ((USItype) (al)),					\
+ 	     "rI" ((USItype) (bl)))
+ #define umul_ppmm(xh, xl, a, b) \
+-{register USItype __t0, __t1, __t2;					\
+-  __asm__ ("%@ Inlined umul_ppmm\n"					\
+-	   "	mov	%2, %5, lsr #16\n"				\
++{USItype __t0, __t1, __t2;						\
++  __asm__ ("	mov	%2, %5, lsr #16\n"				\
+ 	   "	mov	%0, %6, lsr #16\n"				\
+ 	   "	bic	%3, %5, %2, lsl #16\n"				\
+ 	   "	bic	%4, %6, %0, lsl #16\n"				\
+
diff --git a/math/sprng/files/patch-TESTS_mpitests_wolff.cpp b/math/sprng/files/patch-TESTS_mpitests_wolff.cpp
new file mode 100644
index 000000000000..30e2f0d3ecda
--- /dev/null
+++ b/math/sprng/files/patch-TESTS_mpitests_wolff.cpp
@@ -0,0 +1,37 @@
+--- TESTS/mpitests/wolff.cpp.orig	2011-08-06 15:58:22 UTC
++++ TESTS/mpitests/wolff.cpp
+@@ -14,7 +14,7 @@ using namespace std;
+ 
+ /*#define PARALLEL*/
+ 
+-int lattice_size, *spin, *stack, nsites;
++int lattice_size, *spin, *my_stack, nsites;
+ Sprng **genptr;			/* array of random number generators */
+ int exponent, mask; /* Used for efficiency purposes */
+ double prob;
+@@ -73,12 +73,12 @@ void Single_Cluster_Update(void) /* update lattice spi
+ 	if (genptr[i]->sprng() > prob)
+ 	  continue;
+ 	spin[nnJ]=-spin[nnJ];
+-	stack[++Ipt]=nnJ;
++	my_stack[++Ipt]=nnJ;
+       }
+     
+     if(Ipt>=0)
+       {
+-	i=stack[Ipt];
++	i=my_stack[Ipt];
+ 	Ipt--;
+       }
+     else i=-1;
+@@ -216,8 +216,8 @@ void minitialize(int rng_type, int seed, int param, in
+   
+ 
+   spin = static_cast<int *>(malloc(nsites*sizeof(int)));
+-  stack = static_cast<int *>(malloc(nsites*sizeof(int)));
+-  if(!spin || !stack)
++  my_stack = static_cast<int *>(malloc(nsites*sizeof(int)));
++  if(!spin || !my_stack)
+   {
+     printf("\n\tMemory allocation failure, program exits!\n");
+     exit(-1);
diff --git a/math/sprng/files/patch-TESTS_wolff.cpp b/math/sprng/files/patch-TESTS_wolff.cpp
new file mode 100644
index 000000000000..7b5fcda07c83
--- /dev/null
+++ b/math/sprng/files/patch-TESTS_wolff.cpp
@@ -0,0 +1,37 @@
+--- TESTS/wolff.cpp.orig	2011-08-06 15:58:04 UTC
++++ TESTS/wolff.cpp
+@@ -14,7 +14,7 @@ using namespace std;
+ 
+ /*#define PARALLEL*/
+ 
+-int lattice_size, *spin, *stack, nsites;
++int lattice_size, *spin, *my_stack, nsites;
+ Sprng **genptr;			/* array of random number generators */
+ int exponent, mask; /* Used for efficiency purposes */
+ double prob;
+@@ -73,12 +73,12 @@ void Single_Cluster_Update(void) /* update lattice spi
+ 	if (genptr[i]->sprng() > prob)
+ 	  continue;
+ 	spin[nnJ]=-spin[nnJ];
+-	stack[++Ipt]=nnJ;
++	my_stack[++Ipt]=nnJ;
+       }
+     
+     if(Ipt>=0)
+       {
+-	i=stack[Ipt];
++	i=my_stack[Ipt];
+ 	Ipt--;
+       }
+     else i=-1;
+@@ -216,8 +216,8 @@ void minitialize(int rng_type, int seed, int param, in
+   
+ 
+   spin = static_cast<int *>(malloc(nsites*sizeof(int)));
+-  stack = static_cast<int *>(malloc(nsites*sizeof(int)));
+-  if(!spin || !stack)
++  my_stack = static_cast<int *>(malloc(nsites*sizeof(int)));
++  if(!spin || !my_stack)
+   {
+     printf("\n\tMemory allocation failure, program exits!\n");
+     exit(-1);
diff --git a/math/sprng/files/patch-TESTS_wolfftest.cpp b/math/sprng/files/patch-TESTS_wolfftest.cpp
new file mode 100644
index 000000000000..dc897c35383e
--- /dev/null
+++ b/math/sprng/files/patch-TESTS_wolfftest.cpp
@@ -0,0 +1,37 @@
+--- TESTS/wolfftest.cpp.orig	2009-06-13 21:46:10 UTC
++++ TESTS/wolfftest.cpp
+@@ -14,7 +14,7 @@ using namespace std;
+ 
+ /*#define PARALLEL*/
+ 
+-int lattice_size, *spin, *stack, nsites;
++int lattice_size, *spin, *my_stack, nsites;
+ Sprng **genptr;			/* array of random number generators */
+ int exponent, mask; /* Used for efficiency purposes */
+ double prob;
+@@ -74,12 +74,12 @@ void Single_Cluster_Update(void) /* update lattice spi
+ 	if (genptr[i]->sprng() > prob)
+ 	  continue;
+ 	spin[nnJ]=-spin[nnJ];
+-	stack[++Ipt]=nnJ;
++	my_stack[++Ipt]=nnJ;
+       }
+     
+     if(Ipt>=0)
+       {
+-	i=stack[Ipt];
++	i=my_stack[Ipt];
+ 	Ipt--;
+       }
+     else i=-1;
+@@ -217,8 +217,8 @@ void minitialize(int rng_type, int seed, int param, in
+   
+ 
+   spin = static_cast<int *>(malloc(nsites*sizeof(int)));
+-  stack = static_cast<int *>(malloc(nsites*sizeof(int)));
+-  if(!spin || !stack)
++  my_stack = static_cast<int *>(malloc(nsites*sizeof(int)));
++  if(!spin || !my_stack)
+   {
+     printf("\n\tMemory allocation failure, program exits!\n");
+     exit(-1);