Changeset 146d90 in git


Ignore:
Timestamp:
Apr 7, 2011, 4:04:52 PM (13 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4188d308699580d975efd0f6cca8dcb41c396f70')
Children:
41ead03e5a3cc4f469e143e906c9a0f995435930
Parents:
83d8d0b7e4cc03cf649a7affbe85133a3af20b04
Message:
fix list(newstruct,...)

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

Legend:

Unmodified
Added
Removed
  • Singular/blackbox.cc

    r83d8d0b r146d90  
    8484}
    8585
    86 BOOLEAN blackbox_default_OpM(int op,leftv l, leftv r)
     86BOOLEAN blackbox_default_OpM(int op,leftv res, leftv args)
    8787{
    88   return WrongOp("blackbox_OpM", op, r);
     88  if (op==LIST_CMD)
     89  {
     90    res->rtyp=LIST_CMD;
     91    return jjLIST_PL(res,args);
     92  }
     93  return WrongOp("blackbox_OpM", op, args);
    8994}
    9095
  • Singular/iparith.cc

    r83d8d0b r146d90  
    68106810  return b;
    68116811}
    6812 static BOOLEAN jjLIST_PL(leftv res, leftv v)
     6812BOOLEAN jjLIST_PL(leftv res, leftv v)
    68136813{
    68146814  int sl=0;
  • Singular/ipshell.h

    r83d8d0b r146d90  
    6868BOOLEAN jjBETTI2_ID(leftv res, leftv u, leftv v);
    6969BOOLEAN jjIMPORTFROM(leftv res, leftv u, leftv v);
     70BOOLEAN jjLIST_PL(leftv res, leftv v);
    7071
    7172BOOLEAN jjVARIABLES_P(leftv res, leftv u);
  • Singular/newstruct.cc

    r83d8d0b r146d90  
    248248    }
    249249    default:
    250       Werror("op %d not implemented for type %d",op,args->Typ());
     250      return blackbox_default_OpM(op,res,args);
    251251      break;
    252252  }
Note: See TracChangeset for help on using the changeset viewer.