Random GPF in TInvokeableVariantType.DispInvoke
Original Reporter info from Mantis: abouchez
-
Reporter name: Arnaud Bouchez
Original Reporter info from Mantis: abouchez
- Reporter name: Arnaud Bouchez
Description:
In variants.pp:
procedure TInvokeableVariantType.DispInvoke(Dest: PVarData; var Source: TVarData;
CallDesc: PCallDesc; Params: Pointer);
...
// may be function?
try
variant(dummy_data) := Unassigned;
This last line is incorrect. dummy_data is on stack so may contain garbage.
Correct code would be the cleaner (and faster):
dummy_data.VType := varEmpty;
Mantis conversion info:
- Mantis ID: 38653
- Version: 3.2.0
- Fixed in version: 3.3.1
- Fixed in revision: 49037 (#1b1e1009)
- Monitored by: » abouchez (Arnaud Bouchez)