FpDebug: restructure dwarf classes, preparation for adding fpc specific subclasses

git-svn-id: trunk@44594 -

.gitattributes

@@ -1270,6 +1270,7 @@ components/fpdebug/fpdbgdarwinclasses.pas svneol=native#text/plain
 components/fpdebug/fpdbgdisasx86.pp svneol=native#text/plain
 components/fpdebug/fpdbgdwarf.pas svneol=native#text/pascal
 components/fpdebug/fpdbgdwarfconst.pas svneol=native#text/pascal
+components/fpdebug/fpdbgdwarfdataclasses.pas svneol=native#text/pascal
 components/fpdebug/fpdbgdwarfverboseprinter.pas svneol=native#text/pascal
 components/fpdebug/fpdbginfo.pas svneol=native#text/pascal
 components/fpdebug/fpdbgloader.pp svneol=native#text/pascal

components/fpdebug/app/fpdd/fpdumpdwarf.lpr

@@ -36,8 +36,8 @@ program FPDumpDwarf;
 {$mode objfpc}{$H+}
 
 uses
-  Classes, Windows, SysUtils, maps, LazLogger,
-  FpDbgPETypes, FpDbgDwarfConst, FpDbgSymbols, FpDbgLoader, FpDbgDwarf;
+  Classes, Windows, SysUtils, maps, LazLogger, FpDbgPETypes, FpDbgDwarfConst, FpDbgSymbols,
+  FpDbgLoader, FpDbgDwarf, FpDbgDwarfVerbosePrinter;
 
 var
   n, idx: Integer;
@@ -58,7 +58,7 @@ begin
   
   Loader := TDbgImageLoader.Create(ParamStr(1));
 
-  Dwarf := TDbgVerboseDwarf.Create(Loader);
+  Dwarf := TDbgDwarf.Create(Loader);
   n := Dwarf.LoadCompilationUnits;
   for idx := 0 to n - 1 do
   begin

components/fpdebug/fpdbgdwarfverboseprinter.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, windows, SysUtils, FpDbgDwarf, FpDbgLoader, FpDbgDwarfConst, FpdMemoryTools,
-  FpImgReaderBase, LazLoggerBase, maps;
+  FpImgReaderBase, FpDbgDwarfDataClasses, LazLoggerBase, maps;
 
 type
 

components/fpdebug/fpdebug.lpk

@@ -34,7 +34,7 @@ File(s) with other licenses (see also header in file(s):
 
   (Any modifications/translations of this file are from duby)
 "/>
-    <Files Count="24">
+    <Files Count="25">
       <Item1>
         <Filename Value="fpdbgclasses.pp"/>
         <UnitName Value="FpDbgClasses"/>
@@ -132,8 +132,12 @@ File(s) with other licenses (see also header in file(s):
       </Item23>
       <Item24>
         <Filename Value="fpdbgdwarfverboseprinter.pas"/>
-        <UnitName Value="fpdbgdwarfverboseprinter"/>
+        <UnitName Value="FpDbgDwarfVerbosePrinter"/>
       </Item24>
+      <Item25>
+        <Filename Value="fpdbgdwarfdataclasses.pas"/>
+        <UnitName Value="FpDbgDwarfDataClasses"/>
+      </Item25>
     </Files>
     <Type Value="RunAndDesignTime"/>
     <RequiredPkgs Count="3">

components/fpdebug/fpdebug.pas

@@ -11,7 +11,7 @@ uses
   FpDbgSymbols, FpDbgUtil, FpImgReaderWinPE, FpImgReaderElf, FpImgReaderElfTypes, 
   FpImgReaderBase, FpPascalParser, macho, FpImgReaderMachoFile, FpImgReaderMacho, 
   FpPascalBuilder, FpDbgInfo, FpdMemoryTools, FpErrorMessages, FpDbgDwarfVerbosePrinter, 
-  LazarusPackageIntf;
+  FpDbgDwarfDataClasses, LazarusPackageIntf;
 
 implementation
 

components/fpdebug/test/dwarfviewer/dwarfviewer.lpi

@@ -61,16 +61,13 @@
         <FormatVersion Value="1"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="3">
+    <RequiredPackages Count="2">
       <Item1>
-        <PackageName Value="ide"/>
+        <PackageName Value="fpdebug"/>
       </Item1>
       <Item2>
-        <PackageName Value="fpdebug"/>
-      </Item2>
-      <Item3>
         <PackageName Value="LCL"/>
-      </Item3>
+      </Item2>
     </RequiredPackages>
     <Units Count="3">
       <Unit0>

components/fpdebug/test/dwarfviewer/unit1.pas

@@ -6,9 +6,9 @@ interface
 
 uses
   FpImgReaderWinPE, Classes, SysUtils, math, FileUtil, LazLogger, LazLoggerProfiling,
-  lazutf8sysutils, FpDbgLoader, FpDbgDwarf, FpDbgDwarfConst, FpPascalParser, FpDbgInfo, Forms,
-  Controls, Graphics, Dialogs, StdCtrls, ComCtrls, EditBtn, Menus, Clipbrd, maps, types,
-  strutils;
+  lazutf8sysutils, FpDbgLoader, FpDbgDwarf, FpDbgDwarfConst, FpPascalParser, FpDbgInfo,
+  FpDbgDwarfDataClasses, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls, EditBtn,
+  Menus, Clipbrd, maps, types, strutils;
 
 type
 

components/lazdebuggerfp/fpgdbmidebugger.pp

@@ -13,9 +13,9 @@ uses
   windows,
   {$ENDIF}
   Classes, sysutils, math, FpdMemoryTools, FpDbgInfo, FpDbgClasses, GDBMIDebugger,
-  DbgIntfBaseTypes, DbgIntfDebuggerBase, GDBMIMiscClasses,
-  GDBTypeInfo, LCLProc, Forms, FpDbgLoader, FpDbgDwarf, LazLoggerBase,
-  LazLoggerProfiling, LazClasses, FpPascalParser, FpPascalBuilder, FpErrorMessages, MenuIntf;
+  DbgIntfBaseTypes, DbgIntfDebuggerBase, GDBMIMiscClasses, GDBTypeInfo, LCLProc, Forms,
+  FpDbgLoader, FpDbgDwarf, LazLoggerBase, LazLoggerProfiling, LazClasses, FpPascalParser,
+  FpPascalBuilder, FpErrorMessages, FpDbgDwarfDataClasses, MenuIntf;
 
 type