ref: e81c54ba2ecc673a4d5f8aed0e9b52841fe07b0d
dir: /libmp/port/mpfield.c/
#include "os.h" #include "../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 f; }