From ad937e79fabeaa4d6fd12fc21218d24f913ff5a9 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 11 Sep 2015 14:16:35 +0000
Subject: [PATCH] --- Merging r30239 into '.': U    compiler/x86_64/cpupara.pas
 A    tests/webtbs/tw27658.pp --- Recording mergeinfo for merge of r30239 into
 '.':  U   .

# revisions: 30239

git-svn-id: branches/fixes_3_0@31597 -
---
 .gitattributes              |  1 +
 compiler/x86_64/cpupara.pas |  5 +++++
 tests/webtbs/tw27658.pp     | 14 ++++++++++++++
 3 files changed, 20 insertions(+)
 create mode 100644 tests/webtbs/tw27658.pp

diff --git a/.gitattributes b/.gitattributes
index f352f41773..2e5ec28b6b 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -14246,6 +14246,7 @@ tests/webtbs/tw27424.pp svneol=native#text/pascal
 tests/webtbs/tw2758.pp svneol=native#text/plain
 tests/webtbs/tw2763.pp svneol=native#text/plain
 tests/webtbs/tw2765.pp svneol=native#text/plain
+tests/webtbs/tw27658.pp svneol=native#text/pascal
 tests/webtbs/tw2767.pp svneol=native#text/plain
 tests/webtbs/tw2771.pp svneol=native#text/plain
 tests/webtbs/tw2772.pp svneol=native#text/plain
diff --git a/compiler/x86_64/cpupara.pas b/compiler/x86_64/cpupara.pas
index c61712b10b..31fa3b0fe8 100644
--- a/compiler/x86_64/cpupara.pas
+++ b/compiler/x86_64/cpupara.pas
@@ -705,6 +705,11 @@ unit cpupara;
               def:=search_system_type('TVARDATA').typedef;
               result:=classify_argument(def,varspez,def.size,classes,byte_offset);
             end;
+          undefineddef:
+            { show shall we know?
+              since classify_argument is called during parsing, see tw27685.pp,
+              we handle undefineddef here }
+            result:=0;
           else
             internalerror(2010021405);
         end;
diff --git a/tests/webtbs/tw27658.pp b/tests/webtbs/tw27658.pp
new file mode 100644
index 0000000000..36919c86d7
--- /dev/null
+++ b/tests/webtbs/tw27658.pp
@@ -0,0 +1,14 @@
+{$MODE OBJFPC}
+program Project1;
+
+uses gmap;
+
+type
+
+generic TMyMap <TKey, TValue, TCompare> = class(specialize TMap<TKey, TValue, TCompare>)
+end;
+generic TMyCounter <TKey, TCompare> = class(specialize TMyMap<TKey, SizeUInt, TCompare>)
+end;
+
+begin
+end.