mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 09:06:02 +02:00
Avoid problems on implicit functions for gas
git-svn-id: trunk@27634 -
This commit is contained in:
parent
778e15251e
commit
9a40ff19a1
@ -395,6 +395,13 @@ implementation
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ implicit functions have no file information }
|
||||||
|
if nextlineisfunstart then
|
||||||
|
begin
|
||||||
|
list.insertbefore(Tai_stab.Create_str(stabx_bf,tostr(currfileinfo.line)),hp);
|
||||||
|
inc(stabx_func_level);
|
||||||
|
nextlineisfunstart:=false;
|
||||||
|
end;
|
||||||
if nolineinfolevel=0 then
|
if nolineinfolevel=0 then
|
||||||
begin
|
begin
|
||||||
{ line changed ? }
|
{ line changed ? }
|
||||||
|
Loading…
Reference in New Issue
Block a user