소스 검색

* 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: trunk@39233 -
svenbarth 7 년 전
부모
커밋
22a5e5e4ee
1개의 변경된 파일1개의 추가작업 그리고 2개의 파일을 삭제
  1. 1 2
      compiler/pexpr.pas

+ 1 - 2
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;