Return to dcsub.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin / dc

Annotation of coherent/d/bin/dc/dcsub.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include "bc.h"
        !             3: 
        !             4: /*
        !             5:  *     dst -= src
        !             6:  *     src freed
        !             7:  *     modelled on bcadd
        !             8:  */
        !             9: 
        !            10: dcsub(src, dst)
        !            11: register rvalue        *src, *dst;
        !            12: {
        !            13:        if (dst->scale >= src->scale)
        !            14:                rescale(src, dst->scale);
        !            15:        else
        !            16:                rescale(dst, src->scale);
        !            17:        msub(&dst->mantissa, &src->mantissa, &dst->mantissa);
        !            18:        mvfree(&src->mantissa);
        !            19: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.