paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 18:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed webtbf/tw4244

Browse Source 
git-svn-id: trunk@779 -
This commit is contained in:
Jonas Maebe 2005-08-02 18:30:33 +00:00
parent 3b2868feaf
commit ac445c97c1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/htypechk.pas
View File

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