View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0003797 | JEDI VCL | 00 JVCL Components | public | 2006-07-06 07:11 | 2006-07-06 07:17 |
| Reporter | ivan_ra | Assigned To | ivan_ra | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | Daily / GIT | ||||
| Target Version | Fixed in Version | 3.30 | |||
| Summary | 0003797: TJvInterpreter: error in sintaxis | ||||
| Description | TJvInterpreter cant interpret try-finally-end statement when last identifier in try finally section has not semicolon: try showmessage('test') // raises error finally end try showmessage('test'); // no error finally end The same thing with try-except-end statement | ||||
| Tags | No tags attached. | ||||
|
2006-07-06 07:13
|
JvInterpreter.pas.patch (635 bytes)
Index: JvInterpreter.pas
===================================================================
--- JvInterpreter.pas (revision 10759)
+++ JvInterpreter.pas (working copy)
@@ -7130,9 +7130,9 @@
end;
begin
+ NextToken;
while True do
begin
- NextToken;
case TTyp of
ttFinally:
begin
@@ -7145,7 +7145,10 @@
Exit;
end;
ttSemicolon:
- DoOnStatement;
+ begin
+ DoOnStatement;
+ NextToken;
+ end;
ttIdentifier, ttBegin, ttIf, ttWhile, ttFor, ttRepeat,
ttBreak, ttContinue, ttTry, ttRaise, ttExit, ttCase:
begin
|
|
|
fixed in SVN |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2006-07-06 07:11 | ivan_ra | New Issue | |
| 2006-07-06 07:13 | ivan_ra | File Added: JvInterpreter.pas.patch | |
| 2006-07-06 07:17 | ivan_ra | Status | new => resolved |
| 2006-07-06 07:17 | ivan_ra | Fixed in Version | => Daily / SVN |
| 2006-07-06 07:17 | ivan_ra | Resolution | open => fixed |
| 2006-07-06 07:17 | ivan_ra | Assigned To | => ivan_ra |
| 2006-07-06 07:17 | ivan_ra | Note Added: 0009776 |
