paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 11:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ allow to take the address of a resourcestring in typed constants

Browse Source
This commit is contained in:
florian 2005-02-02 19:42:19 +00:00
parent 8082a0c3a4
commit af18e7359f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ptconst.pas
View File

@ -438,6 +438,11 @@ implementation
curconstSegment.concat(Tai_const.Createname(ttypedconstsym(srsym).mangledname,AT_DATA,offset)); curconstSegment.concat(Tai_const.Createname(ttypedconstsym(srsym).mangledname,AT_DATA,offset));
labelsym : labelsym :
curconstSegment.concat(Tai_const.Createname(tlabelsym(srsym).mangledname,AT_FUNCTION,offset)); curconstSegment.concat(Tai_const.Createname(tlabelsym(srsym).mangledname,AT_FUNCTION,offset));
constsym :
if tconstsym(srsym).consttyp=constresourcestring then
curconstSegment.concat(Tai_const.Createname(make_mangledname('RESOURCESTRINGLIST',tconstsym(srsym).owner,''),AT_DATA,tconstsym(srsym).resstrindex*(4+sizeof(aint)*3)+4+sizeof(aint)))
else
Message(type_e_variable_id_expected);
else else
Message(type_e_variable_id_expected); Message(type_e_variable_id_expected);
end; end;
@ -1081,7 +1086,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.100 2005-01-24 21:39:03 peter Revision 1.101 2005-02-02 19:42:19 florian
+ allow to take the address of a resourcestring in typed constants
Revision 1.100 2005/01/24 21:39:03 peter
* remove multiple typeconvs for procvar * remove multiple typeconvs for procvar
Revision 1.99 2005/01/09 15:05:29 peter Revision 1.99 2005/01/09 15:05:29 peter