diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-06-15 13:49:26 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-06-15 13:49:26 +0000 |
commit | e36429899894d10bb84b17b5fa50eba0641bc814 (patch) | |
tree | 7e5b50665308dcdf80c4c67acb254395dcd7f998 /compiler/pexpr.pas | |
parent | 2831f41d417674b8342770503c87806423b3ee2d (diff) | |
download | fpc-e36429899894d10bb84b17b5fa50eba0641bc814.tar.gz |
* the symbol parsed for "specialize" does not need to be a type; it could be a procsym or some other type (e.g. a constant of the same name in a third unit)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39233 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/pexpr.pas')
-rw-r--r-- | compiler/pexpr.pas | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas index d7c034fd4e..a4b40445b4 100644 --- a/compiler/pexpr.pas +++ b/compiler/pexpr.pas @@ -2837,8 +2837,7 @@ implementation if isspecialize then begin - if not assigned(srsym) or - (srsym.typ<>typesym) then + if not assigned(srsym) then begin identifier_not_found(orgstoredpattern,tokenpos); srsym:=generrorsym; |