Changeset 25ea20d in git
- Timestamp:
- Apr 23, 1999, 5:22:31 PM (25 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 84edf45dd68d5dfd0c9d370e0392d027609b08f5
- Parents:
- 71f6706ea153c065bbdd021bb4c72b845656104c
- Files:
-
- 3 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/longalg.cc
r71f6706 r25ea20d 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: longalg.cc,v 1.3 1 1999-04-17 12:30:20Singular Exp $ */4 /* $Id: longalg.cc,v 1.32 1999-04-23 15:22:25 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: algebraic numbers … … 613 613 if (x->e[0] >= c->e[0]) 614 614 x = napRemainder(x, c); 615 if (x==NULL) 616 { 617 goto zero_divisor; 618 } 615 619 if (x->e[0]==0) 616 620 { … … 627 631 y = napCopy(c); 628 632 napDivMod(y, x, &qa, &r); 633 if (r==NULL) 634 { 635 goto zero_divisor; 636 } 629 637 if (r->e[0]==0) 630 638 { … … 642 650 x = r; 643 651 napDivMod(y, x, &q, &r); 652 if (r==NULL) 653 { 654 goto zero_divisor; 655 } 644 656 if (r->e[0]==0) 645 657 { … … 665 677 x = r; 666 678 napDivMod(y, x, &qn, &r); 679 if (r==NULL) 680 { 681 break; 682 } 667 683 if (r->e[0]==0) 668 684 { … … 687 703 qa = y; 688 704 } 705 // zero divisor found: 706 zero_divisor: 707 Werror("zero divisor found - your minpoly is not irreducible"); 708 return x; 689 709 } 690 710
Note: See TracChangeset
for help on using the changeset viewer.