View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0002134 | JEDI VCL | 00 JVCL Components | public | 2004-09-10 01:29 | 2006-04-03 00:53 |
| Reporter | maxp | Assigned To | |||
| Priority | normal | Severity | major | Reproducibility | always |
| Status | closed | Resolution | open | ||
| Product Version | |||||
| Target Version | Fixed in Version | ||||
| Summary | 0002134: JvInterpreter incorrectly treats float in Open Arrays (using floats in open array parameters leads to AV) | ||||
| Description | TJvInterpreterArgs.OpenArray method (based on V2OA procedure) incorrectly treats Float arguments. See V2OA fragment: ... case TVarData(V[I]).VType of ... varDouble, varCurrency: begin OAValues[I] := V[I]; OA[I].VExtended := TVarData(V[I]).VPointer; //Line(*) OA[I].VType := vtExtended; end; ... I think Line(*) is completely wrong: OA[I].VExtended expects PExtended value (reference to Extended type) but gets invalid pointer. Variant cannot contain information of Extended type so in this realization of V2OA procedure it is impossibly to pass float values at all. I it would be better to remove this lines (replace them with something like 'Not Implemented') error then keep certainly wrong piece of code. | ||||
| Additional Information | to see the bug try to execute JvInterpreter script and you should get an AV: unit TestUnit; // JvInterpreter unit! var A: Double; I: Integer; procedure Main; begin A := 3.1415926; I := 31415926; ShowMessage(Format('%f', [A])); end; end. I'v attached this example as JvInterpreterTest.zip | ||||
| Tags | No tags attached. | ||||
|
2004-09-10 01:29
|
JvInterpreterTest.ZIP (1,527 bytes) |
|
|
Could anyone have a look at this ? |
|
|
See issue 0002675, it has a solution for it, and the solution will be in CVS as soon as it's back online: http://sourceforge.net/docs/A04/ |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2004-09-10 01:29 | maxp | New Issue | |
| 2004-09-10 01:29 | maxp | File Added: JvInterpreterTest.ZIP | |
| 2005-08-10 03:20 | obones | Note Added: 0007766 | |
| 2005-08-10 03:20 | obones | Status | new => feedback |
| 2006-04-03 00:53 | obones | Relationship added | duplicate of 0002675 |
| 2006-04-03 00:53 | obones | Status | feedback => closed |
| 2006-04-03 00:53 | obones | Note Added: 0008815 |
