diff options
Diffstat (limited to 'compiler/pdecsub.pas')
-rw-r--r-- | compiler/pdecsub.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index b7ce1fda75..5dcb4ad8a7 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -1959,7 +1959,8 @@ var pt : tnode; {$endif WITHDMT} begin - if (not assigned(pd.owner.defowner) or + if assigned(pd.owner) and + (not assigned(pd.owner.defowner) or not is_java_class_or_interface(tdef(pd.owner.defowner))) and (po_external in pd.procoptions) then Message2(parser_e_proc_dir_conflict,'EXTERNAL','"VIRTUAL"'); |