* fix a problem with smartlink and stabs

This commit is contained in:
pierre 2000-03-09 10:07:18 +00:00
parent 991b0d8b09
commit a84bd72dde

View File

@ -343,9 +343,11 @@ unit ag386bin;
procedure ti386binasmlist.EndFileLineInfo;
var
hp : pasmsymbol;
store_sec : tsection;
begin
if not (cs_debuginfo in aktmoduleswitches) then
exit;
store_sec:=objectalloc^.currsec;
objectalloc^.setsection(sec_code);
hp:=newasmsymbol('Letext');
if currpass=1 then
@ -357,6 +359,7 @@ unit ag386bin;
objectoutput^.writesymbol(hp);
EmitStabs('"",'+tostr(n_sourcefile)+
',0,0,Letext');
objectalloc^.setsection(store_sec);
end;
{$endif GDB}
@ -963,7 +966,10 @@ unit ag386bin;
end.
{
$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
Revision 1.37 2000/02/18 12:31:07 pierre