paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-18 06:18:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tw4764

Browse Source 
git-svn-id: trunk@2414 -
This commit is contained in:
Jonas Maebe 2006-02-03 14:57:55 +00:00
parent 976bb457b4
commit cc7ff349cd
3 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5970,6 +5970,7 @@ tests/webtbf/tw4619b.pp svneol=native#text/plain
tests/webtbf/tw4647.pp svneol=native#text/plain tests/webtbf/tw4647.pp svneol=native#text/plain
tests/webtbf/tw4651.pp svneol=native#text/plain tests/webtbf/tw4651.pp svneol=native#text/plain
tests/webtbf/tw4695.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/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain tests/webtbf/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain tests/webtbf/uw0840b.pp svneol=native#text/plain

2
compiler/pdecobj.pas
View File

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

20
tests/webtbf/tw4764.pp Normal file
View File

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