Changeset ff7e529 in git
- Timestamp:
- Mar 10, 2007, 2:02:00 PM (17 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 532688913ca1a3834971cb7144d0ae484dcd34af
- Parents:
- 01ad008855f5c98da99460a9bb73ac58286cec20
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/subexpr.cc
r01ad00 rff7e529 5 5 * ABSTRACT: handling of leftv 6 6 */ 7 /* $Id: subexpr.cc,v 1.9 6 2007-03-08 12:28:52Singular Exp $ */7 /* $Id: subexpr.cc,v 1.97 2007-03-10 13:02:00 Singular Exp $ */ 8 8 9 9 #include <stdlib.h> … … 283 283 case MODUL_CMD: 284 284 case IDEAL_CMD: 285 if ((((long)data) & 3)==0) 286 { 287 if (r!=NULL) id_Delete((ideal *)(&data),r); 288 } 289 else 290 { 291 //printf("ptr err.\n"); 292 data=NULL; 293 } 285 if ((((long)data) & 3)==0) 286 { 287 if(r!=NULL) id_Delete((ideal *)(&data),r); 288 } 294 289 break; 295 290 case STRING_CMD: 296 291 omFree((ADDRESS)data); 297 292 break; 298 293 case POLY_CMD: … … 360 355 #endif 361 356 } /* end switch: (rtyp) */ 362 //data=NULL; 357 //data=NULL; // will be done by Init() at the end 363 358 } 364 359 if (attribute!=NULL) … … 387 382 case LIB_CMD: 388 383 case 0: 389 //attribute=NULL; 384 //attribute=NULL; // will be done by Init() at the end 390 385 break; 391 386 default: … … 408 403 e=h; 409 404 } 410 //rtyp=NONE; 405 //rtyp=NONE; // will be done by Init() at the end 411 406 if (next!=NULL) 412 407 { … … 1250 1245 // Print("setting req_packhdl to %s\n",IDID(packhdl)); 1251 1246 v->req_packhdl = IDPACKAGE(packhdl); 1252 } 1247 } 1253 1248 else v->req_packhdl = currPack; 1254 1249 // if (v->req_packhdl!=basePack) … … 1425 1420 h=basePack->idroot->get(id,myynest); 1426 1421 if (h!=NULL) 1427 { 1422 { 1428 1423 if (id!=IDID(h)) omFree((ADDRESS)id); 1429 1424 v->rtyp = IDHDL;
Note: See TracChangeset
for help on using the changeset viewer.