paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* taking the address of a resourcestring is allowed now

Browse Source
This commit is contained in:
florian 2005-01-19 23:23:12 +00:00
parent a6549318c7
commit 2729f303a4
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/htypechk.pas
View File

@ -1118,6 +1118,15 @@ implementation
CGMessagePos(hp.fileinfo,type_e_variable_id_expected);
exit;
end;
constsym:
begin
if (tconstsym(tloadnode(hp).symtableentry).consttyp=constresourcestring) and
(valid_addr in opts) then
result:=true
else
CGMessagePos(hp.fileinfo,type_e_variable_id_expected);
exit;
end;
else
begin
CGMessagePos(hp.fileinfo,type_e_variable_id_expected);
@ -1986,7 +1995,10 @@ implementation
end.
{
$Log$
Revision 1.110 2005-01-19 22:19:41 peter
Revision 1.111 2005-01-19 23:23:12 florian
* taking the address of a resourcestring is allowed now
Revision 1.110 2005/01/19 22:19:41 peter
* unit mapping rewrite
* new derefmap added