* fixed tw4764

git-svn-id: trunk@2414 -

.gitattributes

@@ -5970,6 +5970,7 @@ tests/webtbf/tw4619b.pp svneol=native#text/plain
 tests/webtbf/tw4647.pp svneol=native#text/plain
 tests/webtbf/tw4651.pp svneol=native#text/plain
 tests/webtbf/tw4695.pp svneol=native#text/plain
+tests/webtbf/tw4764.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

compiler/pdecobj.pas

@@ -397,7 +397,7 @@ implementation
                  (tt.def.deftype<>objectdef) then
                 begin
                   if assigned(tt.def) then
-                    Message1(type_e_class_type_expected,childof.typename);
+                    Message1(type_e_class_type_expected,tt.def.typename);
                 end
               else
                 begin

tests/webtbf/tw4764.pp

@@ -0,0 +1,20 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 4764 }
+{ Submitted by "Ales Katona" on  2006-02-03 }
+{ e-mail: [email protected] }
+unit example;
+
+{$mode objfpc}{$H+}
+
+interface
+
+type
+  TLBaseSocket = class(TLHandle)
+  end;
+
+implementation
+
+end.
+
+