Changeset cc4553 in git
- Timestamp:
- Jan 8, 2008, 3:33:36 PM (15 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- 10b7a40b0985d3ec8886d27dedfee1fcdbaa6361
- Parents:
- f8e54578322ffb83ea92786420613e64ade26d73
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
factory/int_rat.cc
rf8e5457 rcc4553 1 1 /* emacs edit mode for this file is -*- C++ -*- */ 2 /* $Id: int_rat.cc,v 1.1 5 2008-01-07 13:33:11Singular Exp $ */2 /* $Id: int_rat.cc,v 1.16 2008-01-08 14:33:36 Singular Exp $ */ 3 3 4 4 #include <config.h> … … 230 230 if ( mpz_cmp_si( &d, 1 ) == 0 ) 231 231 { 232 mpz_clear( &d ); 232 233 if ( mpz_is_imm( &n ) ) 233 234 { 234 235 InternalCF * res = int2imm( mpz_get_si( &n ) ); 235 mpz_clear( &n ); mpz_clear( &d );236 mpz_clear( &n ); 236 237 return res; 237 238 } 238 239 else 239 240 { 240 mpz_clear( &d );241 241 return new InternalInteger( n ); 242 242 } … … 286 286 if ( mpz_cmp_si( &d, 1 ) == 0 ) 287 287 { 288 mpz_clear( &d ); 288 289 if ( mpz_is_imm( &n ) ) 289 290 { 290 291 InternalCF * res = int2imm( mpz_get_si( &n ) ); 291 mpz_clear( &n ); mpz_clear( &d );292 mpz_clear( &n ); 292 293 return res; 293 294 } 294 295 else 295 296 { 296 mpz_clear( &d );297 297 return new InternalInteger( n ); 298 298 } … … 347 347 if ( mpz_cmp_si( &d, 1 ) == 0 ) 348 348 { 349 mpz_clear( &d ); 349 350 if ( mpz_is_imm( &n ) ) 350 351 { 351 352 InternalCF * res = int2imm( mpz_get_si( &n ) ); 352 mpz_clear( &n ); mpz_clear( &d );353 mpz_clear( &n ); 353 354 return res; 354 355 } 355 356 else 356 357 { 357 mpz_clear( &d );358 358 return new InternalInteger( n ); 359 359 } … … 404 404 mpz_clear( &g1 ); mpz_clear( &g2 ); 405 405 if ( deleteObject() ) delete this; 406 if ( mpz_cmp_si( &d, 0 ) < 0 ) { 406 if ( mpz_cmp_si( &d, 0 ) < 0 ) 407 { 407 408 mpz_neg( &d, &d ); 408 409 mpz_neg( &n, &n ); … … 410 411 if ( mpz_cmp_si( &d, 1 ) == 0 ) 411 412 { 413 mpz_clear( &d ); 412 414 if ( mpz_is_imm( &n ) ) 413 415 { 414 416 InternalCF * res = int2imm( mpz_get_si( &n ) ); 415 mpz_clear( &n ); mpz_clear( &d );417 mpz_clear( &n ); 416 418 return res; 417 419 } 418 420 else 419 421 { 420 mpz_clear( &d );421 422 return new InternalInteger( n ); 422 423 } … … 640 641 if ( mpz_cmp_si( &d, 1 ) == 0 ) 641 642 { 643 mpz_clear( &d ); 642 644 if ( mpz_is_imm( &n ) ) 643 645 { 644 646 InternalCF * res = int2imm( mpz_get_si( &n ) ); 645 mpz_clear( &n ); mpz_clear( &d );647 mpz_clear( &n ); 646 648 return res; 647 649 } 648 650 else 649 651 { 650 mpz_clear( &d );651 652 return new InternalInteger( n ); 652 653 } … … 720 721 if ( mpz_cmp_si( &d, 1 ) == 0 ) 721 722 { 723 mpz_clear( &d ); 722 724 if ( mpz_is_imm( &n ) ) 723 725 { 724 726 InternalCF * res = int2imm( mpz_get_si( &n ) ); 725 mpz_clear( &n ); mpz_clear( &d );727 mpz_clear( &n ); 726 728 return res; 727 729 } 728 730 else 729 731 { 730 mpz_clear( &d );731 732 return new InternalInteger( n ); 732 733 }
Note: See TracChangeset
for help on using the changeset viewer.