| 364 | } |
| 365 | } |
| 366 | BOOLEAN killlocals_list(int v, lists L) |
| 367 | { |
| 368 | if (L==NULL) return FALSE; |
| 369 | BOOLEAN changed=FALSE; |
| 370 | int n=L->nr; |
| 371 | for(;n>=0;n--) |
| 372 | { |
| 373 | leftv h=&(L->m[n]); |
| 374 | void *d=h->data; |
| 375 | if ((h->rtyp==RING_CMD) |
| 376 | && (((ring)d)->idroot!=NULL)) |
| 377 | { |
| 378 | if (d!=currRing) {changed=TRUE;rChangeCurrRing((ring)d);} |
| 379 | killlocals0(v,&(((ring)h->data)->idroot),(ring)h->data); |
| 380 | } |
| 381 | else if (h->rtyp==LIST_CMD) |
| 382 | changed|=killlocals_list(v,(lists)d); |
| 383 | } |
| 384 | return changed; |
| 385 | } |
| 386 | void killlocals(int v) |
| 387 | { |
| 388 | BOOLEAN changed=FALSE; |
no test coverage detected