mp.c: Describe `MP' and `GF' conversion semantics.

[catacomb-python] / field.c

diff --git a/field.c b/field.c
index a18a94250b4350477b568c4b38877cd196134b61..1f316f3bd8f2fbfb9dce6ff3a30fb0a0b6f53a39 100644 (file)
--- a/field.c
+++ b/field.c
@@ -66,7 +66,7 @@ static PyObject *field_dopywrap(PyTypeObject *ty, field *f)
   fobj->ty.ht_type.tp_alloc = PyType_GenericAlloc;
   fobj->ty.ht_type.tp_free = 0;
   fobj->ty.ht_type.tp_new = fe_pynew;
   fobj->ty.ht_type.tp_alloc = PyType_GenericAlloc;
   fobj->ty.ht_type.tp_free = 0;
   fobj->ty.ht_type.tp_new = fe_pynew;

-  PyType_Ready(&fobj->ty.ht_type);
+  typeready(&fobj->ty.ht_type);

   return ((PyObject *)fobj);
 }
 
   return ((PyObject *)fobj);
 }
 


@@ -229,13 +229,7 @@ end:
 }
 
 static long fe_pyhash(PyObject *me)
 }
 
 static long fe_pyhash(PyObject *me)

-{
-  long i = mp_tolong(FE_X(me));
-  i ^= 0xdcf62d6c; /* random perturbance */
-  if (i == -1)
-    i = -2;
-  return (i);
-}
+  { return (mphash(FE_X(me))); }

 
 static int fe_pycoerce(PyObject **x, PyObject **y)
 {
 
 static int fe_pycoerce(PyObject **x, PyObject **y)
 {


@@ -261,10 +255,12 @@ end:
 static PyObject *fe_pyint(PyObject *x)
 {
   long l;
 static PyObject *fe_pyint(PyObject *x)
 {
   long l;

+  PyObject *rc;

   mp *xx = F_OUT(FE_F(x), MP_NEW, FE_X(x));
   mp *xx = F_OUT(FE_F(x), MP_NEW, FE_X(x));

-  if (mp_tolong_checked(xx, &l)) { MP_DROP(xx); return (0); }
+  if (!mp_tolong_checked(xx, &l, 0)) rc = PyInt_FromLong(l);
+  else rc = mp_topylong(xx);

   MP_DROP(xx);
   MP_DROP(xx);

-  return (PyInt_FromLong(l));
+  return (rc);

 }
 
 static PyObject *fe_pylong(PyObject *x)
 }
 
 static PyObject *fe_pylong(PyObject *x)


@@ -341,8 +337,8 @@ static PyObject *feget__value(PyObject *me, void *hunoz)
 static PyGetSetDef fe_pygetset[] = {
 #define GETSETNAME(op, name) fe##op##_##name
   GET  (field,         "X.field -> field containing X")
 static PyGetSetDef fe_pygetset[] = {
 #define GETSETNAME(op, name) fe##op##_##name
   GET  (field,         "X.field -> field containing X")

-  GET  (value,         "X.value -> `natural' integer representation of X")
-  GET  (_value,        "X._value -> internal integer representation of X")
+  GET  (value,         "X.value -> `natural' MP/GF representation of X")
+  GET  (_value,        "X._value -> internal MP/GF representation of X")

 #undef GETSETNAME
   { 0 }
 };
 #undef GETSETNAME
   { 0 }
 };


@@ -956,7 +952,7 @@ static PyObject *meth__Field_parse(PyObject *me, PyObject *arg)
   qd.p = p;
   qd.e = 0;
   if ((f = field_parse(&qd)) == 0)
   qd.p = p;
   qd.e = 0;
   if ((f = field_parse(&qd)) == 0)

-    SYNERR(qd.e);
+    VALERR(qd.e);

   rc = Py_BuildValue("(Ns)", field_pywrap(f), qd.p);
 end:
   return (rc);
   rc = Py_BuildValue("(Ns)", field_pywrap(f), qd.p);
 end:
   return (rc);