paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write source line again for inline procs

Browse Source
This commit is contained in:
pierre 2000-02-29 23:56:49 +00:00
parent babef0ad6d
commit 4a5e85e38d
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ag386att.pas
View File

@ -367,6 +367,7 @@ unit ag386att;
s : string; s : string;
found : boolean; found : boolean;
i,pos,l : longint; i,pos,l : longint;
InlineLevel : longint;
co : comp; co : comp;
sin : single; sin : single;
d : double; d : double;
@ -378,6 +379,7 @@ unit ag386att;
begin begin
if not assigned(p) then if not assigned(p) then
exit; exit;
InlineLevel:=0;
{ lineinfo is only needed for codesegment (PFV) } { lineinfo is only needed for codesegment (PFV) }
do_line:=(cs_asm_source in aktglobalswitches) or do_line:=(cs_asm_source in aktglobalswitches) or
((cs_lineinfo in aktmoduleswitches) and (p=codesegment)); ((cs_lineinfo in aktmoduleswitches) and (p=codesegment));
@ -422,15 +424,16 @@ unit ag386att;
lastinfile^.close; lastinfile^.close;
end; end;
if (hp^.fileinfo.line<>lastfileinfo.line) and if (hp^.fileinfo.line<>lastfileinfo.line) and
(hp^.fileinfo.line<infile^.maxlinebuf) then ((hp^.fileinfo.line<infile^.maxlinebuf) or (InlineLevel>0)) then
begin begin
if (hp^.fileinfo.line<>0) and if (hp^.fileinfo.line<>0) and
(infile^.linebuf^[hp^.fileinfo.line]>=0) then ((infile^.linebuf^[hp^.fileinfo.line]>=0) or (InlineLevel>0)) then
AsmWriteLn(target_asm.comment+'['+tostr(hp^.fileinfo.line)+'] '+ AsmWriteLn(target_asm.comment+'['+tostr(hp^.fileinfo.line)+'] '+
fixline(infile^.GetLineStr(hp^.fileinfo.line))); fixline(infile^.GetLineStr(hp^.fileinfo.line)));
{ set it to a negative value ! { set it to a negative value !
to make that is has been read already !! PM } to make that is has been read already !! PM }
infile^.linebuf^[hp^.fileinfo.line]:=-infile^.linebuf^[hp^.fileinfo.line]-1; if (infile^.linebuf^[hp^.fileinfo.line]>=0) then
infile^.linebuf^[hp^.fileinfo.line]:=-infile^.linebuf^[hp^.fileinfo.line]-1;
end; end;
end; end;
{$ifdef LINEINFO} {$ifdef LINEINFO}
@ -801,7 +804,10 @@ unit ag386att;
end; end;
ait_marker : ait_marker :
; if pai_marker(hp)^.kind=InlineStart then
inc(InlineLevel)
else if pai_marker(hp)^.kind=InlineEnd then
dec(InlineLevel);
else else
internalerror(10000); internalerror(10000);
@ -888,7 +894,10 @@ unit ag386att;
end. end.
{ {
$Log$ $Log$
Revision 1.29 2000-02-20 21:20:28 marco Revision 1.30 2000-02-29 23:56:49 pierre
* write source line again for inline procs
Revision 1.29 2000/02/20 21:20:28 marco
* Put some call under Ifdef GDB, so that compiling without -dGDB works * Put some call under Ifdef GDB, so that compiling without -dGDB works
Revision 1.28 2000/02/18 21:54:07 pierre Revision 1.28 2000/02/18 21:54:07 pierre
@ -969,4 +978,4 @@ end.
Revision 1.6 1999/07/29 20:53:56 peter Revision 1.6 1999/07/29 20:53:56 peter
* write .size also * write .size also
} }