Fix broken bignum to uint_ptr_t conversion.

This applies only to some platforms, none of which are current
targets on which TXR is tested and released.

* mpi/mpi.c (mp_get_uinptr): Do not clobber output
accumulator in the loop body: the bits must be OR-ed
into it.

1 files changed, 1 insertions, 1 deletions

diff --git a/mpi/mpi.c b/mpi/mpi.c
index f58e9e68..96dc71d4 100644
--- a/mpi/mpi.c
+++ b/mpi/mpi.c
@@ -594,7 +594,7 @@ mp_err mp_get_uintptr(mp_int *mp, uint_ptr_t *z)
   int ix;
   int nd = USED(mp);
   for (ix = 0; ix < nd; ix++, out <<= MP_DIGIT_BIT)
-    out = DIGIT(mp, ix);
+    out |= DIGIT(mp, ix);
 #else
   out = DIGIT(mp, 0);
 #endif