paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 09:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add pseudo local var parent_ebp for local procs

Browse Source
This commit is contained in:
pierre 2000-02-04 14:29:57 +00:00
parent 245975562b
commit 9572b14dea
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cgai386.pas
View File

@ -3650,6 +3650,13 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
'"$t:r*'+procinfo^._class^.numberstring+'",'+
tostr(N_RSYM)+',0,0,'+tostr(GDB_i386index[R_ESI])))));
{ define calling EBP as pseudo local var PM }
{ this enables test if the function is a local one !! }
if assigned(procinfo^.parent) then
exprasmlist^.concat(new(pai_stabs,init(strpnew(
'"parent_ebp:'+voidpointerdef^.numberstring+'",'+
tostr(N_LSYM)+',0,0,'+tostr(procinfo^.framepointer_offset)))));
if (pdef(aktprocsym^.definition^.rettype.def) <> pdef(voiddef)) then
begin
if ret_in_param(aktprocsym^.definition^.rettype.def) then
@ -3717,7 +3724,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.75 2000-01-25 08:46:03 pierre
Revision 1.76 2000-02-04 14:29:57 pierre
+ add pseudo local var parent_ebp for local procs
Revision 1.75 2000/01/25 08:46:03 pierre
* Range check for int64 produces a warning only
Revision 1.74 2000/01/24 12:17:22 florian