paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* align symbol stubs on 16 bytes instead of 4

Browse Source 
* removed some useless/wrong ".data" section directives in the symbol stubs

git-svn-id: trunk@2816 -
This commit is contained in:
Jonas Maebe 2006-03-09 10:36:57 +00:00
parent cb94ba5457
commit 8a10afc29d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/powerpc/cgcpu.pas
View File

@ -371,9 +371,8 @@ const
if asmlist[al_imports]=nil then
asmlist[al_imports]:=TAAsmoutput.create;
asmlist[al_imports].concat(Tai_section.Create(sec_data,'',0));
asmlist[al_imports].concat(Tai_section.create(sec_stub,'',0));
asmlist[al_imports].concat(Tai_align.Create(4));
asmlist[al_imports].concat(Tai_align.Create(16));
result := objectlibrary.newasmsymbol(stubname,AB_EXTERNAL,AT_FUNCTION);
asmlist[al_imports].concat(Tai_symbol.Create(result,0));
asmlist[al_imports].concat(tai_directive.create(asd_indirect_symbol,s));
@ -386,7 +385,6 @@ const
asmlist[al_imports].concat(taicpu.op_reg_ref(A_LWZU,NR_R12,href));
asmlist[al_imports].concat(taicpu.op_reg(A_MTCTR,NR_R12));
asmlist[al_imports].concat(taicpu.op_none(A_BCTR));
asmlist[al_imports].concat(Tai_section.Create(sec_data,'',0));
asmlist[al_imports].concat(tai_directive.create(asd_lazy_symbol_pointer,''));
asmlist[al_imports].concat(Tai_symbol.Create(l1,0));
asmlist[al_imports].concat(tai_directive.create(asd_indirect_symbol,s));