paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 03:37:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* we only support resourcestrings in ttai_typedconstbuilder.queue_emit_const()

Browse Source 
right now, so give an internalerror if something else is passed
  * use the correct type when emitting a resourcestring like that (it will store
    the address of the resource string -> pointer to an ansistring)

git-svn-id: trunk@31646 -
This commit is contained in:
Jonas Maebe 2015-09-12 23:33:17 +00:00
parent c813e024ee
commit 7def77dcc9
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/aasmcnst.pas
View File

@ -1570,7 +1570,18 @@ implementation
if fqueue_offset<>0 then
internalerror(2014062103);
{ warning: update if/when the type of resource strings changes }
emit_tai(Tai_const.Createname(make_mangledname('RESSTR',cs.owner,cs.name),AT_DATA,sizeof(pint)),cansistringtype);
case cs.consttyp of
constresourcestring:
emit_tai(Tai_const.Createname(make_mangledname('RESSTR',cs.owner,cs.name),AT_DATA,sizeof(pint)),cpointerdef.getreusable(cansistringtype));
{ can these occur? }
constord,
conststring,constreal,
constset,constpointer,constnil,
constwstring,constguid:
internalerror(2015090903);
else
internalerror(2015090904);
end;
fqueue_offset:=low(fqueue_offset);
end;