Function hGetpure

kernel/combinatorics/hutil.cc:1052–1061

* a bug in Metrowerks with "lifetime analysis" *scmon hGetpure(scmon p) *{ * scmon p1, pn; * p1 = p + 1; * pn = p1 + (currRing->N); * memcpy(pn, p1, (currRing->N) * sizeof(int)); * return pn - 1; *} */

*}
*/
scmon hGetpure(scmon p)
{
  scmon p1 = p;
  scmon pn;
  p1++;
  pn = p1;
  pn += (currRing->N);
  memcpy(pn, p1, (currRing->N) * sizeof(int));
  return pn - 1;
}