From cdca5f42b7297d8321968a7a783cc03d1c758b04 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Fri, 24 Dec 2010 09:27:34 +0000
Subject: [PATCH] compiler: extend internal error 200305061 check for records

git-svn-id: trunk@16630 -
---
 compiler/ncal.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index 9d3161e9d0..3083090dc6 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -2959,7 +2959,7 @@ implementation
           begin
             { When this is method the methodpointer must be available }
             if (right=nil) and
-               (procdefinition.owner.symtabletype=ObjectSymtable) and
+               (procdefinition.owner.symtabletype in [ObjectSymtable,recordsymtable]) and
                not procdefinition.no_self_node then
               internalerror(200305061);
           end;