Return to ispos.c CVS log

Up to [MW Coherent from dump] / coherent / d / usr / lib / libmp

coherent

#include "mprec.h"


/*
 *	Ispos returns true iff the mint pointed to by "a" is positive
 *	(ie. greater than or equal to zero).
 */

ispos(a)
register mint *a;
{
	return (a->val[a->len - 1] != NEFL);
}

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