mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 03:33:00 +02:00
+ allow to take the address of a resourcestring in typed constants
This commit is contained in:
parent
8082a0c3a4
commit
af18e7359f
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user