gmisc.c File Reference

#include "gdtoaimp.h"

Include dependency graph for gmisc.c:

Go to the source code of this file.

Functions
void	rshift (Bigint *b, int k)
int	trailz (Bigint *b)

Function Documentation

rshift()

void rshift	(	Bigint *	b,
		int	k
	)

Definition at line 39 of file gmisc.c.

{
    ULong *x, *x1, y;
    int n;

    x = x1 = b->x;
    n = k >> kshift;
    if(n < b->wds)
    {
        ULong* xe = x + b->wds;
        x += n;
        if(k &= kmask)
        {
            n = ULbits - k;
            y = *x++ >> k;
            while(x < xe)
            {
                *x1++ = (y | (*x << n)) & ALL_ON;
                y = *x++ >> k;
            }
            if((*x1 = y) != 0)
            {
                {
                    x1++;
                }
            }
        }
        else
        {
            {
                while(x < xe)
                {
                    {
                        *x1++ = *x++;
                    }
                }
            }
        }
    }
    b->wds = (int)(x1 - b->x);
    if((b->wds) == 0)
    {
        {
            b->x[0] = 0;
        }
    }
}

References ALL_ON, kmask, kshift, ULbits, Bigint::wds, and Bigint::x.

Referenced by g_ddfmt(), gdtoa(), gethex(), rvOK(), strtodg(), and strtoIg().

trailz()

int trailz

(

Bigint *

b

)

Definition at line 92 of file gmisc.c.

{
    ULong L, *x, *xe;
    int n = 0;

    x = b->x;
    xe = x + b->wds;
    for(n = 0; x < xe && !*x; x++)
    {
        {
            n += ULbits;
        }
    }
    if(x < xe)
    {
        L = *x;
        n += lo0bits(&L);
    }
    return n;
}

References lo0bits(), ULbits, Bigint::wds, and Bigint::x.

Referenced by gdtoa(), and strtodg().