diff options
| author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-09-01 07:18:02 +0000 |
|---|---|---|
| committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-09-01 07:18:02 +0000 |
| commit | 9a067745ac792e656d269ee289908f9b42282388 (patch) | |
| tree | 19185c09f5a3b3cfa90d693e05fed614ccc88d73 /compiler/htypechk.pas | |
| parent | cbead05b865ee36578f5ac6e6a6dc6b78f2d833e (diff) | |
| download | fpc-9a067745ac792e656d269ee289908f9b42282388.tar.gz | |
Fix for Mantis #26615.
htypechk.pas, tcallcandidates:
* collect_overloads_in_struct: we need to check the deftyp of the extended def for record- or objectdef, not the deftyp of the helper which will always be objectdef anyway.
+ added test
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@28572 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/htypechk.pas')
| -rw-r--r-- | compiler/htypechk.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas index 8296712769..3b369866d0 100644 --- a/compiler/htypechk.pas +++ b/compiler/htypechk.pas @@ -2227,7 +2227,7 @@ implementation break; end; if is_objectpascal_helper(structdef) and - (tobjectdef(structdef).typ in [recorddef,objectdef]) then + (tobjectdef(structdef).extendeddef.typ in [recorddef,objectdef]) then begin { search methods in the extended type as well } srsym:=tprocsym(tabstractrecorddef(tobjectdef(structdef).extendeddef).symtable.FindWithHash(hashedid)); |