mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-14 19:38:43 +02:00
* fixed tw4764
git-svn-id: trunk@2414 -
This commit is contained in:
parent
976bb457b4
commit
cc7ff349cd
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -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
|
||||||
|
@ -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
20
tests/webtbf/tw4764.pp
Normal 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.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user