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

* avoid LeText if no stabs info

Browse Source
This commit is contained in:
pierre 2000-02-18 21:54:07 +00:00
parent 904bfac5b9
commit fa3766d893
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ag386att.pas
View File

@ -338,6 +338,8 @@ unit ag386att;
procedure ti386attasmlist.WriteFileEndInfo;
begin
if not (cs_debuginfo in aktmoduleswitches) then
exit;
AsmLn;
AsmWriteLn(ait_section2str(sec_code));
AsmWriteLn(#9'.stabs "",'+tostr(n_sourcefile)+',0,0,Letext');
@ -884,7 +886,10 @@ unit ag386att;
end.
{
$Log$
Revision 1.27 2000-02-18 12:31:07 pierre
Revision 1.28 2000-02-18 21:54:07 pierre
* avoid LeText if no stabs info
Revision 1.27 2000/02/18 12:31:07 pierre
* Reset file name to empty at end of code section
Revision 1.26 2000/02/09 13:22:42 peter

7
compiler/ag386bin.pas
View File

@ -344,6 +344,8 @@ unit ag386bin;
var
hp : pasmsymbol;
begin
if not (cs_debuginfo in aktmoduleswitches) then
exit;
objectalloc^.setsection(sec_code);
hp:=newasmsymbol('Letext');
if currpass=1 then
@ -961,7 +963,10 @@ unit ag386bin;
end.
{
$Log$
Revision 1.37 2000-02-18 12:31:07 pierre
Revision 1.38 2000-02-18 21:54:07 pierre
* avoid LeText if no stabs info
Revision 1.37 2000/02/18 12:31:07 pierre
* Reset file name to empty at end of code section
Revision 1.36 2000/02/09 13:22:43 peter