Fossil SCM
For the TH1 unset command, simplify removal of variable from the call frame.
Commit
95292a13fa083dac2bf1b53765671873c462fdac
Parent
1aeb2726b027788…
1 file changed
+1
-1
M
src/th.c
+1
-1
| --- src/th.c | ||
| +++ src/th.c | ||
| @@ -1338,11 +1338,11 @@ | ||
| 1338 | 1338 | Th_Variable *pValue2 = find.pValueEntry->pData; |
| 1339 | 1339 | Th_HashFind(interp, pValue2->pHash, find.zElem, find.nElem, -1); |
| 1340 | 1340 | } |
| 1341 | 1341 | } |
| 1342 | 1342 | if( !find.zElem ){ |
| 1343 | - thFindValue(interp, zVar, nVar, -1, 1, 1, 0); | |
| 1343 | + Th_HashFind(interp, interp->pFrame->paVar, zVar, nVar, -1); | |
| 1344 | 1344 | } |
| 1345 | 1345 | return rc; |
| 1346 | 1346 | } |
| 1347 | 1347 | |
| 1348 | 1348 | /* |
| 1349 | 1349 |
| --- src/th.c | |
| +++ src/th.c | |
| @@ -1338,11 +1338,11 @@ | |
| 1338 | Th_Variable *pValue2 = find.pValueEntry->pData; |
| 1339 | Th_HashFind(interp, pValue2->pHash, find.zElem, find.nElem, -1); |
| 1340 | } |
| 1341 | } |
| 1342 | if( !find.zElem ){ |
| 1343 | thFindValue(interp, zVar, nVar, -1, 1, 1, 0); |
| 1344 | } |
| 1345 | return rc; |
| 1346 | } |
| 1347 | |
| 1348 | /* |
| 1349 |
| --- src/th.c | |
| +++ src/th.c | |
| @@ -1338,11 +1338,11 @@ | |
| 1338 | Th_Variable *pValue2 = find.pValueEntry->pData; |
| 1339 | Th_HashFind(interp, pValue2->pHash, find.zElem, find.nElem, -1); |
| 1340 | } |
| 1341 | } |
| 1342 | if( !find.zElem ){ |
| 1343 | Th_HashFind(interp, interp->pFrame->paVar, zVar, nVar, -1); |
| 1344 | } |
| 1345 | return rc; |
| 1346 | } |
| 1347 | |
| 1348 | /* |
| 1349 |