paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* emitcall -> emitinsertcall for profiling (merged)

Browse Source
This commit is contained in:
peter 2000-10-24 22:23:04 +00:00
parent 299d6098aa
commit ba5fd6b9d8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/cgai386.pas
View File

@ -1496,7 +1496,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
target_i386_linux: target_i386_linux:
begin begin
getaddrlabel(pl); getaddrlabel(pl);
emitcall('mcount'); emitinsertcall('mcount');
usedinproc:=usedinproc or ($80 shr byte(R_EDX)); usedinproc:=usedinproc or ($80 shr byte(R_EDX));
exprasmlist^.insert(new(paicpu,op_sym_ofs_reg(A_MOV,S_L,pl,0,R_EDX))); exprasmlist^.insert(new(paicpu,op_sym_ofs_reg(A_MOV,S_L,pl,0,R_EDX)));
exprasmlist^.insert(new(pai_section,init(sec_code))); exprasmlist^.insert(new(pai_section,init(sec_code)));
@ -2813,7 +2813,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end. end.
{ {
$Log$ $Log$
Revision 1.4 2000-10-24 12:47:45 jonas Revision 1.5 2000-10-24 22:23:04 peter
* emitcall -> emitinsertcall for profiling (merged)
Revision 1.4 2000/10/24 12:47:45 jonas
* allocate registers which hold function result * allocate registers which hold function result
Revision 1.3 2000/10/24 08:54:25 michael Revision 1.3 2000/10/24 08:54:25 michael