Merged revisions 779 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@780 -

compiler/htypechk.pas

@@ -1117,7 +1117,7 @@ implementation
                       (hp.resulttype.def.deftype=stringdef) then
                      result:=true
                  else
-                   if valid_const in opts then
+                   if ([valid_const,valid_addr] * opts = [valid_const]) then
                      result:=true
                  else
                   CGMessagePos(hp.fileinfo,errmsg);