mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-30 12:20:19 +02:00
* patch by Arnaud Bouchez: initialize dummy_data properly, resolves #38653
git-svn-id: trunk@49040 -
This commit is contained in:
parent
e99c9ddd75
commit
42f5944806
@ -4129,7 +4129,7 @@ begin
|
|||||||
if not DoProcedure(Source,method_name,args) then
|
if not DoProcedure(Source,method_name,args) then
|
||||||
// may be function?
|
// may be function?
|
||||||
try
|
try
|
||||||
variant(dummy_data) := Unassigned;
|
dummy_data.VType := varEmpty;
|
||||||
if not DoFunction(dummy_data,Source,method_name,args) then
|
if not DoFunction(dummy_data,Source,method_name,args) then
|
||||||
RaiseDispError;
|
RaiseDispError;
|
||||||
finally
|
finally
|
||||||
|
Loading…
Reference in New Issue
Block a user