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

* profiling fix

Browse Source
This commit is contained in:
marco 2003-10-30 18:53:53 +00:00
parent 0d72eee09e
commit 706118fcb9
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/x86/cgx86.pas
View File

@ -1480,17 +1480,29 @@ unit cgx86;
procedure tcgx86.g_profilecode(list : taasmoutput);
var
pl : tasmlabel;
pl : tasmlabel;
mcountprefix : String[4];
begin
case target_info.system of
{$ifndef NOTARGETWIN32}
system_i386_win32,
{$endif}
system_i386_freebsd,
system_i386_netbsd,
// system_i386_openbsd,
system_i386_wdosx,
system_i386_linux:
begin
Case target_info.system Of
system_i386_freebsd : mcountprefix:='.';
system_i386_netbsd : mcountprefix:='__';
// system_i386_openbsd : mcountprefix:='.';
else
mcountPrefix:='';
end;
objectlibrary.getaddrlabel(pl);
list.concat(Tai_section.Create(sec_data));
list.concat(Tai_align.Create(4));
@ -1498,7 +1510,7 @@ unit cgx86;
list.concat(Tai_const.Create_32bit(0));
list.concat(Tai_section.Create(sec_code));
list.concat(Taicpu.Op_sym_ofs_reg(A_MOV,S_L,pl,0,NR_EDX));
a_call_name(list,target_info.Cprefix+'mcount');
a_call_name(list,target_info.Cprefix+mcountprefix+'mcount');
include(rgint.used_in_proc,RS_EDX);
end;
@ -1737,7 +1749,10 @@ unit cgx86;
end.
{
$Log$
Revision 1.85 2003-10-30 16:22:40 peter
Revision 1.86 2003-10-30 18:53:53 marco
* profiling fix
Revision 1.85 2003/10/30 16:22:40 peter
* call firstpass before allocation and codegeneration is started
* move leftover code from pass_2.generatecode() to psub