From c995e56370ed8e6ce0ba634ad77771e8932bedf0 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 20 Aug 2011 08:12:15 +0000
Subject: [PATCH]   * internalerror if constructor not found in record

git-svn-id: branches/jvmbackend@18579 -
---
 compiler/jvm/tgcpu.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/jvm/tgcpu.pas b/compiler/jvm/tgcpu.pas
index dc583eddd6..06efc714e8 100644
--- a/compiler/jvm/tgcpu.pas
+++ b/compiler/jvm/tgcpu.pas
@@ -113,7 +113,9 @@ unit tgcpu;
                   pd:=tprocsym(sym).find_bytype_parameterless(potype_constructor);
                   if not assigned(pd) then
                     internalerror(2011032701);
-                end;
+                end
+              else
+                internalerror(2011060301);
               hlcg.a_call_name(list,pd,pd.mangledname,false);
               thlcgjvm(hlcg).decstack(list,1);
               { store reference to instance }