Merged revisions 6493 via svnmerge from

svn+ssh://jonas@svn.freepascal.org/FPC/svn/fpc/trunk

........
r6493 | jonas | 2007-02-15 19:32:10 +0100 (Thu, 15 Feb 2007) | 4 lines

  * reset flag to generate dummy line info after each module
    compilation, since the debuginfo class isn't destroyed/
    created all the time

........


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fpc_2_3@6501 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 1 deletions

diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas
index bda493694d..a895d4fae3 100644
--- a/compiler/dbgdwarf.pas
+++ b/compiler/dbgdwarf.pas
@@ -2501,7 +2501,11 @@ implementation
       begin
         { only needed if no line info at all has been generated }
         if generated_lineinfo then
-          exit;
+          begin
+            { reset for next module compilation }
+            generated_lineinfo:=false;
+            exit;
+          end;
         { at least the Darwin linker is annoyed if you do not }
         { finish the lineinfo section, or if it doesn't       }
         { contain at least one file name and set_address      }