From f1652a6c8778896a4f010cc35302d409a4dfedc5 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:13:31 +0000
Subject: [PATCH]   * copy dispid in tprocdef.getcopy()

git-svn-id: branches/jvmbackend@18594 -
---
 compiler/symdef.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index c924a34bba..45f67529d4 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -4041,6 +4041,7 @@ implementation
         pvs : tparavarsym;
       begin
         result:=tprocdef.create(parast.symtablelevel);
+        tprocdef(result).dispid:=dispid;
         tprocdef(result).returndef:=returndef;
         tprocdef(result).returndefderef:=returndefderef;
         tprocdef(result).parast:=tparasymtable.create(tprocdef(result),parast.symtablelevel);