double _swapd_by_addr

(

double *

d

)

Definition at line 51 of file swap.c.

{
        double  r[2];
        register char   *p, *q;
        register int    n;

        p = (char *) &r[1];
        q = (char *) d;
        for( n = sizeof(double)+1; --n; *--p = *q++) ;

        return r[0];
}