* fixed webtbf/tw4244

git-svn-id: trunk@779 -
2025-04-20 04:59:26 +02:00 · 2005-08-02 18:30:33 +00:00 · 2005-08-02 18:30:33 +00:00 · ac445c97c1
commit ac445c97c1
parent 3b2868feaf
1 changed files with 1 additions and 1 deletions
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@ -1118,7 +1118,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);