Fossil SCM
Pulled in minor memleak fix [bee0036681].
Commit
11abffbb497d67a12b9daa24783aabd68d07da97
Parent
625ed00498b13f2…
1 file changed
+3
+3
| --- src/th_lang.c | ||
| +++ src/th_lang.c | ||
| @@ -358,10 +358,13 @@ | ||
| 358 | 358 | int nArgs = 0; |
| 359 | 359 | for(i=p->nParam+1; i<pArgs->argc; i++){ |
| 360 | 360 | Th_ListAppend(interp, &zArgs, &nArgs, pArgs->argv[i], pArgs->argl[i]); |
| 361 | 361 | } |
| 362 | 362 | Th_SetVar(interp, (const char *)"args", -1, zArgs, nArgs); |
| 363 | + if(zArgs){ | |
| 364 | + Th_Free(interp, zArgs); | |
| 365 | + } | |
| 363 | 366 | } |
| 364 | 367 | |
| 365 | 368 | Th_SetResult(interp, 0, 0); |
| 366 | 369 | return Th_Eval(interp, 0, p->zProgram, p->nProgram); |
| 367 | 370 | } |
| 368 | 371 |
| --- src/th_lang.c | |
| +++ src/th_lang.c | |
| @@ -358,10 +358,13 @@ | |
| 358 | int nArgs = 0; |
| 359 | for(i=p->nParam+1; i<pArgs->argc; i++){ |
| 360 | Th_ListAppend(interp, &zArgs, &nArgs, pArgs->argv[i], pArgs->argl[i]); |
| 361 | } |
| 362 | Th_SetVar(interp, (const char *)"args", -1, zArgs, nArgs); |
| 363 | } |
| 364 | |
| 365 | Th_SetResult(interp, 0, 0); |
| 366 | return Th_Eval(interp, 0, p->zProgram, p->nProgram); |
| 367 | } |
| 368 |
| --- src/th_lang.c | |
| +++ src/th_lang.c | |
| @@ -358,10 +358,13 @@ | |
| 358 | int nArgs = 0; |
| 359 | for(i=p->nParam+1; i<pArgs->argc; i++){ |
| 360 | Th_ListAppend(interp, &zArgs, &nArgs, pArgs->argv[i], pArgs->argl[i]); |
| 361 | } |
| 362 | Th_SetVar(interp, (const char *)"args", -1, zArgs, nArgs); |
| 363 | if(zArgs){ |
| 364 | Th_Free(interp, zArgs); |
| 365 | } |
| 366 | } |
| 367 | |
| 368 | Th_SetResult(interp, 0, 0); |
| 369 | return Th_Eval(interp, 0, p->zProgram, p->nProgram); |
| 370 | } |
| 371 |