Changeset c90c14 in git
- Timestamp:
- Oct 5, 2016, 3:32:15 PM (8 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'fc741b6502fd8a97288eaa3eba6e5220f3c3df87')
- Children:
- 0dff7ba270d7f200f14135bad0829a80aa6ec15f
- Parents:
- 98dcd285d2f98957496ba820d4fc193859ec3c2a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/coeffs/longrat.cc
r98dcd2 rc90c14 1705 1705 } 1706 1706 mpz_init_set(u->n,b->n); 1707 u->s = 0; 1707 1708 if (GCD_NORM_COND(b,u)) { nlNormalize_Gcd(u); } 1708 else u->s = 0;1709 1709 break; 1710 1710 } … … 1756 1756 return INT_TO_SR(1); 1757 1757 } 1758 u->s = 0; 1758 1759 if (GCD_NORM_COND(b,u)) { nlNormalize_Gcd(u); } 1759 else u->s = 0;1760 1760 break; 1761 1761 } … … 1777 1777 } 1778 1778 mpz_init_set(u->n,a->n); 1779 u->s = 0; 1779 1780 if (GCD_NORM_COND(a,u)) { nlNormalize_Gcd(u); } 1780 else u->s = 0;1781 1781 break; 1782 1782 } … … 1806 1806 } 1807 1807 mpz_init_set(u->n,b->n); 1808 u->s = 0; 1808 1809 if (GCD_NORM_COND(b,u)) { nlNormalize_Gcd(u); } 1809 else u->s = 0;1810 1810 break; 1811 1811 } … … 1875 1875 // result cannot be 0, if coeffs are normalized 1876 1876 mpz_init_set(u->n,b->n); 1877 u->s=0; 1877 1878 if (GCD_NORM_COND(b,u)) { nlNormalize_Gcd(u); } 1878 else { u ->s = 0; u=nlShort1(u); }1879 else { u=nlShort1(u); } 1879 1880 break; 1880 1881 } … … 1915 1916 mpz_clear(y); 1916 1917 mpz_mul(a->n,a->n,b->n); 1918 a->s=0; 1917 1919 if (GCD_NORM_COND(b,a)) { nlNormalize_Gcd(a); } 1918 else { a ->s = 0;a=nlShort1(a);}1920 else { a=nlShort1(a);} 1919 1921 break; 1920 1922 } … … 1926 1928 mpz_add(a->z,a->z,x); 1927 1929 mpz_clear(x); 1930 a->s=0; 1928 1931 if (GCD_NORM_COND(b,a)) { nlNormalize_Gcd(a); } 1929 else { a ->s = 0; a=nlShort1(a);}1932 else { a=nlShort1(a);} 1930 1933 break; 1931 1934 } … … 1946 1949 mpz_clear(x); 1947 1950 mpz_init_set(a->n,b->n); 1951 a->s=0; 1948 1952 if (GCD_NORM_COND(b,a)) { nlNormalize_Gcd(a); } 1949 else { a ->s = 0; a=nlShort1(a);}1953 else { a=nlShort1(a);} 1950 1954 break; 1951 1955 } … … 1996 2000 } 1997 2001 mpz_init_set(u->n,b->n); 2002 u->s=0; 1998 2003 if (GCD_NORM_COND(b,u)) { nlNormalize_Gcd(u); } 1999 else u->s = 0;2000 2004 break; 2001 2005 } … … 2043 2047 } 2044 2048 mpz_init_set(u->n,a->n); 2049 u->s=0; 2045 2050 if (GCD_NORM_COND(a,u)) { nlNormalize_Gcd(u); } 2046 else u->s = 0;2047 2051 break; 2048 2052 } … … 2099 2103 return INT_TO_SR(1); 2100 2104 } 2105 u->s=0; 2101 2106 if (GCD_NORM_COND(a,u)) { nlNormalize_Gcd(u); } 2102 else u->s = 0;2103 2107 break; 2104 2108 } … … 2123 2127 } 2124 2128 mpz_init_set(u->n,a->n); 2129 u->s=0; 2125 2130 if (GCD_NORM_COND(a,u)) { nlNormalize_Gcd(u); } 2126 else u->s = 0;2127 2131 break; 2128 2132 } … … 2155 2159 } 2156 2160 mpz_init_set(u->n,b->n); 2161 u->s=0; 2157 2162 if (GCD_NORM_COND(b,u)) { nlNormalize_Gcd(u); } 2158 else u->s = 0;2159 2163 break; 2160 2164 }
Note: See TracChangeset
for help on using the changeset viewer.