paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 16:59:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* More fixes for wince exceptions. Debugging also work with internal linker now for wince.

Browse Source 
git-svn-id: trunk@5127 -
This commit is contained in:
yury 2006-10-31 16:06:44 +00:00
parent b14c83a7e1
commit 82b0e6df0b
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pmodules.pas
View File

@ -225,7 +225,7 @@ implementation
{$ifdef arm} {$ifdef arm}
procedure InsertPData; procedure InsertPData;
begin begin
new_section(current_asmdata.asmlists[al_globals],sec_pdata,'FPC_EH_PROLOG',sizeof(aint)); new_section(current_asmdata.asmlists[al_globals],sec_code,'FPC_EH_PROLOG',sizeof(aint),secorder_begin);
current_asmdata.asmlists[al_globals].concat(Tai_const.Createname('_ARM_ExceptionHandler', 0)); current_asmdata.asmlists[al_globals].concat(Tai_const.Createname('_ARM_ExceptionHandler', 0));
current_asmdata.asmlists[al_globals].concat(Tai_const.Create_32bit(0)); current_asmdata.asmlists[al_globals].concat(Tai_const.Create_32bit(0));
current_asmdata.asmlists[al_globals].concat(Tai_symbol.Createname_global('FPC_EH_CODE_START',AT_DATA,0)); current_asmdata.asmlists[al_globals].concat(Tai_symbol.Createname_global('FPC_EH_CODE_START',AT_DATA,0));

5
compiler/systems/t_win.pas
View File

@ -921,8 +921,6 @@ implementation
Concat('IMAGEBASE $' + ibase); Concat('IMAGEBASE $' + ibase);
Concat('HEADER'); Concat('HEADER');
Concat('EXESECTION .text'); Concat('EXESECTION .text');
if target_info.system=system_arm_wince then
Concat(' OBJSECTION .pdata.n_FPC_EH_PROLOG');
Concat(' OBJSECTION .text*'); Concat(' OBJSECTION .text*');
Concat(' SYMBOL ___CTOR_LIST__'); Concat(' SYMBOL ___CTOR_LIST__');
Concat(' SYMBOL __CTOR_LIST__'); Concat(' SYMBOL __CTOR_LIST__');
@ -1121,9 +1119,6 @@ implementation
Add(' . = ALIGN(__section_alignment__);'); Add(' . = ALIGN(__section_alignment__);');
Add(' .text __image_base__ + ( __section_alignment__ < 0x1000 ? . : __section_alignment__ ) :'); Add(' .text __image_base__ + ( __section_alignment__ < 0x1000 ? . : __section_alignment__ ) :');
Add(' {'); Add(' {');
{$ifdef arm}
Add(' *(.pdata.n_FPC_EH_PROLOG)');
{$endif arm}
Add(' *(.init)'); Add(' *(.init)');
add(' *(.text .stub .text.* .gnu.linkonce.t.*)'); add(' *(.text .stub .text.* .gnu.linkonce.t.*)');
Add(' *(SORT(.text$*))'); Add(' *(SORT(.text$*))');