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

ARM: mimic what GNU C does while calling the profiling mcount on ARM

Browse Source 
git-svn-id: trunk@28648 -
This commit is contained in:
Károly Balogh 2014-09-13 00:17:10 +00:00
parent 0b4d54fcb9
commit 1b0a1f4508
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/arm/cgcpu.pas
View File

@ -1801,7 +1801,10 @@ unit cgcpu;
procedure tbasecgarm.g_profilecode(list : TAsmList); procedure tbasecgarm.g_profilecode(list : TAsmList);
begin begin
if target_info.system = system_arm_linux then if target_info.system = system_arm_linux then
a_call_name(list,target_info.Cprefix+'mcount',false) begin
list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R14]));
a_call_name(list,'__gnu_mcount_nc',false);
end
else else
internalerror(2014091201); internalerror(2014091201);
end; end;