Changeset 95197e in git


Ignore:
Timestamp:
Oct 8, 2012, 11:24:42 AM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
e9927ff3cc13ebaddd8a4a7419c26390ff895c18
Parents:
db347cb0bbec256ffb358817738b700f8da08253
Message:
add: paPrint
fix: omFreeBinAddr (master)
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Singular/ipshell.cc

    rdb347cb r95197e  
    57125712  return FALSE;
    57135713}
     5714
     5715void paPrint(const char *n,package p)
     5716{
     5717  Print("%s (",n);
     5718  switch (p->language)
     5719  {
     5720    case LANG_SINGULAR: PrintS("S"); break;
     5721    case LANG_C:        PrintS("C"); break;
     5722    case LANG_TOP:      PrintS("T"); break;
     5723    case LANG_NONE:     PrintS("N"); break;
     5724    default:            PrintS("U");
     5725  }
     5726  if(p->libname!=NULL)
     5727  Print(",%s", p->libname);
     5728  PrintS(")");
     5729}

  • Singular/ipshell.h

    rdb347cb r95197e  
    239239#endif
    240240*/
    241 
    242 
    243 #endif
    244 
     241/* ================================================================== */
     242void paPrint(const char *n,package p);
     243/* ================================================================== */
     244
     245
     246#endif
     247

  • Singular/subexpr.cc

    rdb347cb r95197e  
    115115        case UNKNOWN:
    116116        case DEF_CMD:
    117         case PACKAGE_CMD:
    118117          PrintNSpaces(spaces);
    119118          PrintS("`");PrintS(n);PrintS("`");
    120119          break;
     120        case PACKAGE_CMD:
     121          PrintNSpaces(spaces);
     122          paPrint(n,(package)d);
     123          break;
    121124        case NONE:
    122125          return;
    … …  
    469472    {
    470473      map m=(map)d;
    471       omFree((ADDRESS)m->preimage);
     474      omFreeBinAddr((ADDRESS)m->preimage);
    472475      m->preimage=NULL;
    473476      /* no break: continue as IDEAL*/
    … …  
    903906            char* ns = (char*) omAlloc(strlen(s) + 10);
    904907            sprintf(ns, "link(\"%s\")", s);
    905             omFree(s);
     908            omFreeBinAddr(s);
    906909            omCheckAddr(ns);
    907910            return ns;
    … …  
    13661369  {
    13671370    if (!TEST_VERB_NSB)
    1368       Warn("%s is no standard basis",h->Name());
     1371    {
     1372      if (TEST_V_ALLWARN)
     1373        Warn("%s is no standard basis in >>%s<<",h->Name(),my_yylinebuf);
     1374      else
     1375        Warn("%s is no standard basis",h->Name());
     1376    }
    13691377    return FALSE;
    13701378  }
    … …  
    14201428        if (currRingHdl!=NULL)
    14211429        {
    1422           if (id!=IDID(currRingHdl)) omFree((ADDRESS)id);
     1430          if (id!=IDID(currRingHdl)) omFreeBinAddr((ADDRESS)id);
    14231431          h=currRingHdl;
    14241432          goto id_found;
    … …  
    14341442        if (currPackHdl!=NULL)
    14351443        {
    1436           omFree((ADDRESS)id);
     1444          omFreeBinAddr((ADDRESS)id);
    14371445          h=currPackHdl;
    14381446          goto id_found;
    … …  
    14531461      if ((h!=NULL) && (IDLEV(h)==myynest))
    14541462      {
    1455         if (id!=IDID(h)) omFree((ADDRESS)id);
     1463        if (id!=IDID(h)) omFreeBinAddr((ADDRESS)id); /*assume strlen(id) <1000 */
    14561464        goto id_found;
    14571465      }
    … …  
    14801488    if (h!=NULL)
    14811489    {
    1482       if (id!=IDID(h)) omFree((ADDRESS)id);
     1490      if (id!=IDID(h)) omFreeBinAddr((ADDRESS)id);  /*assume strlen(id) <1000 */
    14831491      goto id_found;
    14841492    }
    … …  
    14991507          v->name = id;
    15001508          #else
    1501           omFree((ADDRESS)id);
     1509          omFreeBinAddr((ADDRESS)id);
    15021510          #endif
    15031511        }
    … …  
    15371545          v->name = id;
    15381546          #else
    1539           omFree((ADDRESS)id);
     1547          omFreeBinAddr((ADDRESS)id);
    15401548          #endif
    15411549        }
    … …  
    15631571      if (strcmp(id,IDID(currRingHdl))==0)
    15641572      {
    1565         if (IDID(currRingHdl)!=id) omFree((ADDRESS)id);
     1573        if (IDID(currRingHdl)!=id) omFreeBinAddr((ADDRESS)id); /*assume strlen
     1574(id) <1000 */
    15661575        h=currRingHdl;
    15671576        goto id_found;
    … …  
    15731582      if (h!=NULL)
    15741583      {
    1575         if (id!=IDID(h)) omFree((ADDRESS)id);
     1584        if (id!=IDID(h)) omFreeBinAddr((ADDRESS)id); /*assume strlen(id) <1000 */
    15761585        v->req_packhdl=basePack;
    15771586        goto id_found;
    … …  
    15861595  if (strcmp(id,"_")==0)
    15871596  {
    1588     omFree((ADDRESS)id);
     1597    omFreeBinAddr((ADDRESS)id);
    15891598    v->Copy(&sLastPrinted);
    15901599  }
Note: See TracChangeset for help on using the changeset viewer.