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

* fix a problem with smartlink and stabs

Browse Source
This commit is contained in:
pierre 2000-03-09 10:07:18 +00:00
parent 991b0d8b09
commit a84bd72dde
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ag386bin.pas
View File

@ -343,9 +343,11 @@ unit ag386bin;
procedure ti386binasmlist.EndFileLineInfo; procedure ti386binasmlist.EndFileLineInfo;
var var
hp : pasmsymbol; hp : pasmsymbol;
store_sec : tsection;
begin begin
if not (cs_debuginfo in aktmoduleswitches) then if not (cs_debuginfo in aktmoduleswitches) then
exit; exit;
store_sec:=objectalloc^.currsec;
objectalloc^.setsection(sec_code); objectalloc^.setsection(sec_code);
hp:=newasmsymbol('Letext'); hp:=newasmsymbol('Letext');
if currpass=1 then if currpass=1 then
@ -357,6 +359,7 @@ unit ag386bin;
objectoutput^.writesymbol(hp); objectoutput^.writesymbol(hp);
EmitStabs('"",'+tostr(n_sourcefile)+ EmitStabs('"",'+tostr(n_sourcefile)+
',0,0,Letext'); ',0,0,Letext');
objectalloc^.setsection(store_sec);
end; end;
{$endif GDB} {$endif GDB}
@ -963,7 +966,10 @@ unit ag386bin;
end. end.
{ {
$Log$ $Log$
Revision 1.38 2000-02-18 21:54:07 pierre Revision 1.39 2000-03-09 10:07:18 pierre
* fix a problem with smartlink and stabs
Revision 1.38 2000/02/18 21:54:07 pierre
* avoid LeText if no stabs info * avoid LeText if no stabs info
Revision 1.37 2000/02/18 12:31:07 pierre Revision 1.37 2000/02/18 12:31:07 pierre