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

* MASM and NASM assembler writers, added check for InlineLevel>0 so it suppresses entire source file processing, not just output of source lines. Without this, auto-generated instructions cause output of bogus line information. GAS writer already has similar check.

Browse Source 
git-svn-id: trunk@16581 -
This commit is contained in:
sergei 2010-12-17 18:03:56 +00:00
parent d900dcb78f
commit 34ffb184a8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/ag386nsm.pas
View File

@ -552,7 +552,7 @@ interface
begin begin
hp1:=hp as tailineinfo; hp1:=hp as tailineinfo;
current_filepos:=hp1.fileinfo; current_filepos:=hp1.fileinfo;
if do_line then if do_line and (InlineLevel=0) then
begin begin
{ load infile } { load infile }
if lastfileinfo.fileindex<>hp1.fileinfo.fileindex then if lastfileinfo.fileindex<>hp1.fileinfo.fileindex then

2
compiler/x86/agx86int.pas
View File

@ -474,7 +474,7 @@ implementation
while assigned(hp) do while assigned(hp) do
begin begin
if do_line and not(hp.typ in SkipLineInfo) and if do_line and not(hp.typ in SkipLineInfo) and
not DoNotSplitLine then not DoNotSplitLine and (InlineLevel=0) then
begin begin
hp1:=hp as tailineinfo; hp1:=hp as tailineinfo;
{ load infile } { load infile }