Changeset 75582e in git

Timestamp:

Apr 10, 2024, 11:12:22 AM (4 weeks ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '4bd32dfef92ec9f5ed8dceee82d14318ae147107')

Children:

77d0bf735657ddd72e8000512e173a937c1e18bf

Parents:

806aa6c0fd11dd028cc4613b3207981bf99cd82a

Message:

fix: assign number -> bigint

Files:

• Singular/ipassign.cc (modified) (2 diffs)
• Tst/Short/bug_tr844.res.gz.uu (modified) (1 diff)
• Tst/Short/bug_tr844.stat (modified) (1 diff)

Singular/ipassign.cc

@@ -18 +18 @@
 #include "coeffs/numbers.h"
 #include "coeffs/bigintmat.h"
+#include "coeffs/longrat.h"
 
 
@@ -710 +711 @@
   number p=(number)a->Data();
   number pp=NULL;
-  if (rField_is_Q(currRing))
-    pp=nCopy(p);
-  else if (rField_is_Z(currRing))
+  if (currRing->cf->rep==n_rep_gap_rat)
+  {
+    if (SR_HDL(a) & SR_INT) pp=p;
+    else if (p->s==3) pp=nCopy(p);
+    else
+    {
+      WerrorS("cannot assign to bigint");
+      return TRUE;
+    }
+  }
+  else if (currRing->cf->rep==n_rep_gmp)
     pp=coeffs_BIGINT->cfInitMPZ((mpz_ptr)p,coeffs_BIGINT);
   else

Tst/Short/bug_tr844.res.gz.uu

@@ -1 +1 @@
 begin 640 bug_tr844.res.gz
-M'XL("/Q5%68"`V)U9U]T<C@T-"YR97,`=9!/"X)`$,7O?HJ'=%"PM57+0II#
-M=!%"$#MU$:60A5I"-^KCM_YA[=)IAO=[C\=,<3ZF&0!..*4'V*I3["YJ.[&*
-MB00$+99""N6XB=5/$*%^-:5JMU'$Y.W-.E4IDP@)9H\8?!^/ZHE\21>G%HV0
-MRC5XS=`*V:#=Y[GW\:[/N7=#T%;(68EUZY!'-HM;@L2^MSJQ'[I)'P@,W1$R
-J3<?89,A^#'PU&OY0/E)-3"$/YNMXR(;?]->_.H>[R<+Z`AS"*>!1`0``
+M'XL("+]7%F8"`V)U9U]T<C@T-"YR97,`=9!?2\,P%,7?^RD.PX<69FK_Z*9A
+M$<27@13*?/)E:[M8`C,928I^?-.EIGOQ*3?G=\ZY<'?OK]L*0,;PMGW!PAI+
+M3J)=T&@WD9S!B7LAA8T3&HTO&$,[]'NKUV5))/\FQC8V)`J&,)<$:8JOYHSZ
+MEGW$K>B%M$G`]P1:R!YZ4]?+G^7Q/.]]8'!6R%E9N:V7/*I97#-(;$9KO$J+
+MA(Z!/-!'ALI1'YL,U94AN_.&?VCFJ2,T<FW/Z!HIE45CC.@EK)J:/>1:*PW5
+M=8/6_.@ZX;XM_U2:PS>>A.2N]0F'O]I#V)7/5\L*<KGY>-7!Q%E";Z)?0$T(
+%;*D!````
 `
 end

Tst/Short/bug_tr844.stat

@@ -1 @@
-1 >> tst_memory_0 :: 1712674300:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:84504
-1 >> tst_memory_1 :: 1712674300:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:2150240
-1 >> tst_memory_2 :: 1712674300:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:2191344
-1 >> tst_timer_1 :: 1712674300:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:2
+1 >> tst_memory_0 :: 1712740287:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:84448
+1 >> tst_memory_1 :: 1712740287:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:2150240
+1 >> tst_memory_2 :: 1712740287:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:2191344
+1 >> tst_timer_1 :: 1712740287:44000, 64 bit:4.4.0:x86_64-Linux:nepomuck:2