From 5dd4389f78349bec15777afecd112dd05fbb3925 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 16 Mar 2014 19:45:56 +0000
Subject: [PATCH]   * made internalerror unique

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

diff --git a/compiler/optvirt.pas b/compiler/optvirt.pas
index b646967dbb..15fa7fc197 100644
--- a/compiler/optvirt.pas
+++ b/compiler/optvirt.pas
@@ -593,7 +593,7 @@ unit optvirt;
         mainsymtab:=objparentsymtab.defowner.owner;
         { main symtable must be static or global }
         if not(mainsymtab.symtabletype in [staticsymtable,globalsymtable]) then
-         internalerror(200204175);
+         internalerror(200204177);
         if (TSymtable(main_module.localsymtable)=mainsymtab) and
             (not main_module.is_unit) then
            { same convention as for mangled names }