paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 12:38:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Moved fpdebug

Browse Source 
git-svn-id: trunk@42802 -
This commit is contained in:
martin 2013-09-15 10:59:04 +00:00
parent 1e8926baa8
commit 5f80553ea9
28 changed files with 149 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
.gitattributes vendored
View File

@ -1191,6 +1191,31 @@ components/fpcunit/languages/guitestrunner.pt_BR.po svneol=native#text/plain
components/fpcunit/languages/guitestrunner.ru.po svneol=native#text/plain
components/fpcunit/languages/guitestrunner.uk.po svneol=native#text/plain
components/fpcunit/lib/README.txt svneol=native#text/plain
components/fpdebug/app/fpd/README.txt svneol=native#text/plain
components/fpdebug/app/fpd/fpd.lpi svneol=native#text/pascal
components/fpdebug/app/fpd/fpd.lpr svneol=native#text/pascal
components/fpdebug/app/fpd/fpdcommand.pas svneol=native#text/pascal
components/fpdebug/app/fpd/fpdglobal.pas svneol=native#text/pascal
components/fpdebug/app/fpd/fpdloop.pas svneol=native#text/pascal
components/fpdebug/app/fpd/fpdpeimage.pas svneol=native#text/pascal
components/fpdebug/app/fpd/fpdtype.pas svneol=native#text/pascal
components/fpdebug/app/fpdd/fpdumpdwarf.lpi svneol=native#text/plain
components/fpdebug/app/fpdd/fpdumpdwarf.lpr svneol=native#text/pascal
components/fpdebug/fpdbgclasses.pp svneol=native#text/pascal
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/fpdbgloader.pp svneol=native#text/pascal
components/fpdebug/fpdbgpetypes.pp svneol=native#text/pascal
components/fpdebug/fpdbgsymbols.pas svneol=native#text/pascal
components/fpdebug/fpdbgutil.pp svneol=native#text/pascal
components/fpdebug/fpdbgwinextra.pp svneol=native#text/pascal
components/fpdebug/fpdebug.lpk svneol=native#text/pascal
components/fpdebug/test/asmtest.lpi svneol=native#text/plain
components/fpdebug/test/asmtest.lpr svneol=native#text/pascal
components/fpdebug/test/asmtestunit.lfm svneol=native#text/plain
components/fpdebug/test/asmtestunit.lrs svneol=native#text/pascal
components/fpdebug/test/asmtestunit.pas svneol=native#text/pascal
components/fppkg/images/archive.png -text
components/fppkg/images/broken.png -text
components/fppkg/images/build.png -text
@ -3678,30 +3703,6 @@ debugger/exceptiondlg.lfm svneol=native#text/plain
debugger/exceptiondlg.pas svneol=native#text/pascal
debugger/feedbackdlg.lfm svneol=native#text/plain
debugger/feedbackdlg.pp svneol=native#text/pascal
debugger/fpdebug/dbgclasses.pp svneol=native#text/pascal
debugger/fpdebug/dbgdisasx86.pp svneol=native#text/plain
debugger/fpdebug/dbgdwarf.pas svneol=native#text/pascal
debugger/fpdebug/dbgdwarfconst.pas svneol=native#text/pascal
debugger/fpdebug/dbgloader.pp svneol=native#text/pascal
debugger/fpdebug/dbgpetypes.pp svneol=native#text/pascal
debugger/fpdebug/dbgsymbols.pas svneol=native#text/pascal
debugger/fpdebug/dbgutil.pp svneol=native#text/pascal
debugger/fpdebug/dbgwinextra.pp svneol=native#text/pascal
debugger/fpdebug/fpd/README.txt svneol=native#text/plain
debugger/fpdebug/fpd/fpd.lpi svneol=native#text/pascal
debugger/fpdebug/fpd/fpd.lpr svneol=native#text/pascal
debugger/fpdebug/fpd/fpdcommand.pas svneol=native#text/pascal
debugger/fpdebug/fpd/fpdglobal.pas svneol=native#text/pascal
debugger/fpdebug/fpd/fpdloop.pas svneol=native#text/pascal
debugger/fpdebug/fpd/fpdpeimage.pas svneol=native#text/pascal
debugger/fpdebug/fpd/fpdtype.pas svneol=native#text/pascal
debugger/fpdebug/fpdd/fpdumpdwarf.lpi svneol=native#text/plain
debugger/fpdebug/fpdd/fpdumpdwarf.lpr svneol=native#text/pascal
debugger/fpdebug/test/asmtest.lpi svneol=native#text/plain
debugger/fpdebug/test/asmtest.lpr svneol=native#text/pascal
debugger/fpdebug/test/asmtestunit.lfm svneol=native#text/plain
debugger/fpdebug/test/asmtestunit.lrs svneol=native#text/pascal
debugger/fpdebug/test/asmtestunit.pas svneol=native#text/pascal
debugger/frames/debugger_eventlog_options.lfm svneol=native#text/plain
debugger/frames/debugger_eventlog_options.pas svneol=native#text/pascal
debugger/frames/debugger_general_options.lfm svneol=native#text/plain
@ -6874,6 +6875,7 @@ packager/globallinks/filefindlaz-1.0.2.lpl svneol=native#text/plain
packager/globallinks/fpcunitconsolerunner-1.lpl svneol=native#text/plain
packager/globallinks/fpcunitide-0.1.lpl svneol=native#text/plain
packager/globallinks/fpcunittestrunner-0.1.lpl svneol=native#text/plain
packager/globallinks/fpdebug-0.lpl svneol=native#text/pascal
packager/globallinks/fpvectorialpkg-0.lpl svneol=native#text/plain
packager/globallinks/h2paswizard-0.lpl svneol=native#text/plain
packager/globallinks/ide-0.lpl svneol=native#text/plain

