Changeset f1c62d9 in git for kernel/gfan.cc


Ignore:
Timestamp:
Sep 29, 2009, 8:03:16 AM (15 years ago)
Author:
Martin Monerjan
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
fda6e6ef5610f3872c7b9c6228cba279a73c792c
Parents:
873b573af6143fd5eea9143a547e8dce3faffcff
Message:
Minor changes in garbage collection


git-svn-id: file:///usr/local/Singular/svn/trunk@12138 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • kernel/gfan.cc

    r873b57 rf1c62d9  
    22Compute the Groebner fan of an ideal
    33$Author: monerjan $
    4 $Date: 2009-09-25 13:29:10 $
    5 $Header: /exports/cvsroot-2/cvsroot/kernel/gfan.cc,v 1.89 2009-09-25 13:29:10 monerjan Exp $
    6 $Id: gfan.cc,v 1.89 2009-09-25 13:29:10 monerjan Exp $
     4$Date: 2009-09-29 06:03:16 $
     5$Header: /exports/cvsroot-2/cvsroot/kernel/gfan.cc,v 1.90 2009-09-29 06:03:16 monerjan Exp $
     6$Id: gfan.cc,v 1.90 2009-09-29 06:03:16 monerjan Exp $
    77*/
    88
     
    6060
    6161#ifndef gfan_DEBUG
    62 #define gfan_DEBUG
     62//#define gfan_DEBUG
    6363#ifndef gfan_DEBUGLEVEL
    6464#define gfan_DEBUGLEVEL 1
     
    255255                int getUCN()
    256256                {
    257                         if(this!=NULL)
     257                        if(this!=NULL && this!=(facet *)0xfbfbfbfbfbfbfbfb)
    258258                                return this->UCN;
    259259                        else
     
    355355facet::~facet()
    356356{
    357         idDelete((ideal *)this->flipGB);
     357//      idDelete((ideal *)this->flipGB);
     358        delete this->fNormal;
     359        delete this->interiorPoint;
     360        delete this->codim2Ptr;
     361        idDelete((ideal *)&this->flipGB);
    358362        rDelete(this->flipRing);
    359363        //this=NULL;
     
    936940                                dd_FreeMatrix(ddakt);
    937941                                dd_FreePolyhedra(ddpolyh);
     942                                delete iv_intPoint;
    938943                        }//while
    939944                }
     
    11981203                        }
    11991204                        dd_MatrixAppendTo(&intPointMatrix,posRestr);
     1205                        dd_FreeMatrix(posRestr);
    12001206#ifdef gfan_DEBUG
    12011207//                      dd_WriteMatrix(stdout,intPointMatrix);
     
    12301236                        rComplete(dstRing);                                     
    12311237                        rChangeCurrRing(dstRing);
    1232                        
     1238                        rDelete(tmpRing);
     1239                        delete iv_weight;
    12331240//#ifdef gfan_DEBUG
    12341241                        rWrite(dstRing); cout << endl;
     
    12671274//#endif                       
    12681275                        rChangeCurrRing(srcRing);       //return to the ring we started the computation of flipGB in
     1276                        rDelete(dstRing);
    12691277                }//void flip(ideal gb, facet *f)
    12701278                               
     
    14231431                {                       
    14241432                        int lhs,rhs;
     1433                        bool res;
    14251434                        lhs=dotProduct(a,b)*dotProduct(a,b);
    14261435                        rhs=dotProduct(a,a)*dotProduct(b,b);
     
    14281437                        if (lhs==rhs)
    14291438                        {
    1430                                 return TRUE;
     1439                                res = TRUE;
    14311440                        }
    14321441                        else
    14331442                        {
    1434                                 return FALSE;
    1435                         }
     1443                                res = FALSE;
     1444                        }
     1445                        return res;
    14361446                }//bool isParallel
    14371447               
     
    19061916#endif
    19071917                                        rChangeCurrRing(gcAct->baseRing);
     1918                                        rDelete(rTmp);
    19081919                                        gcPtr->next=gcTmp;
    19091920                                        gcPtr=gcPtr->next;
     
    21432154                                        slAct = slHead;
    21442155                                        notParallelCtr=0;
     2156//                                      delete deleteMarker;
     2157//                                      deleteMarker=NULL;
    21452158                                        /*If slAct==NULL and fAct!=NULL
    21462159                                        we just copy all remaining facets into SLA*/
     
    22742287                                                                //update lengthOfSearchList                                     
    22752288                                                                lengthOfSearchList--;
     2289                                                                //delete slAct;
    22762290                                                                //slAct = slAct->next; //not needed, since facets are equal
    22772291                                                                //delete deleteMarker;
    2278                                                                 deleteMarker=NULL;
     2292                                                                //deleteMarker=NULL;
    22792293                                                                //fAct = fAct->next;
    22802294                                                                break;
     
    23062320                                                (not nice!) but since they are in seperate branches of the if-statement there should not
    23072321                                                be a way it gets called twice thus ommiting one facet:
    2308                                                 slAct = slAct->next;                                           
    2309                                                 delete deleteMarker;*/
     2322                                                slAct = slAct->next;*/                                         
     2323                                                //delete deleteMarker;
    23102324                                                deleteMarker=NULL;
    23112325                                                //if slAct was marked as to be deleted, delete it here!
Note: See TracChangeset for help on using the changeset viewer.