public static void mpfr_custom_init_set(
	mpfr_t x,
	mpfr_kind_t kind,
	mpfr_exp_t exp,
	uint prec,
	void_ptr significand
)

Public Shared Sub mpfr_custom_init_set ( 
	x As mpfr_t,
	kind As mpfr_kind_t,
	exp As mpfr_exp_t,
	prec As UInteger,
	significand As void_ptr
)

public:
static void mpfr_custom_init_set(
	mpfr_t^ x, 
	mpfr_kind_t kind, 
	mpfr_exp_t exp, 
	unsigned int prec, 
	void_ptr significand
)

static member mpfr_custom_init_set : 
        x : mpfr_t * 
        kind : mpfr_kind_t * 
        exp : mpfr_exp_t * 
        prec : uint32 * 
        significand : void_ptr -> unit 

// Initialize a custom, 64-bit significand floating-point number, and set it to 0.
size_t size = mpfr_lib.mpfr_custom_get_size(64U);
void_ptr significand = gmp_lib.allocate(size);
gmp_lib.ZeroMemory(significand.ToIntPtr(), (int)size);
mpfr_t x = new mpfr_t();
mpfr_lib.mpfr_custom_init_set(x, mpfr_kind_t.MPFR_ZERO_KIND, 0, 64U, significand);

// Set x = 16.
Assert.IsTrue(mpfr_lib.mpfr_set_si(x, 16, mpfr_rnd_t.MPFR_RNDN) == 0);

// Assert exponent of x.
Assert.IsTrue(mpfr_lib.mpfr_custom_get_exp(x) == 5);

// Assert significand of x.
Byte[] result = new byte[] { 0, 0, 0, 0, 0, 0, 0, 0x80 };
Byte[] sp = new byte[8];
Marshal.Copy(significand.ToIntPtr(), sp, 0, 8);
Assert.IsTrue(sp.SequenceEqual(result));

// Release unmanaged memory allocated for x and significand.
mpfr_lib.mpfr_custom_clear(x);
gmp_lib.free(significand);

' Initialize a custom, 64-bit significand floating-point number, and set it to 0.
Dim size As size_t = mpfr_lib.mpfr_custom_get_size(64U)
Dim significand As void_ptr = gmp_lib.allocate(size)
gmp_lib.ZeroMemory(significand.ToIntPtr(), CType(size, Integer))
Dim x As mpfr_t = New mpfr_t()
mpfr_lib.mpfr_custom_init_set(x, mpfr_kind_t.MPFR_ZERO_KIND, 0, 64U, significand)

' Set x = 16.
Assert.IsTrue(mpfr_lib.mpfr_set_si(x, 16, mpfr_rnd_t.MPFR_RNDN) = 0)

' Assert exponent of x.
Assert.IsTrue(mpfr_lib.mpfr_custom_get_exp(x) = 5)

' Assert significand of x.
Dim result() As Byte = New Byte() { 0, 0, 0, 0, 0, 0, 0, 0x80}

Dim sp() As Byte = New Byte(8) { }
Marshal.Copy(significand.ToIntPtr(), sp, 0, 8)
Assert.IsTrue(sp.SequenceEqual(result))

' Release unmanaged memory allocated for x and significand.
mpfr_lib.mpfr_custom_clear(x)
gmp_lib.free(significand)

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.