* allow passing read-only typedconsts to const parameters

git-svn-id: trunk@242 -
2025-10-22 16:11:44 +02:00 · 2005-06-07 20:42:41 +00:00 · 2005-06-07 20:42:41 +00:00 · 393101a64d
commit 393101a64d
parent 8a226bba52
1 changed files with 2 additions and 1 deletions
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@ -1153,7 +1153,8 @@ implementation
                   typedconstsym :
                     begin
                       if ttypedconstsym(tloadnode(hp).symtableentry).is_writable or
-                          (valid_addr in opts) then
+                          (valid_addr in opts) or
+                          (valid_const in opts) then
                        result:=true
                       else
                        CGMessagePos(hp.fileinfo,type_e_no_assign_to_const);