projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a5831c4cc95c41424f23266cf849c7ba43b2fc32
[ghc-hetmet.git]
/
ghc
/
rts
/
gmp
/
mpn
/
generic
/
dump.c
1
#include <stdio.h>
2
#include "gmp.h"
3
#include "gmp-impl.h"
4
5
void
6
mpn_dump (ptr, size)
7
mp_srcptr ptr;
8
mp_size_t size;
9
{
10
if (size == 0)
11
printf ("0\n");
12
{
13
while (size)
14
{
15
size--;
16
printf ("%0*lX", (int) (2 * BYTES_PER_MP_LIMB), ptr[size]);
17
}
18
printf ("\n");
19
}
20
}