Changeset a0e57c in git


Ignore:
Timestamp:
Apr 30, 2005, 5:31:34 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
41b8d6eca966bf997d7adc06331d8f4e3429c34b
Parents:
d7876453a6c1bd4effead9c82fdd613244bb025c
Message:
*hannes: fix for ringlist


git-svn-id: file:///usr/local/Singular/svn/trunk@7968 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    rd787645 ra0e57c  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipshell.cc,v 1.106 2005-04-29 16:11:12 Singular Exp $ */
     4/* $Id: ipshell.cc,v 1.107 2005-04-30 15:31:34 Singular Exp $ */
    55/*
    66* ABSTRACT:
     
    15551555  LL->Init(2);
    15561556    LL->m[0].rtyp=INT_CMD;
    1557     LL->m[0].data=(void *)si_max(R->float_len,SHORT_REAL_LENGTH);
     1557    LL->m[0].data=(void *)si_max(R->float_len,SHORT_REAL_LENGTH/2);
    15581558    LL->m[1].rtyp=INT_CMD;
    15591559    LL->m[1].data=(void *)si_max(R->float_len2,SHORT_REAL_LENGTH);
     
    16951695/* field is R or C */
    16961696{
    1697   Print("in rComposeC\n");
    16981697  // ----------------------------------------
    16991698  // 0: char/ cf - ring
    17001699  if ((L->m[0].rtyp!=INT_CMD) || (L->m[0].data!=(char *)0))
     1700  {
    17011701    Werror("invald coeff. field description, expecting 0");
    17021702    return;
     1703  }
    17031704  R->ch=-1;
    17041705  // ----------------------------------------
     
    17121713  && (r2=SHORT_REAL_LENGTH))
    17131714  {
    1714     R->float_len=0;
    1715     R->float_len2=0;
     1715    R->float_len=SHORT_REAL_LENGTH/2;
     1716    R->float_len2=SHORT_REAL_LENGTH;
    17161717  }
    17171718  else
Note: See TracChangeset for help on using the changeset viewer.