Changeset 27afa1 in git


Ignore:
Timestamp:
Jan 18, 2007, 2:29:39 PM (17 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
2a38938492546de508a73077c8791bf124d3edd5
Parents:
b533b3485b6a73ce0d27992c22e0a15f371e296c
Message:
*hannes: imap ->fetch in rCompose


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

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    rb533b3 r27afa1  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipshell.cc,v 1.150 2007-01-16 14:35:59 Singular Exp $ */
     4/* $Id: ipshell.cc,v 1.151 2007-01-18 13:29:39 Singular Exp $ */
    55/*
    66* ABSTRACT:
     
    20792079        if (par_perm_size!=0)
    20802080          par_perm=(int *)omAlloc0(par_perm_size*sizeof(int));
     2081        int i;
     2082        #if 0
     2083        // use imap:
    20812084        maFindPerm(orig_ring->names,orig_ring->N,orig_ring->parameter,orig_ring->P,
    20822085          currRing->names,currRing->N,currRing->parameter, currRing->P,
    20832086          perm,par_perm, currRing->ch);
     2087        #else
     2088        // use fetch
     2089        if (par_perm_size!=0)
     2090          for(i=si_min(rPar(orig_ring),rPar(currRing))-1;i>=0;i--) par_perm[i]=-(i+1);
     2091        for(i=si_min(orig_ring->N,pVariables);i>0;i--) perm[i]=i;
     2092        #endif
    20842093        ideal dest_id=idInit(IDELEMS(q),1);
    2085         int i;
    20862094        for(i=IDELEMS(q)-1; i>=0; i--)
    20872095        {
Note: See TracChangeset for help on using the changeset viewer.