Fossil SCM
th1 parse error reporting tweaks from Sergei Gavrikov.
Commit
2ba71f510583dccd40e3f4033a8c9d5620f22c28
Parent
9a7a82f64e3f994…
1 file changed
+2
M
src/th.c
+2
| --- src/th.c | ||
| +++ src/th.c | ||
| @@ -511,16 +511,18 @@ | ||
| 511 | 511 | } |
| 512 | 512 | iEnd++; |
| 513 | 513 | } |
| 514 | 514 | if( nBrace>0 || nSq>0 ){ |
| 515 | 515 | /* Parse error */ |
| 516 | + Th_SetResult(interp, "parse error", -1); | |
| 516 | 517 | return TH_ERROR; |
| 517 | 518 | } |
| 518 | 519 | } |
| 519 | 520 | |
| 520 | 521 | if( iEnd>nInput ){ |
| 521 | 522 | /* Parse error */ |
| 523 | + Th_SetResult(interp, "parse error", -1); | |
| 522 | 524 | return TH_ERROR; |
| 523 | 525 | } |
| 524 | 526 | *pnWord = iEnd; |
| 525 | 527 | return TH_OK; |
| 526 | 528 | } |
| 527 | 529 |
| --- src/th.c | |
| +++ src/th.c | |
| @@ -511,16 +511,18 @@ | |
| 511 | } |
| 512 | iEnd++; |
| 513 | } |
| 514 | if( nBrace>0 || nSq>0 ){ |
| 515 | /* Parse error */ |
| 516 | return TH_ERROR; |
| 517 | } |
| 518 | } |
| 519 | |
| 520 | if( iEnd>nInput ){ |
| 521 | /* Parse error */ |
| 522 | return TH_ERROR; |
| 523 | } |
| 524 | *pnWord = iEnd; |
| 525 | return TH_OK; |
| 526 | } |
| 527 |
| --- src/th.c | |
| +++ src/th.c | |
| @@ -511,16 +511,18 @@ | |
| 511 | } |
| 512 | iEnd++; |
| 513 | } |
| 514 | if( nBrace>0 || nSq>0 ){ |
| 515 | /* Parse error */ |
| 516 | Th_SetResult(interp, "parse error", -1); |
| 517 | return TH_ERROR; |
| 518 | } |
| 519 | } |
| 520 | |
| 521 | if( iEnd>nInput ){ |
| 522 | /* Parse error */ |
| 523 | Th_SetResult(interp, "parse error", -1); |
| 524 | return TH_ERROR; |
| 525 | } |
| 526 | *pnWord = iEnd; |
| 527 | return TH_OK; |
| 528 | } |
| 529 |