Changeset 5ca9328 in git for kernel


Ignore:
Timestamp:
Jul 21, 2023, 2:09:03 PM (9 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
Children:
3ddd70d17690c54ce186c280630a2a0e67cc929f
Parents:
7205750b17d249709d23a4c99edd0a29f4c353db
Message:
fix: compile without flint
File:
1 edited

Legend:

Unmodified
Added
Removed
  • kernel/combinatorics/hilb.cc

    r720575 r5ca9328  
    771771  o_t=p_Add_q(p_One(Qt),o_t,Qt);
    772772  poly di1=p_Copy(hseries,Qt);
     773  int co;
    773774#ifdef HAVE_FLINT
    774775  poly di2;
    775776  fmpq_mpoly_ctx_t ctx;
    776777  convSingRFlintR(ctx,Qt);
    777   int co=0;
     778  co=0;
    778779  loop
    779780  {
     
    785786  }
    786787#else
    787   CanonicalForm  Di1=convSingPFactoryP(di1,Qt);
    788   CanonicalForm  O_t=convSingPFactoryP(o_t,Qt);
    789   int co=0;
    790   CanonicalForm Di2,dummy;
    791   loop
    792   {
    793     Di2=Di1/O_t;
    794     dummy=Di2*O_t;
    795     if (dummy!=Di1) break;
    796     else Di1=Di2;
    797     co++;
    798   }
    799   p_Delete(&di1,Qt);
    800   di1=convFactoryPSingP(Di1,Qt);
     788  if (di1!=NULL)
     789  {
     790    CanonicalForm  Di1=convSingPFactoryP(di1,Qt);
     791    CanonicalForm  O_t=convSingPFactoryP(o_t,Qt);
     792    CanonicalForm Di2,dummy;
     793    co=0;
     794    loop
     795    {
     796      Di2=Di1/O_t;
     797      dummy=Di2*O_t;
     798      if (dummy!=Di1) break;
     799      else Di1=Di2;
     800      co++;
     801    }
     802    p_Delete(&di1,Qt);
     803    di1=convFactoryPSingP(Di1,Qt);
     804  }
    801805#endif
    802806  p_Write(di1,Qt);
Note: See TracChangeset for help on using the changeset viewer.