Changeset eedce96 in git


Ignore:
Timestamp:
Oct 25, 2022, 1:41:25 PM (21 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
6494278d27d1617e138006df909851e815ccfe02
Parents:
f0c08683e2be02e991de433ab791ef32c361b2d4
Message:
fix: ring R1=R2,.. with R2 a qring
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    rf0c0868 reedce96  
    28932893          TransExtInfo extParam;
    28942894          extParam.r = extRing;
    2895           assume( extRing->qideal == NULL );
    28962895
    28972896          R->cf = nInitChar(n_transExt, &extParam);
     
    58905889  else if ((pn->Typ()==RING_CMD) && (P == 1))
    58915890  {
    5892     TransExtInfo extParam;
    5893     extParam.r = (ring)pn->Data();
    5894     extParam.r->ref++;
    5895     cf = nInitChar(n_transExt, &extParam);
    5896   }
    5897   //else if ((pn->Typ()==QRING_CMD) && (P == 1)) // same for qrings - which should be fields!?
    5898   //{
    5899   //  AlgExtInfo extParam;
    5900   //  extParam.r = (ring)pn->Data();
    5901 
    5902   //  cf = nInitChar(n_algExt, &extParam);   // Q[a]/<minideal>
    5903   //}
     5891    ring r=(ring)pn->Data();
     5892    if (r->qideal==NULL)
     5893    {
     5894      TransExtInfo extParam;
     5895      extParam.r = r;
     5896      extParam.r->ref++;
     5897      cf = nInitChar(n_transExt, &extParam); // R(a)
     5898    }
     5899    else if (IDELEMS(r->qideal)==1)
     5900    {
     5901      AlgExtInfo extParam;
     5902      extParam.r=r;
     5903      extParam.r->ref++;
     5904      cf = nInitChar(n_algExt, &extParam);   // R[a]/<minideal>
     5905    }
     5906    else
     5907    {
     5908      WerrorS("algebraic extension ring must have one minpoly");
     5909      goto rInitError;
     5910    }
     5911  }
    59045912  else
    59055913  {
  • Tst/Short/bug_tr873.res.gz.uu

    rf0c0868 reedce96  
    1 begin 644 bug_tr873.res.gz
    2 M'XL("./`@F`"`V)U9U]T<C@W,RYR97,`U9'-BL(P%(7W>8J#S"*Q)1JU,T*F
    3 M68@(A<&%NAN&TC_E@G2&-N)"YMTG'6J+Z`NXRLWY;I)S<[:[9;0&H`P^H@4&
    4 MMK;R2.E`LVU+)@9.C*DDRX5FS0ICD)X.L:WF;U-9%F=9V\1V)Z8&73V3V']7
    5 MG$H+"I6F]T"3YXF.!Q*7;O,J45%YP`HAQCY/_%3X^4]O9=[RC>,KGV<W5(TE
    6 M*"^2(R*'LUZ?2-0VYY'H)>?JE\6?ZBO,V&B$X1!5D1=[-]O_Z_R1"W'?N6D[
    7 @;_R(Y[WX^CU!'Z!RF33Q-P&?:JZ$?F%_S_92J#0"````
     1begin 640 bug_tr873.res.gz
     2M'XL("&/'5V,"`V)U9U]T<C@W,RYR97,`[5--:\,P#+WG5XBR@]T:-W:7-I#%
     3MAS$*@3%HNEL9(5\MAI!MB<L.8_]]SI;8A'3[!3U)?D]^DFQI__P0/0$`$_`8
     4MW<-,M8I6,IL%SKYGN``-)K*6"N'`Z2P(`=GYE*C&WZQH77[05J7*W%@),/XM
     5MA4;6)]BQT"625&]6V!/P_LOQ4%IX+>#XVB!9*Y`A"^2=%\C%`AM^0^'3'/Q>
     6M?@LAN`2E),.DL#F8V_.QYK<$Y6.64Y!%F580:3JWN"ZZ506*L(76@U"GM.,3
     7M*?^R%'<G4EQG-;[.].4D!_82YH-9+F$^AZ8LRJ-^ZY_>T*4>\30R[B-'W>(_
     8GA6,3/VX*7TOYKY3A[SP[YER/1[<DW1J<6\1P<.-\`Q9^>?!:`P``
    89`
    910end
  • Tst/Short/bug_tr873.stat

    rf0c0868 reedce96  
    1 1 >> tst_memory_0 :: 1619181795:4202, 64 bit:4.2.0:x86_64-Linux:terra:87912
    2 1 >> tst_memory_1 :: 1619181795:4202, 64 bit:4.2.0:x86_64-Linux:terra:2150192
    3 1 >> tst_memory_2 :: 1619181795:4202, 64 bit:4.2.0:x86_64-Linux:terra:2191296
    4 1 >> tst_timer_1 :: 1619181795:4202, 64 bit:4.2.0:x86_64-Linux:terra:3
     11 >> tst_memory_0 :: 1666697059:4312, 64 bit:4.3.1:x86_64-Linux:nepomuck:87608
     21 >> tst_memory_1 :: 1666697059:4312, 64 bit:4.3.1:x86_64-Linux:nepomuck:2150192
     31 >> tst_memory_2 :: 1666697059:4312, 64 bit:4.3.1:x86_64-Linux:nepomuck:2191296
     41 >> tst_timer_1 :: 1666697059:4312, 64 bit:4.3.1:x86_64-Linux:nepomuck:2
  • Tst/Short/bug_tr873.tst

    rf0c0868 reedce96  
    22tst_init();
    33
     4ring Q1=0,i,lp;
     5qring Q2=i;
    46for(int i=1;i<5;i++)
    57{
     
    810ideal I = c;
    911std(I);
     12ring RR = Q2,(c),dp;
     13ideal I = c;
     14std(I);
     15
    1016}
    1117
Note: See TracChangeset for help on using the changeset viewer.