From d1a16988391d81a5a636639c6b8719e37e539dc1 Mon Sep 17 00:00:00 2001
From: Doug Torrance <dtorrance@piedmont.edu>
Date: Tue, 13 Feb 2024 21:38:17 -0500
Subject: [PATCH] Remove now-unused copy(ZZ) and copy(RR) from gmp.d

---
 M2/Macaulay2/d/gmp.d | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/M2/Macaulay2/d/gmp.d b/M2/Macaulay2/d/gmp.d
index d84c77fd29e..c6513041d8f 100644
--- a/M2/Macaulay2/d/gmp.d
+++ b/M2/Macaulay2/d/gmp.d
@@ -203,7 +203,7 @@ clear(x:RRimutable) ::= Ccode( void, "mpfi_clear(",  x, ")" );
 
 clear(z:CCmutable):void := ( clear(z.re); clear(z.im); );
 
-export copy(z:ZZ):ZZ := (
+export moveToZZ(z:ZZmutable):ZZ := (
      y := GCmalloc(ZZmutable);
      Ccode(void, "
 	  int s = z->_mp_size, ss = s>=0 ? s : -s;
@@ -212,14 +212,13 @@ export copy(z:ZZ):ZZ := (
 	  ",y,"->_mp_alloc = ss, ",y,"->_mp_size = s, ",y,"->_mp_d = p;
 	  ");
      Ccode(ZZ,y));
-export moveToZZ(z:ZZmutable):ZZ := copy(Ccode(ZZ, z));
 
 export moveToZZandclear(z:ZZmutable):ZZ := (
      w := moveToZZ(z);
      clear(z);
      w);
 
-export copy(z:RR):RR := (
+export moveToRR(z:RRmutable):RR := (
      y := GCmalloc(RRmutable);
      Ccode(void, "
   	  int limb_size = (",z,"->_mpfr_prec - 1) / GMP_NUMB_BITS + 1;
@@ -232,7 +231,6 @@ export copy(z:RR):RR := (
 	  ");
     Ccode(RR,y)
    );
-export moveToRR(z:RRmutable):RR := copy(Ccode(RR, z));
 
 export moveToRRi(z:RRimutable):RRi := (
     y := GCmalloc(RRimutable);