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

* Set procalign alignment for sections of import jumps table.

Browse Source 
git-svn-id: trunk@5376 -
This commit is contained in:
yury 2006-11-14 17:05:46 +00:00
parent 87d5058dec
commit f258b907fb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogcoff.pas
View File

@ -2338,7 +2338,7 @@ const pemagic : array[0..3] of byte = (
with internalobjdata do with internalobjdata do
begin begin
secname:=basedllname+'_i_'+afuncname; secname:=basedllname+'_i_'+afuncname;
textobjsection:=createsection(sectionname(sec_code,secname,secorder_default),sectiontype2align(sec_code),sectiontype2options(sec_code) - [oso_keep]); textobjsection:=createsection(sectionname(sec_code,secname,secorder_default),current_settings.alignment.procalign,sectiontype2options(sec_code) - [oso_keep]);
idata4objsection:=createsection(sec_idata4, secname); idata4objsection:=createsection(sec_idata4, secname);
idata5objsection:=createsection(sec_idata5, secname); idata5objsection:=createsection(sec_idata5, secname);
idata6objsection:=createsection(sec_idata6, secname); idata6objsection:=createsection(sec_idata6, secname);