Changeset 0e760d0 in git for Singular/gnumpfl.cc
- Timestamp:
- Jul 2, 1999, 6:14:41 PM (25 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- bad4044b17c2db928e269ccf80888ade701dae6c
- Parents:
- 78315991a696a660dd3d43059499d754ccf8c669
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/gnumpfl.cc
r7831599 r0e760d0 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: gnumpfl.cc,v 1. 6 1999-07-02 15:01:42wenk Exp $ */4 /* $Id: gnumpfl.cc,v 1.7 1999-07-02 16:14:39 wenk Exp $ */ 5 5 /* 6 6 * ABSTRACT: computations with GMP floating-point numbers … … 373 373 char *start= s; 374 374 375 //Print("%s\n",s); 376 375 377 s= ngfEatFloatNExp( s ); 376 378 377 if (*s=='\0') 379 if (*s=='\0') // 0 378 380 { 379 381 if ( *(gmp_float**)a == NULL ) (*(gmp_float**)a)= new gmp_float(); 380 382 (*(gmp_float**)a)->setFromStr(start); 381 383 } 382 else if (s==start) 384 else if (s==start) // 1 383 385 { 384 386 if ( *(gmp_float**)a != NULL ) delete (*(gmp_float**)a); … … 387 389 else 388 390 { 391 if ( *s == '/' ) { 392 } 389 393 char c=*s; 390 394 *s='\0'; … … 393 397 *s=c; 394 398 } 399 400 401 395 402 return s; 396 403 }
Note: See TracChangeset
for help on using the changeset viewer.