Browse Source

Set current_filepos in Internal assembler class also if DEBUG macro is set

Pierre Muller 2 years ago
parent
commit
977ca19dc0
1 changed files with 13 additions and 1 deletions
  1. 13 1
      compiler/assemble.pas

+ 13 - 1
compiler/assemble.pas

@@ -1677,7 +1677,11 @@ Implementation
       begin
         while assigned(hp) do
          begin
-           case hp.typ of
+{$ifdef DEBUG}
+           if not(hp.typ in SkipLineInfo) then
+             current_filepos:=tailineinfo(hp).fileinfo;
+{$endif DEBUG}
+            case hp.typ of
              ait_align :
                begin
                  if tai_align_abstract(hp).aligntype>1 then
@@ -1898,6 +1902,10 @@ Implementation
       begin
         while assigned(hp) do
          begin
+{$ifdef DEBUG}
+           if not(hp.typ in SkipLineInfo) then
+             current_filepos:=tailineinfo(hp).fileinfo;
+{$endif DEBUG}
            case hp.typ of
              ait_align :
                begin
@@ -2110,6 +2118,10 @@ Implementation
         { main loop }
         while assigned(hp) do
          begin
+{$ifdef DEBUG}
+           if not(hp.typ in SkipLineInfo) then
+             current_filepos:=tailineinfo(hp).fileinfo;
+{$endif DEBUG}
            case hp.typ of
              ait_align :
                begin