diff options
| author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-11-18 14:43:45 +0000 |
|---|---|---|
| committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-11-18 14:43:45 +0000 |
| commit | ac11f8b7e5947a67a233687638067254fbfdee18 (patch) | |
| tree | 2189c30363cae9e8fc09d406f8ea36433f86994f /compiler/nmem.pas | |
| parent | a0c1cf1ad8c9dc325c890c7ebb97f7e2da2235ee (diff) | |
| download | fpc-ac11f8b7e5947a67a233687638067254fbfdee18.tar.gz | |
* partial fix for Mantis #30831 (partial, because no exception has been encountered yet): when checking whether the left node of a vmtaddrnode is a generic, don't rely on df_generic, but instead use is_generic which checks for a true generic (the other will also be true if it's merely a structured type declared (or specialized) inside another generic)
+ added test
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34915 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/nmem.pas')
| -rw-r--r-- | compiler/nmem.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nmem.pas b/compiler/nmem.pas index 4a91d08195..a1c862344a 100644 --- a/compiler/nmem.pas +++ b/compiler/nmem.pas @@ -193,7 +193,7 @@ implementation (left.resultdef.typ=recorddef)) then begin { access to the classtype while specializing? } - if (df_generic in left.resultdef.defoptions) then + if tstoreddef(left.resultdef).is_generic then begin defaultresultdef:=true; if assigned(current_structdef) then |