mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 05:29:30 +02:00
* fix a problem with smartlink and stabs
This commit is contained in:
parent
991b0d8b09
commit
a84bd72dde
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user