Просмотр исходного кода

* 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.

git-svn-id: trunk@16581 -
sergei 14 лет назад
Родитель
Сommit
34ffb184a8
2 измененных файлов с 2 добавлено и 2 удалено
  1. 1 1
      compiler/i386/ag386nsm.pas
  2. 1 1
      compiler/x86/agx86int.pas

+ 1 - 1
compiler/i386/ag386nsm.pas

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

+ 1 - 1
compiler/x86/agx86int.pas

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