Changeset c232af in git for Singular/fglmhom.cc
- Timestamp:
- Aug 14, 2000, 2:58:28 PM (24 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- d26c2e9dd38f1531c0e77c38e6177109182b5bca
- Parents:
- 4697a8a1ccbf49d0048033ea29c651e3966ba729
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/fglmhom.cc
r4697a8a rc232af 1 1 // emacs edit mode for this file is -*- C++ -*- 2 // $Id: fglmhom.cc,v 1.1 5 1999-11-15 17:20:02obachman Exp $2 // $Id: fglmhom.cc,v 1.16 2000-08-14 12:56:15 obachman Exp $ 3 3 4 4 /**************************************** … … 26 26 #include "febase.h" 27 27 #include "maps.h" 28 #include "mmemory.h"28 #include <omalloc.h> 29 29 #include "fglm.h" 30 30 #include "fglmvec.h" … … 167 167 // Expand array using Singulars ReAlloc function 168 168 dat->monlist= 169 (homogElem * ) ReAlloc( dat->monlist,169 (homogElem * )omReallocSize( dat->monlist, 170 170 (dat->monlistmax)*sizeof( homogElem ), 171 171 (dat->monlistmax+dat->monlistblock) * sizeof( homogElem ) ); … … 215 215 mapMonoms( ring oldRing, homogData & dat ) 216 216 { 217 int * vperm = (int *) Alloc( (currRing->N + 1)*sizeof(int) );217 int * vperm = (int *)omAlloc( (currRing->N + 1)*sizeof(int) ); 218 218 maFindPerm( oldRing->names, oldRing->N, NULL, 0, currRing->names, currRing->N, NULL, 0, vperm, NULL ); 219 219 //nSetMap( oldRing->ch, oldRing->parameter, oldRing->P, oldRing->minpoly ); … … 353 353 int s; 354 354 dat.sourceIdeal= sourceIdeal; 355 dat.sourceHeads= (doublepoly *) Alloc( IDELEMS( sourceIdeal ) * sizeof( doublepoly ) );355 dat.sourceHeads= (doublepoly *)omAlloc( IDELEMS( sourceIdeal ) * sizeof( doublepoly ) ); 356 356 for ( s= IDELEMS( sourceIdeal ) - 1; s >= 0; s-- ) { 357 357 dat.sourceHeads[s].sm= pHead( (sourceIdeal->m)[s] ); … … 362 362 363 363 // Map the sourceHeads to the destRing 364 int * vperm = (int *) Alloc( (sourceRing->N + 1)*sizeof(int) );364 int * vperm = (int *)omAlloc( (sourceRing->N + 1)*sizeof(int) ); 365 365 maFindPerm( sourceRing->names, sourceRing->N, NULL, 0, currRing->names, 366 366 currRing->N, NULL, 0, vperm, NULL, currRing->ch); … … 381 381 dat.monlistmax= dat.monlistblock; 382 382 #ifdef HAVE_EXPLICIT_CONSTR 383 dat.monlist= (homogElem *) Alloc( dat.monlistmax*sizeof( homogElem ) );383 dat.monlist= (homogElem *)omAlloc( dat.monlistmax*sizeof( homogElem ) ); 384 384 int j; 385 385 for ( j= dat.monlistmax - 1; j >= 0; j-- ) dat.monlist[j].homogElem(); … … 412 412 413 413 #ifdef HAVE_EXPLICIT_CONSTR 414 Free( (ADDRESS)dat.monlist, dat.monlistmax*sizeof( homogElem ) );414 omFreeSize( (ADDRESS)dat.monlist, dat.monlistmax*sizeof( homogElem ) ); 415 415 #else 416 416 delete [] dat.monlist;
Note: See TracChangeset
for help on using the changeset viewer.