Changeset b9624d6 in git for Singular/fglmgauss.cc
- Timestamp:
- Jun 4, 1998, 3:39:21 PM (26 years ago)
- Branches:
- (u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')
- Children:
- 9bc55636ce6d395563fd45ac7d2eee0dbcaf046d
- Parents:
- 87be9cbe919257412a7b85444fc35ac94702bf38
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/fglmgauss.cc
r87be9cb rb9624d6 1 1 // emacs edit mode for this file is -*- C++ -*- 2 // $Id: fglmgauss.cc,v 1. 8 1998-06-03 15:25:18 obachman Exp $2 // $Id: fglmgauss.cc,v 1.9 1998-06-04 13:39:21 wichmann Exp $ 3 3 4 4 /**************************************** … … 32 32 newfac= NULL; 33 33 } 34 #ifndef HAVE_EXPLICIT_CONSTR 35 void mac_gaussElem( const fglmVector newv, const fglmVector newp, number & newpdenom, number & newfac ) 34 35 #ifndef HAVE_EXPLICIT_CONSTR 36 gaussElem() : v(), p(), pdenom(NULL), fac(NULL) {} 37 38 void mac_gaussElem( const fglmVector newv, const fglmVector newp, number & newpdenom, number & newfac ) 36 39 { 37 40 v= newv; … … 43 46 } 44 47 #endif 48 45 49 ~gaussElem() 46 50 { … … 55 59 size= 0; 56 60 max= dimen; 61 #ifndef HAVE_EXPLICIT_CONSTR 62 elems= new gaussElem[ max+1 ]; 63 #else 57 64 elems= (gaussElem *)Alloc( (max+1)*sizeof( gaussElem ) ); 65 #endif 58 66 isPivot= (BOOLEAN *)Alloc( (max+1)*sizeof( BOOLEAN ) ); 59 67 for ( k= max; k > 0; k-- ) … … 65 73 { 66 74 int k; 75 76 #ifndef HAVE_EXPLICIT_CONSTR 77 delete [] elems; 78 #else 67 79 for ( k= size; k > 0; k-- ) 68 80 elems[k].~gaussElem(); 69 81 Free( (ADDRESS)elems, (max+1)*sizeof( gaussElem ) ); 82 #endif 83 70 84 Free( (ADDRESS)isPivot, (max+1)*sizeof( BOOLEAN ) ); 71 85 Free( (ADDRESS)perm, (max+1)*sizeof( int ) );
Note: See TracChangeset
for help on using the changeset viewer.