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

* emit a sizeint, not a ptruint for TableCount in tnodeutils.InsertResourceTablesTable

Browse Source 
git-svn-id: trunk@34638 -
This commit is contained in:
nickysn 2016-10-07 13:49:48 +00:00
parent 019f904be8
commit 16dfb839d8
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/ngenutil.pas
View File

@ -1288,7 +1288,7 @@ implementation
tcb.begin_anonymous_record('',default_settings.packrecords,sizeof(pint), tcb.begin_anonymous_record('',default_settings.packrecords,sizeof(pint),
targetinfos[target_info.system]^.alignment.recordalignmin, targetinfos[target_info.system]^.alignment.recordalignmin,
targetinfos[target_info.system]^.alignment.maxCrecordalign); targetinfos[target_info.system]^.alignment.maxCrecordalign);
countplaceholder:=tcb.emit_placeholder(ptruinttype); countplaceholder:=tcb.emit_placeholder(sizesinttype);
while assigned(hp) do while assigned(hp) do
begin begin
If (hp.flags and uf_has_resourcestrings)=uf_has_resourcestrings then If (hp.flags and uf_has_resourcestrings)=uf_has_resourcestrings then
@ -1306,7 +1306,7 @@ implementation
hp:=tmodule(hp.next); hp:=tmodule(hp.next);
end; end;
{ Insert TableCount at start } { Insert TableCount at start }
countplaceholder.replace(Tai_const.Create_pint(count),ptruinttype); countplaceholder.replace(Tai_const.Create_sizeint(count),sizesinttype);
countplaceholder.free; countplaceholder.free;
{ Add to data segment } { Add to data segment }
tabledef:=tcb.end_anonymous_record; tabledef:=tcb.end_anonymous_record;