fixed generation of dwarf lineinfo in win32

git-svn-id: trunk@4171 -

compiler/aggas.pas

@@ -52,6 +52,7 @@ interface
         procedure WriteExtraHeader;virtual;
         procedure WriteInstruction(hp: tai);
        public
+        function MakeCmdLine: TCmdStr; override;
         procedure WriteTree(p:TAsmList);override;
         procedure WriteAsmList;override;
         destructor destroy; override;
@@ -224,6 +225,14 @@ implementation
       end;
 
 
+    function TGNUAssembler.MakeCmdLine: TCmdStr;
+      begin
+        result := inherited MakeCmdLine;
+        if paratargetdbg = dbg_dwarf then 
+          result := result + ' --gdwarf-2';
+      end;
+    
+    
     function TGNUAssembler.NextSetLabel: string;
       begin
         inc(setcount);

compiler/assemble.pas

@@ -125,7 +125,7 @@ interface
         procedure WriteAsmList;virtual;
 
         {# Constructs the command line for calling the assembler }
-        function MakeCmdLine: TCmdStr;
+        function MakeCmdLine: TCmdStr; virtual;
       public
         Constructor Create(smart:boolean);override;
         procedure MakeObject;override;
@@ -569,7 +569,7 @@ Implementation
 {$endif}
              Replace(result,'$ASM',maybequoted(AsmFileName));
            Replace(result,'$OBJ',maybequoted(ObjFileName));
-         end;
+         end; 
       end;