Changeset c4b69a in git


Ignore:
Timestamp:
May 14, 1998, 12:02:39 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4188d308699580d975efd0f6cca8dcb41c396f70')
Children:
cc1af47e33536635353285fc4554d077c82e4088
Parents:
12bb45dd1793c53f0cae4d1f1f743234e93e882c
Message:
* hannes: a ring with a coeff. field GF(p,n) cannot be constructed
          without gftables


git-svn-id: file:///usr/local/Singular/svn/trunk@1756 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • Singular/ChangeLog

    r12bb45 rc4b69a  
     1Thu May 14 12:01:53 MET DST 1998 hannes
     2* a ring with a coeff. field GF(p,n) cannot be constructed
     3  without gftables
    14Wed May 13 16:52:09 MET DST 1998 hannes
    25        * changed syntax of NOT (does not require () any more)
  • Singular/ffields.cc

    r12bb45 rc4b69a  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ffields.cc,v 1.12 1998-04-21 10:48:56 obachman Exp $ */
     4/* $Id: ffields.cc,v 1.13 1998-05-14 10:02:31 Singular Exp $ */
    55/*
    66* ABSTRACT: finite fields with a none-prime number of elements (via tables)
     
    626626    {
    627627      sprintf(buf,"../gftables/%d",nfCharQ);
    628       fp = feFopen(buf,"r",NULL,TRUE);
     628      fp = feFopen(buf,"r",NULL,FALSE);
    629629      if (fp == NULL)
    630630      {
  • Singular/grammar.y

    r12bb45 rc4b69a  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.33 1998-05-13 14:53:44 Singular Exp $ */
     4/* $Id: grammar.y,v 1.34 1998-05-14 10:02:35 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
     
    11901190          {
    11911191            //noringvars = FALSE;
    1192             if(!rInit($2.name,        /* ringname */
    1193                      &$4,            /* characteristik and list of parameters*/
    1194                      &$6,            /* names of ringvariables */
    1195                      &$8,            /* ordering */
    1196                      FALSE))         /* is not a dring */
    1197             {
    1198               MYYERROR("cannot make ring");
    1199             }
     1192            idhdl b=
     1193            rInit($2.name,        /* ringname */
     1194                  &$4,            /* characteristik and list of parameters*/
     1195                  &$6,            /* names of ringvariables */
     1196                  &$8,            /* ordering */
     1197                  FALSE);         /* is not a dring */
    12001198            $4.CleanUp();
    12011199            $6.CleanUp();
    12021200            $8.CleanUp();
     1201            if (b==NULL)
     1202            {
     1203              MYYERROR("cannot make ring");
     1204            }
    12031205          }
    12041206        | ringcmd1 elemexpr
     
    12161218            idhdl h;
    12171219            //noringvars = FALSE;
    1218             if(!(h=rInit($3.name,    /* ringname */
    1219                      &$5,            /* characteristik and list of parameters*/
    1220                      &$7,            /* names of ringvariables */
    1221                      &$9,            /* ordering */
    1222                      TRUE)))         /* is a dring */
    1223             {
    1224               YYERROR;
    1225             }
    1226             setFlag(h,FLAG_DRING);
    1227             rDSet();
     1220            h=rInit($3.name,    /* ringname */
     1221                   &$5,            /* characteristik and list of parameters*/
     1222                   &$7,            /* names of ringvariables */
     1223                   &$9,            /* ordering */
     1224                   TRUE));         /* is a dring */
    12281225            $5.CleanUp();
    12291226            $7.CleanUp();
    12301227            $9.CleanUp();
     1228            if(h==NULL)
     1229            {
     1230              YYERROR;
     1231            }
     1232            setFlag(h,FLAG_DRING);
     1233            rDSet();
    12311234            #endif
    12321235          }
  • Singular/iparith.cc

    r12bb45 rc4b69a  
    32263226,{jjPRINT_MA,   PRINT_CMD,       NONE,           MATRIX_CMD }
    32273227,{jjPRINT_LIST, PRINT_CMD,       NONE,           LIST_CMD }
     3228,{jjPRINT_GEN,  PRINT_CMD,       NONE,           RESOLUTION_CMD }
    32283229,{jjidMinEmbedding, PRUNE_CMD,   XS(MODUL_CMD),  MODUL_CMD }
    32293230,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     IDEAL_CMD }
  • Singular/ring.cc

    r12bb45 rc4b69a  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.23 1998-04-24 16:39:26 Singular Exp $ */
     4/* $Id: ring.cc,v 1.24 1998-05-14 10:02:39 Singular Exp $ */
    55
    66/*
     
    289289  else
    290290  {
    291     pn->CleanUp();
    292     rv->CleanUp();
    293     ord->CleanUp();
    294291    return NULL;
    295292  }
     
    332329        if(errorreported)
    333330        {
    334           errorreported=0;
    335           ch=IsPrime(ch);
     331          return NULL;
    336332        }
    337333        else
     
    408404      {
    409405        WerrorS("parameter expected");
    410         pn->CleanUp();
    411         rv->CleanUp();
    412         ord->CleanUp();
    413406        return NULL;
    414407      }
     
    475468      {
    476469        WerrorS("expected name of ring variable");
    477         sl->CleanUp();
    478         ord->CleanUp();
    479470        return NULL;
    480471      }
     
    520511    {
    521512      WerrorS("invalid combination of orderings");
    522       ord->CleanUp();
    523513      return NULL;
    524514    }
     
    636626          tmpR.block1[n]=tmpR.block0[n];
    637627          goto ord_mismatch;
    638           //Werror("mismatch of number of vars (%d) and ordering (>=%d vars)",
    639           //  tmpR.N,tmpR.block0[n]);
    640           //return NULL;
    641628        }
    642629      }
Note: See TracChangeset for help on using the changeset viewer.