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

* fixed internal error when a subscripted object is used in a property

Browse Source 
(mantis #12756)

git-svn-id: trunk@12956 -
This commit is contained in:
Jonas Maebe 2009-03-22 16:21:06 +00:00
parent 6f4637b32a
commit 624a7be9b1
3 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8777,6 +8777,7 @@ tests/webtbs/tw12614.pp svneol=native#text/plain
tests/webtbs/tw12685.pp svneol=native#text/plain
tests/webtbs/tw1269.pp svneol=native#text/plain
tests/webtbs/tw1275.pp svneol=native#text/plain
tests/webtbs/tw12756.pp svneol=native#text/plain
tests/webtbs/tw12788.pp svneol=native#text/plain
tests/webtbs/tw1279.pp svneol=native#text/plain
tests/webtbs/tw1283.pp svneol=native#text/plain

4
compiler/ncgrtti.pas
View File

@ -271,7 +271,9 @@ implementation
end;
sl_subscript :
begin
if not(assigned(def) and (def.typ=recorddef)) then
if not(assigned(def) and
((def.typ=recorddef) or
is_object(def))) then
internalerror(200402171);
inc(address,tfieldvarsym(hp^.sym).fieldoffset);
def:=tfieldvarsym(hp^.sym).vardef;

24
tests/webtbs/tw12756.pp Normal file
View File

@ -0,0 +1,24 @@
{$mode delphi}
{$M+}
type
TFooR = object { put "record" here and it works. }
Thing : integer;
end;
TFoo = class
private
fRecord : TFooR;
published
property Thing : integer read fRecord.Thing;
end;
var
fFoo : TFoo;
begin
fFoo := TFoo.Create;
fFoo.fRecord.Thing:=123;
if (fFoo.Thing <> 123) then
halt(1);
fFoo.free;
end.