Changeset b38f81 in git


Ignore:
Timestamp:
Nov 7, 2013, 2:06:59 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'c987db42cd2ec943b97ac5746c99892ceddf909c')
Children:
4a4593a9cc860e3c2819808ef08faab1b9a48009
Parents:
a97ac01c3b64767f26ac2bbccd84652d536f371ddcd92ddcba49d3aa5461148604e8d6f4e99d4625
Message:
Merge pull request #416 from steenpass/defer_shutdown_sw

chg: defer shutdown in slCleanUp() and slKill()
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    rdcd92d rb38f81  
    78877887          if (check_valid(dArith2[i].valid_for,op)) break;
    78887888        }
    7889         if (TEST_V_ALLWARN)
     7889        if (traceit&TRACE_CALL)
    78907890          Print("call %s(%s,%s)\n",iiTwoOps(op),Tok2Cmdname(at),Tok2Cmdname(bt));
    78917891        if ((call_failed=dArith2[i].p(res,a,b)))
     
    79217921              if (check_valid(dArith2[i].valid_for,op)) break;
    79227922            }
    7923             if (TEST_V_ALLWARN)
     7923            if (traceit&TRACE_CALL)
    79247924              Print("call %s(%s,%s)\n",iiTwoOps(op),
    79257925              Tok2Cmdname(an->rtyp),Tok2Cmdname(bn->rtyp));
     
    80548054          if (check_valid(dArith1[i].valid_for,op)) break;
    80558055        }
    8056         if (TEST_V_ALLWARN)
     8056        if (traceit&TRACE_CALL)
    80578057          Print("call %s(%s)\n",iiTwoOps(op),Tok2Cmdname(at));
    80588058        if (r<0)
     
    81228122          else
    81238123          {
    8124             if (TEST_V_ALLWARN)
     8124            if (traceit&TRACE_CALL)
    81258125              Print("call %s(%s)\n",iiTwoOps(op),Tok2Cmdname(an->rtyp));
    81268126            if (an->Next() != NULL)
     
    82268226          if (check_valid(dArith3[i].valid_for,op)) break;
    82278227        }
    8228         if (TEST_V_ALLWARN)
     8228        if (traceit&TRACE_CALL)
    82298229          Print("call %s(%s,%s,%s)\n",
    82308230            iiTwoOps(op),Tok2Cmdname(at),Tok2Cmdname(bt),Tok2Cmdname(ct));
     
    82638263                if (check_valid(dArith3[i].valid_for,op)) break;
    82648264              }
    8265               if (TEST_V_ALLWARN)
     8265              if (traceit&TRACE_CALL)
    82668266                Print("call %s(%s,%s,%s)\n",
    82678267                  iiTwoOps(op),Tok2Cmdname(an->rtyp),
     
    84468446          if (check_valid(dArithM[i].valid_for,op)) break;
    84478447        }
    8448         if (TEST_V_ALLWARN)
     8448        if (traceit&TRACE_CALL)
    84498449          Print("call %s(... (%d args))\n", iiTwoOps(op),args);
    84508450        if (dArithM[i].p(res,a))
  • Singular/ipassign.cc

    rdcd92d rb38f81  
    900900  if (dAssign[i].res!=0)
    901901  {
    902     if (TEST_V_ALLWARN) Print("assign %s=%s\n",Tok2Cmdname(lt),Tok2Cmdname(rt));
     902    if (traceit&TRACE_ASSIGN) Print("assign %s=%s\n",Tok2Cmdname(lt),Tok2Cmdname(rt));
    903903    BOOLEAN b;
    904904    b=dAssign[i].p(ld,r,l->e);
     
    927927        {
    928928          failed= dAssign[i].p(ld,rn,l->e);
    929           if (TEST_V_ALLWARN)
     929          if (traceit&TRACE_ASSIGN)
    930930            Print("assign %s=%s ok? %d\n",Tok2Cmdname(lt),Tok2Cmdname(rn->rtyp),!failed);
    931931        }
     
    11941194    if (i>=iv->length())
    11951195    {
    1196       if (TEST_V_ALLWARN)
     1196      if (traceit&TRACE_ASSIGN)
    11971197      {
    11981198        Warn("expression list length(%d) does not match intmat size(%d)",
     
    12361236    if (i>=bim->cols()*bim->rows())
    12371237    {
    1238       if (TEST_V_ALLWARN)
     1238      if (traceit&TRACE_ASSIGN)
    12391239      {
    12401240        Warn("expression list length(%d) does not match bigintmat size(%d x %d)",
     
    15381538      if(like_lists)
    15391539      {
    1540         if (TEST_V_ALLWARN) PrintS("assign list[..]=...or similiar\n");
     1540        if (traceit&TRACE_ASSIGN) PrintS("assign list[..]=...or similiar\n");
    15411541        if (like_lists==1)
    15421542        {
     
    17201720        lm=mpNew(olm->rows(),olm->cols());
    17211721        int el;
    1722         if ((TEST_V_ALLWARN) && (num!=(el=exprlist_length(hh))))
     1722        if ((traceit&TRACE_ASSIGN) && (num!=(el=exprlist_length(hh))))
    17231723        {
    17241724          Warn("expression list length(%d) does not match matrix size(%d)",el,num);
  • Singular/ipconv.cc

    rdcd92d rb38f81  
    362362    &&(dConvertTypes[index].o_typ==outputType))
    363363    {
    364       if(TEST_V_ALLWARN)
     364      if(traceit&TRACE_CONV)
    365365      {
    366366        Print("automatic  conversion %s -> %s\n",
  • Singular/links/silink.cc

    ra97ac0 rb38f81  
    3131#include <coeffs/numbers.h>
    3232#include <misc/intvec.h>
     33#include <Singular/cntrlc.h>
    3334#include <Singular/links/ssiLink.h>
    3435#include <Singular/links/pipeLink.h>
     
    131132void slCleanUp(si_link l)
    132133{
     134  defer_shutdown++;
    133135  (l->ref)--;
    134136  if (l->ref == 0)
     
    143145    memset((void *) l, 0, sizeof(ip_link));
    144146  }
     147  defer_shutdown--;
     148  if (!defer_shutdown && do_shutdown) m2_end(1);
    145149}
    146150
    147151void slKill(si_link l)
    148152{
     153  defer_shutdown++;
    149154  slCleanUp(l);
    150155  if ((l!=NULL) &&(l->ref == 0))
    151156    omFreeBin((ADDRESS)l,  ip_link_bin);
     157  defer_shutdown--;
     158  if (!defer_shutdown && do_shutdown) m2_end(1);
    152159}
    153160
  • libpolys/reporter/reporter.h

    rdcd92d rb38f81  
    3030#define TRACE_BREAKPOINT  32
    3131#define TRACE_TMP_BREAKPOINT  64
     32#define TRACE_CALL       128
     33#define TRACE_ASSIGN     256
     34#define TRACE_CONV       512
     35
    3236
    3337#define SI_PROT_I    1
  • resources/feResource.cc

    rdcd92d rb38f81  
    7171   "%b/MOD;"
    7272   LIBEXEC_DIR "/singular/MOD;"
    73    LIB_DIR "/singular/MOD;"
     73   LIB_DIR "/singular/MOD;"   /*debian*/
    7474   "%b",
    7575   (char *)""},
     
    8080     "%b/MOD;"
    8181     LIBEXEC_DIR "/singular/MOD;"
    82      LIB_DIR "/singular/MOD;"
     82     LIB_DIR "/singular/MOD;"   /*debian*/
    8383     "%r/libexec/singular/MOD",                  (char *)""},
    8484  {"RootDir",   'r',    feResDir,   "SINGULAR_ROOT_DIR",    "%b/..",                (char *)""},
Note: See TracChangeset for help on using the changeset viewer.