Return to dcsub.c CVS log

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

coherent

#include <stdio.h>
#include "bc.h"

/*
 *	dst -= src
 *	src freed
 *	modelled on bcadd
 */

dcsub(src, dst)
register rvalue	*src, *dst;
{
	if (dst->scale >= src->scale)
		rescale(src, dst->scale);
	else
		rescale(dst, src->scale);
	msub(&dst->mantissa, &src->mantissa, &dst->mantissa);
	mvfree(&src->mantissa);
}

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