* method pointers are also returned by parameter

git-svn-id: trunk@40702 -
2025-09-08 11:19:36 +02:00 · 2018-12-29 19:21:27 +00:00 · 2018-12-29 19:21:27 +00:00 · 9642d210c0
commit 9642d210c0
parent 147dd4021d
1 changed files with 1 additions and 0 deletions
--- a/packages/rtl-objpas/src/x86_64/invoke.inc
+++ b/packages/rtl-objpas/src/x86_64/invoke.inc
@ -93,6 +93,7 @@ begin
  Result := False;
  if Assigned(aType) then begin
    case aType^.Kind of
+      tkMethod,
      tkSString,
      tkAString,
      tkUString,