shithub: drawterm

ref: 31d7a7a1b23f7c7a9908c572cc7a1a25b8c6aca2
dir: /libmp/mpfield.c/

View raw version 
#include "os.h"
#include <mp.h>
#include "dat.h"

mpint*
mpfield(mpint *N)
{
	Mfield *f;

	if(N == nil || N->flags & (MPfield|MPstatic))
		return N;
	if((f = cnfield(N)) != nil)
		goto Exchange;
	if((f = gmfield(N)) != nil)
		goto Exchange;
	return N;
Exchange:
	setmalloctag(f, getcallerpc(&N));
	mpfree(N);
	return (mpint*)f;
}