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

* fixed the handling of const resourcestrings in the i8086 far data memory models

Browse Source 
git-svn-id: trunk@27380 -
This commit is contained in:
nickysn 2014-03-30 16:30:51 +00:00
parent 4a79481c51
commit 9ae26316e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgld.pas
View File

@ -286,7 +286,7 @@ implementation
begin
if tconstsym(symtableentry).consttyp=constresourcestring then
begin
location_reset_ref(location,LOC_CREFERENCE,OS_ADDR,sizeof(pint));
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
@ -296,7 +296,7 @@ implementation
HashValue : LongWord;
end;
}
location.reference.offset:=sizeof(pint);
location.reference.offset:=cansistringtype.size;
end
else
internalerror(22798);