|
@@ -6839,7 +6839,7 @@ begin
|
|
RaiseMsg(20170216151616,nInvalidXModifierY,
|
|
RaiseMsg(20170216151616,nInvalidXModifierY,
|
|
sInvalidXModifierY,[GetElementTypeName(Proc),'external, '+ModifierNames[pm]],Proc);
|
|
sInvalidXModifierY,[GetElementTypeName(Proc),'external, '+ModifierNames[pm]],Proc);
|
|
for ptm in Proc.ProcType.Modifiers do
|
|
for ptm in Proc.ProcType.Modifiers do
|
|
- if not (ptm in [ptmOfObject,ptmIsNested,ptmStatic,ptmVarargs,ptmReferenceTo]) then
|
|
|
|
|
|
+ if not (ptm in [ptmOfObject,ptmIsNested,ptmStatic,ptmVarargs,ptmReferenceTo,ptmAsync]) then
|
|
RaiseMsg(20170411171224,nInvalidXModifierY,
|
|
RaiseMsg(20170411171224,nInvalidXModifierY,
|
|
sInvalidXModifierY,[GetElementTypeName(Proc),'external, '+ProcTypeModifiers[ptm]],Proc);
|
|
sInvalidXModifierY,[GetElementTypeName(Proc),'external, '+ProcTypeModifiers[ptm]],Proc);
|
|
end;
|
|
end;
|