ref: dd193a6e22c0911760aa56bbf0df06b4b75772ca
dir: /libmp/mpfield.c/
#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;
}