paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed code generator type correctness when loading a resourcestring

Browse Source 
git-svn-id: trunk@32403 -
This commit is contained in:
Jonas Maebe 2015-11-21 12:36:35 +00:00
parent ba37a48bcb
commit 7ce34ac7d2
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgld.pas
View File

@ -380,15 +380,12 @@ implementation
begin
location_reset_ref(location,LOC_CREFERENCE,def_cgsize(cansistringtype),cansistringtype.size);
location.reference.symbol:=current_asmdata.RefAsmSymbol(make_mangledname('RESSTR',symtableentry.owner,symtableentry.name),AT_DATA);
{ Resourcestring layout:
TResourceStringRecord = Packed Record
Name,
CurrentValue,
DefaultValue : AnsiString;
HashValue : LongWord;
end;
}
location.reference.offset:=cansistringtype.size;
vd:=search_system_type('TRESOURCESTRINGRECORD').typedef;
hlcg.g_set_addr_nonbitpacked_record_field_ref(
current_asmdata.CurrAsmList,
trecorddef(vd),
tfieldvarsym(search_struct_member(trecorddef(vd),'CURRENTVALUE')),
location.reference);
end
else
internalerror(22798);