12
.gitignore vendored
View File

@ -42,6 +42,12 @@ components/fpcunit/ide/units
components/fpcunit/lib/*.bak
components/fpcunit/lib/units
components/fpcunit/units
components/fpdebug/app/fpd/*.bak
components/fpdebug/app/fpd/units
components/fpdebug/app/fpdd/*.bak
components/fpdebug/app/fpdd/units
components/fpdebug/test/*.bak
components/fpdebug/test/units
components/h2pas/*.bak
components/h2pas/languages/*.bak
components/h2pas/languages/units
@ -291,12 +297,6 @@ debian/*.bak
debian/units
debugger/*.bak
debugger/fpdebug/*.bak
debugger/fpdebug/fpd/*.bak
debugger/fpdebug/fpd/units
debugger/fpdebug/fpdd/*.bak
debugger/fpdebug/fpdd/units
debugger/fpdebug/test/*.bak
debugger/fpdebug/test/units
debugger/fpdebug/units
debugger/test/*.bak
debugger/test/examples/*.bak

0
debugger/fpdebug/fpd/README.txt → components/fpdebug/app/fpd/README.txt
View File

11
debugger/fpdebug/fpd/fpd.lpi → components/fpdebug/app/fpd/fpd.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -7,7 +7,6 @@
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
@ -34,10 +33,13 @@
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCLBase"/>
<PackageName Value="fpdebug"/>
</Item1>
<Item2>
<PackageName Value="LCLBase"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
@ -59,7 +61,6 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value=".."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>

2
debugger/fpdebug/fpd/fpd.lpr → components/fpdebug/app/fpd/fpd.lpr
View File

@ -44,7 +44,7 @@ uses
FPDLoop,
FPDPEImage,
FPDType,
DbgClasses, DbgWinExtra, DbgPETypes, DbgDwarfConst, DbgDwarf;
FpDbgClasses, FpDbgWinExtra, FpDbgPETypes, FpDbgDwarfConst, FpDbgDwarf;
function CtrlCHandler(CtrlType: Cardinal): BOOL; stdcall;
begin

2
debugger/fpdebug/fpd/fpdcommand.pas → components/fpdebug/app/fpd/fpdcommand.pas
View File

@ -36,7 +36,7 @@ unit FPDCommand;
interface
uses
SysUtils, Classes, Windows, LCLProc, DbgWinExtra, DbgClasses;
SysUtils, Classes, Windows, LCLProc, FpDbgWinExtra, FpDbgClasses;
procedure HandleCommand(ACommand: String);

2
debugger/fpdebug/fpd/fpdglobal.pas → components/fpdebug/app/fpd/fpdglobal.pas
View File

@ -36,7 +36,7 @@ unit FPDGlobal;
interface
uses
SysUtils, Windows, FPDType, Maps, DbgUtil, DbgClasses, DbgWinExtra;
SysUtils, Windows, FPDType, Maps, FpDbgUtil, FpDbgClasses, FpDbgWinExtra;
type
TFPDState = (dsStop, dsRun, dsPause, dsQuit, dsEvent);

2
debugger/fpdebug/fpd/fpdloop.pas → components/fpdebug/app/fpd/fpdloop.pas
View File

@ -37,7 +37,7 @@ unit FPDLoop;
interface
uses
Windows, Classes, SysUtils, FileUtil, DbgClasses, DbgWinExtra, DbgDisasX86;
Windows, Classes, SysUtils, FileUtil, FpDbgClasses, FpDbgWinExtra, FpDbgDisasX86;
procedure DebugLoop;

2
debugger/fpdebug/fpd/fpdpeimage.pas → components/fpdebug/app/fpd/fpdpeimage.pas
View File

@ -37,7 +37,7 @@ unit FPDPEImage;
interface
uses
Windows, SysUtils, FPDGLobal, DbgClasses, DbgPETypes;
Windows, SysUtils, FPDGLobal, FpDbgClasses, FpDbgPETypes;
procedure DumpPEImage(const AProcessHandle: THandle; const AAddress: TDbgPtr);

0
debugger/fpdebug/fpd/fpdtype.pas → components/fpdebug/app/fpd/fpdtype.pas
View File

10
debugger/fpdebug/fpdd/fpdumpdwarf.lpi → components/fpdebug/app/fpdd/fpdumpdwarf.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
@ -33,10 +33,13 @@
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
<PackageName Value="fpdebug"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
@ -58,7 +61,6 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value=".."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>

2
debugger/fpdebug/fpdd/fpdumpdwarf.lpr → components/fpdebug/app/fpdd/fpdumpdwarf.lpr
View File

@ -37,7 +37,7 @@ program FPDumpDwarf;
uses
Classes, Windows, SysUtils, maps,
DbgPETypes, DbgDwarfConst, DbgSymbols, DbgLoader, DbgDwarf;
FpDbgPETypes, FpDbgDwarfConst, FpDbgSymbols, FpDbgLoader, FpDbgDwarf;
var
n, idx: Integer;

8
debugger/fpdebug/dbgclasses.pp → components/fpdebug/fpdbgclasses.pp
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgclasses.pp - Native freepascal debugger
fpdbgclasses.pp - Native freepascal debugger
---------------------------------------------------------------------------
This unit contains debugger classes for a native freepascal debugger
@ -31,12 +31,12 @@
* *
***************************************************************************
}
unit DbgClasses;
unit FpDbgClasses;
{$mode objfpc}{$H+}
interface
uses
Windows, Classes, Maps, DbgUtil, DbgWinExtra, DbgLoader;
Windows, Classes, Maps, FpDbgUtil, FpDbgWinExtra, FpDbgLoader;
type
TDbgPtr = QWord; // PtrUInt;
@ -266,7 +266,7 @@ type
implementation
uses
SysUtils, DbgDwarf;
SysUtils, FpDbgDwarf;
procedure LogLastError;
begin

6
debugger/fpdebug/dbgdisasx86.pp → components/fpdebug/fpdbgdisasx86.pp
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgdisasx86.pp - Native Freepascal debugger - x86 Disassembler
fpdbgdisasx86.pp - Native Freepascal debugger - x86 Disassembler
---------------------------------------------------------------------------
This unit contains a x86 disassembler for the Native Freepascal debugger
@ -31,7 +31,7 @@
* *
***************************************************************************
}
unit DbgDisasX86;
unit FpDbgDisasX86;
{$mode objfpc}{$H+}
interface
@ -39,7 +39,7 @@ interface
{.$define verbose_string_instructions}
uses
SysUtils, Windows, DbgUtil, DbgWinExtra, DbgClasses;
SysUtils, Windows, FpDbgUtil, FpDbgWinExtra, FpDbgClasses;
{
The function Disassemble decodes the instruction at the given address.

8
debugger/fpdebug/dbgdwarf.pas → components/fpdebug/fpdbgdwarf.pas
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgdwarf.pas - Native Freepascal debugger - Dwarf symbol reader
fpdbgdwarf.pas - Native Freepascal debugger - Dwarf symbol reader
---------------------------------------------------------------------------
This unit contains helper classes for loading and resolving of DWARF debug
@ -32,15 +32,15 @@
* *
***************************************************************************
}
unit DbgDwarf;
unit FpDbgDwarf;
{$mode objfpc}{$H+}
interface
uses
Classes, Types, SysUtils, DbgClasses, DbgDwarfConst, Maps, Math,
DbgLoader, DbgWinExtra, contnrs;
Classes, Types, SysUtils, FpDbgClasses, FpDbgDwarfConst, Maps, Math,
FpDbgLoader, FpDbgWinExtra, contnrs;
type
// compilation unit header

4
debugger/fpdebug/dbgdwarfconst.pas → components/fpdebug/fpdbgdwarfconst.pas
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgdwarfconst.pas - Freepascal debugger - Dwarf constants
fpdbgdwarfconst.pas - Freepascal debugger - Dwarf constants
---------------------------------------------------------------------------
This unit contains the constants defined for the dward debugging format.
@ -19,7 +19,7 @@
for details about the license.
*****************************************************************************
}
unit DbgDwarfConst;
unit FpDbgDwarfConst;
{$mode objfpc}{$H+}

6
debugger/fpdebug/dbgloader.pp → components/fpdebug/fpdbgloader.pp
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgloader.pp - Native Freepascal debugger - Section loader
fpdbgloader.pp - Native Freepascal debugger - Section loader
---------------------------------------------------------------------------
This unit contains helper classes for loading secions form images.
@ -31,7 +31,7 @@
* *
***************************************************************************
}
unit DbgLoader;
unit FpDbgLoader;
{$mode objfpc}{$H+}
@ -41,7 +41,7 @@ uses
{$ifdef windows}
Windows,
{$endif}
Classes, SysUtils, DbgPETypes;
Classes, SysUtils, FpDbgPETypes;
type
TDbgImageSection = record

4
debugger/fpdebug/dbgpetypes.pp → components/fpdebug/fpdbgpetypes.pp
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgpetypes.pp - Freepascal debugger - PE types
fpdbgpetypes.pp - Freepascal debugger - PE types
---------------------------------------------------------------------------
This unit contains the types needed for reading PE images.
@ -20,7 +20,7 @@
for details about the license.
*****************************************************************************
}
unit DbgPETypes;
unit FpDbgPETypes;
{$mode objfpc}{$H+}{$inline on}
interface

6
debugger/fpdebug/dbgsymbols.pas → components/fpdebug/fpdbgsymbols.pas
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgsymbols.pas - Native freepascal debugger - Symbol loader/resolver
fpdbgsymbols.pas - Native freepascal debugger - Symbol loader/resolver
---------------------------------------------------------------------------
This unit contains helper classes for loading and resolving of debug symbols
@ -31,14 +31,14 @@
* *
***************************************************************************
}
unit DbgSymbols;
unit FpDbgSymbols;
{$mode objfpc}{$H+}
interface
uses
Windows, Classes, SysUtils, DbgClasses, DbgWinExtra, DbgPETypes, DbgDwarf, DbgUtil;
Windows, Classes, SysUtils, FpDbgClasses, FpDbgWinExtra, FpDbgPETypes, FpDbgDwarf, FpDbgUtil;
procedure AddSymbols(AParent: TDbgSymbol; AModule: THandle);

4
debugger/fpdebug/dbgutil.pp → components/fpdebug/fpdbgutil.pp
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgutil.pp - Native freepascal debugger - Utilities
fpdbgutil.pp - Native freepascal debugger - Utilities
---------------------------------------------------------------------------
This unit contains utility functions
@ -31,7 +31,7 @@
* *
***************************************************************************
}
unit DbgUtil;
unit FpDbgUtil;
{$mode objfpc}{$H+}

4
debugger/fpdebug/dbgwinextra.pp → components/fpdebug/fpdbgwinextra.pp
View File

@ -1,7 +1,7 @@
{ $Id$ }
{
---------------------------------------------------------------------------
dbgwinextra.pp - Native Freepascal debugger - Extra windows utilities
fpdbgwinextra.pp - Native Freepascal debugger - Extra windows utilities
---------------------------------------------------------------------------
This unit contains utility functions and missing win32/64 API
@ -31,7 +31,7 @@
* *
***************************************************************************
}
unit DbgWinExtra;
unit FpDbgWinExtra;
{$mode objfpc}{$H+}

73
components/fpdebug/fpdebug.lpk Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="fpdebug"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Files Count="9">
<Item1>
<Filename Value="fpdbgclasses.pp"/>
<UnitName Value="fpdbgclasses"/>
</Item1>
<Item2>
<Filename Value="fpdbgdisasx86.pp"/>
<UnitName Value="fpdbgdisasx86"/>
</Item2>
<Item3>
<Filename Value="fpdbgdwarf.pas"/>
<UnitName Value="fpdbgdwarf"/>
</Item3>
<Item4>
<Filename Value="fpdbgdwarfconst.pas"/>
<UnitName Value="fpdbgdwarfconst"/>
</Item4>
<Item5>
<Filename Value="fpdbgloader.pp"/>
<UnitName Value="fpdbgloader"/>
</Item5>
<Item6>
<Filename Value="fpdbgpetypes.pp"/>
<UnitName Value="fpdbgpetypes"/>
</Item6>
<Item7>
<Filename Value="fpdbgsymbols.pas"/>
<UnitName Value="fpdbgsymbols"/>
</Item7>
<Item8>
<Filename Value="fpdbgutil.pp"/>
<UnitName Value="fpdbgutil"/>
</Item8>
<Item9>
<Filename Value="fpdbgwinextra.pp"/>
<UnitName Value="fpdbgwinextra"/>
</Item9>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="LCLBase"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>

0
debugger/fpdebug/test/asmtest.lpi → components/fpdebug/test/asmtest.lpi
View File

0
debugger/fpdebug/test/asmtest.lpr → components/fpdebug/test/asmtest.lpr
View File

0
debugger/fpdebug/test/asmtestunit.lfm → components/fpdebug/test/asmtestunit.lfm
View File

0
debugger/fpdebug/test/asmtestunit.lrs → components/fpdebug/test/asmtestunit.lrs
View File

0
debugger/fpdebug/test/asmtestunit.pas → components/fpdebug/test/asmtestunit.pas
View File

1
packager/globallinks/fpdebug-0.lpl Normal file
View File

@ -0,0 +1 @@
$(LazarusDir)/components/fpdebug.lpk