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

+ RESULT pseudo var added in GDB debug info

Browse Source
This commit is contained in:
pierre 1999-09-16 07:58:14 +00:00
parent 1ef3c84bb8
commit b5f43cf97b
1 changed files with 25 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/cgai386.pas
View File

@ -3293,6 +3293,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
tostr(N_RSYM)+',0,0,'+tostr(GDB_i386index[R_ESI]))))); tostr(N_RSYM)+',0,0,'+tostr(GDB_i386index[R_ESI])))));
if (pdef(aktprocsym^.definition^.retdef) <> pdef(voiddef)) then if (pdef(aktprocsym^.definition^.retdef) <> pdef(voiddef)) then
begin
if ret_in_param(aktprocsym^.definition^.retdef) then if ret_in_param(aktprocsym^.definition^.retdef) then
exprasmlist^.concat(new(pai_stabs,init(strpnew( exprasmlist^.concat(new(pai_stabs,init(strpnew(
'"'+aktprocsym^.name+':X*'+aktprocsym^.definition^.retdef^.numberstring+'",'+ '"'+aktprocsym^.name+':X*'+aktprocsym^.definition^.retdef^.numberstring+'",'+
@ -3301,7 +3302,16 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
exprasmlist^.concat(new(pai_stabs,init(strpnew( exprasmlist^.concat(new(pai_stabs,init(strpnew(
'"'+aktprocsym^.name+':X'+aktprocsym^.definition^.retdef^.numberstring+'",'+ '"'+aktprocsym^.name+':X'+aktprocsym^.definition^.retdef^.numberstring+'",'+
tostr(N_PSYM)+',0,0,'+tostr(procinfo.retoffset))))); tostr(N_PSYM)+',0,0,'+tostr(procinfo.retoffset)))));
if (m_result in aktmodeswitches) then
if ret_in_param(aktprocsym^.definition^.retdef) then
exprasmlist^.concat(new(pai_stabs,init(strpnew(
'"RESULT:X*'+aktprocsym^.definition^.retdef^.numberstring+'",'+
tostr(N_PSYM)+',0,0,'+tostr(procinfo.retoffset)))))
else
exprasmlist^.concat(new(pai_stabs,init(strpnew(
'"RESULT:X'+aktprocsym^.definition^.retdef^.numberstring+'",'+
tostr(N_PSYM)+',0,0,'+tostr(procinfo.retoffset)))));
end;
mangled_length:=length(aktprocsym^.definition^.mangledname); mangled_length:=length(aktprocsym^.definition^.mangledname);
getmem(p,mangled_length+50); getmem(p,mangled_length+50);
strpcopy(p,'192,0,0,'); strpcopy(p,'192,0,0,');
@ -3349,7 +3359,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end. end.
{ {
$Log$ $Log$
Revision 1.43 1999-09-15 20:35:38 florian Revision 1.44 1999-09-16 07:58:14 pierre
+ RESULT pseudo var added in GDB debug info
Revision 1.43 1999/09/15 20:35:38 florian
* small fix to operator overloading when in MMX mode * small fix to operator overloading when in MMX mode
+ the compiler uses now fldz and fld1 if possible + the compiler uses now fldz and fld1 if possible
+ some fixes to floating point registers + some fixes to floating point registers
@ -3646,7 +3659,7 @@ end.
* previous log corrected * previous log corrected
Revision 1.133 1999/04/21 16:31:38 pierre Revision 1.133 1999/04/21 16:31:38 pierre
+ TEMPS_NOT_PUSH conditionnal code : + TEMPS_NOT_PUSH conditional code :
put needed registers into temp space instead of pushing them put needed registers into temp space instead of pushing them
Revision 1.132 1999/04/21 09:43:30 peter Revision 1.132 1999/04/21 09:43:30 peter
@ -3741,7 +3754,7 @@ end.
* internal error 10 with ansistrings fixed * internal error 10 with ansistrings fixed
Revision 1.106 1999/02/03 09:50:22 pierre Revision 1.106 1999/02/03 09:50:22 pierre
* conditionnal code to try to release temp for consts that are not in memory * conditional code to try to release temp for consts that are not in memory
Revision 1.105 1999/02/02 11:47:56 peter Revision 1.105 1999/02/02 11:47:56 peter
* fixed ansi2short * fixed ansi2short