mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 16:49:23 +02:00
- removed InsertPData leftover from ARM copy of this file
git-svn-id: trunk@34162 -
This commit is contained in:
parent
60fe7c2888
commit
8d77de6b22
@ -238,8 +238,6 @@ uses
|
|||||||
{ inserts pc relative symbols at places where they are reachable
|
{ inserts pc relative symbols at places where they are reachable
|
||||||
and transforms special instructions to valid instruction encodings }
|
and transforms special instructions to valid instruction encodings }
|
||||||
procedure finalizearmcode(list,listtoinsert : TAsmList);
|
procedure finalizearmcode(list,listtoinsert : TAsmList);
|
||||||
{ inserts .pdata section and dummy function prolog needed for arm-wince exception handling }
|
|
||||||
procedure InsertPData;
|
|
||||||
|
|
||||||
procedure InitAsm;
|
procedure InitAsm;
|
||||||
procedure DoneAsm;
|
procedure DoneAsm;
|
||||||
@ -1195,24 +1193,6 @@ implementation
|
|||||||
insertpcrelativedata(list, listtoinsert);
|
insertpcrelativedata(list, listtoinsert);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure InsertPData;
|
|
||||||
var
|
|
||||||
prolog: TAsmList;
|
|
||||||
begin
|
|
||||||
prolog:=TAsmList.create;
|
|
||||||
new_section(prolog,sec_code,'FPC_EH_PROLOG',sizeof(pint),secorder_begin);
|
|
||||||
prolog.concat(Tai_const.Createname('_ARM_ExceptionHandler', 0));
|
|
||||||
prolog.concat(Tai_const.Create_32bit(0));
|
|
||||||
prolog.concat(Tai_symbol.Createname_global('FPC_EH_CODE_START',AT_DATA,0));
|
|
||||||
{ dummy function }
|
|
||||||
prolog.concat(taicpu.op_reg(A_BR,NR_X29));
|
|
||||||
current_asmdata.asmlists[al_start].insertList(prolog);
|
|
||||||
prolog.Free;
|
|
||||||
new_section(current_asmdata.asmlists[al_end],sec_pdata,'',sizeof(pint));
|
|
||||||
current_asmdata.asmlists[al_end].concat(Tai_const.Createname('FPC_EH_CODE_START', 0));
|
|
||||||
current_asmdata.asmlists[al_end].concat(Tai_const.Create_32bit(longint($ffffff01)));
|
|
||||||
end;
|
|
||||||
|
|
||||||
(*
|
(*
|
||||||
Floating point instruction format information, taken from the linux kernel
|
Floating point instruction format information, taken from the linux kernel
|
||||||
ARM Floating Point Instruction Classes
|
ARM Floating Point Instruction Classes
|
||||||
|
Loading…
Reference in New Issue
Block a user