Changeset 95197e in git for Singular/subexpr.cc
- Timestamp:
- Oct 8, 2012, 11:24:42 AM (12 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- e9927ff3cc13ebaddd8a4a7419c26390ff895c18
- Parents:
- db347cb0bbec256ffb358817738b700f8da08253
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/subexpr.cc
rdb347cb r95197e 115 115 case UNKNOWN: 116 116 case DEF_CMD: 117 case PACKAGE_CMD:118 117 PrintNSpaces(spaces); 119 118 PrintS("`");PrintS(n);PrintS("`"); 120 119 break; 120 case PACKAGE_CMD: 121 PrintNSpaces(spaces); 122 paPrint(n,(package)d); 123 break; 121 124 case NONE: 122 125 return; … … 469 472 { 470 473 map m=(map)d; 471 omFree ((ADDRESS)m->preimage);474 omFreeBinAddr((ADDRESS)m->preimage); 472 475 m->preimage=NULL; 473 476 /* no break: continue as IDEAL*/ … … 903 906 char* ns = (char*) omAlloc(strlen(s) + 10); 904 907 sprintf(ns, "link(\"%s\")", s); 905 omFree (s);908 omFreeBinAddr(s); 906 909 omCheckAddr(ns); 907 910 return ns; … … 1366 1369 { 1367 1370 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 } 1369 1377 return FALSE; 1370 1378 } … … 1420 1428 if (currRingHdl!=NULL) 1421 1429 { 1422 if (id!=IDID(currRingHdl)) omFree ((ADDRESS)id);1430 if (id!=IDID(currRingHdl)) omFreeBinAddr((ADDRESS)id); 1423 1431 h=currRingHdl; 1424 1432 goto id_found; … … 1434 1442 if (currPackHdl!=NULL) 1435 1443 { 1436 omFree ((ADDRESS)id);1444 omFreeBinAddr((ADDRESS)id); 1437 1445 h=currPackHdl; 1438 1446 goto id_found; … … 1453 1461 if ((h!=NULL) && (IDLEV(h)==myynest)) 1454 1462 { 1455 if (id!=IDID(h)) omFree ((ADDRESS)id);1463 if (id!=IDID(h)) omFreeBinAddr((ADDRESS)id); /*assume strlen(id) <1000 */ 1456 1464 goto id_found; 1457 1465 } … … 1480 1488 if (h!=NULL) 1481 1489 { 1482 if (id!=IDID(h)) omFree ((ADDRESS)id);1490 if (id!=IDID(h)) omFreeBinAddr((ADDRESS)id); /*assume strlen(id) <1000 */ 1483 1491 goto id_found; 1484 1492 } … … 1499 1507 v->name = id; 1500 1508 #else 1501 omFree ((ADDRESS)id);1509 omFreeBinAddr((ADDRESS)id); 1502 1510 #endif 1503 1511 } … … 1537 1545 v->name = id; 1538 1546 #else 1539 omFree ((ADDRESS)id);1547 omFreeBinAddr((ADDRESS)id); 1540 1548 #endif 1541 1549 } … … 1563 1571 if (strcmp(id,IDID(currRingHdl))==0) 1564 1572 { 1565 if (IDID(currRingHdl)!=id) omFree((ADDRESS)id); 1573 if (IDID(currRingHdl)!=id) omFreeBinAddr((ADDRESS)id); /*assume strlen 1574 (id) <1000 */ 1566 1575 h=currRingHdl; 1567 1576 goto id_found; … … 1573 1582 if (h!=NULL) 1574 1583 { 1575 if (id!=IDID(h)) omFree ((ADDRESS)id);1584 if (id!=IDID(h)) omFreeBinAddr((ADDRESS)id); /*assume strlen(id) <1000 */ 1576 1585 v->req_packhdl=basePack; 1577 1586 goto id_found; … … 1586 1595 if (strcmp(id,"_")==0) 1587 1596 { 1588 omFree ((ADDRESS)id);1597 omFreeBinAddr((ADDRESS)id); 1589 1598 v->Copy(&sLastPrinted); 1590 1599 }
Note: See TracChangeset
for help on using the changeset viewer.