Changeset bf0f28 in git
- Timestamp:
- May 14, 2020, 12:00:21 PM (4 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 88534e9b307008083cf06d2679d5c1d9bfd85a7d
- Parents:
- 03cd0d95921592b8960ff606db1dc7a40991d39f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/nc/old.gring.cc
r03cd0d rbf0f28 2717 2717 assume( !((DDD != NULL) && (DDN != NULL)) ); // at most one data about tails (D). 2718 2718 2719 // ring save = currRing;2720 // if( save != curr )2721 // rChangeCurrRing(curr);2722 2723 2724 2719 #if OUTPUT 2725 2720 if( CCC != NULL ) … … 2746 2741 WarnS("going to redefine the algebra structure"); 2747 2742 2748 // if( currRing != r )2749 // rChangeCurrRing(r);2750 2751 2743 matrix CC = NULL; 2752 2744 poly CN = NULL; … … 2779 2771 { 2780 2772 Werror("Square %d x %d matrix expected", r->N, r->N); 2781 2782 // if( currRing != save )2783 // rChangeCurrRing(save);2784 2773 return TRUE; 2785 2774 } … … 2798 2787 { 2799 2788 Werror("Square %d x %d matrix expected",r->N,r->N); 2800 2801 // if( currRing != save )2802 // rChangeCurrRing(save);2803 2789 return TRUE; 2804 2790 } … … 2823 2809 { 2824 2810 WerrorS("Incorrect input : zero coefficients are not allowed"); 2825 2826 // if( currRing != save )2827 // rChangeCurrRing(save);2828 2811 return TRUE; 2829 2812 } … … 2847 2830 #endif 2848 2831 2849 } else2850 if ( (CN == NULL) && (CC != NULL) ) /* copy matrix C */2832 } 2833 else if ( (CN == NULL) && (CC != NULL) ) /* copy matrix C */ 2851 2834 { 2852 2835 /* analyze C */ … … 2881 2864 } 2882 2865 2883 2884 2866 if ( qN == NULL ) /* check the consistency: Cij!=0 */ 2885 2867 // find also illegal pN 2886 2868 { 2887 2869 WerrorS("Incorrect input : matrix of coefficients contains zeros in the upper triangle"); 2888 2889 // if( currRing != save )2890 // rChangeCurrRing(save);2891 2870 return TRUE; 2892 2871 } … … 2988 2967 2989 2968 WerrorS("Matrix of polynomials violates the ordering condition"); 2990 2991 // if( currRing != save )2992 // rChangeCurrRing(save);2993 2969 return TRUE; 2994 2970 } … … 3018 2994 3019 2995 r->ext_ref=NULL; 3020 3021 // if( currRing != save )3022 // rChangeCurrRing(save);3023 2996 3024 2997 return gnc_InitMultiplication(r, bSetupQuotient);
Note: See TracChangeset
for help on using the changeset viewer.