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

fix some warnings

Browse Source 
git-svn-id: trunk@46906 -
This commit is contained in:
martin 2014-11-20 16:27:55 +00:00
parent fb8000de63
commit 56a4a31450
4 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgwinclasses.pas
View File

@ -73,7 +73,7 @@ type
TDbgWinBreakpointEvent = procedure(const ASender: TDbgBreakpoint; const AContext: TContext) of object;
TDbgWinBreakpoint = class(TDbgBreakpoint)
protected
public
procedure SetBreak; override;
procedure ResetBreak; override;
end;
@ -520,11 +520,9 @@ function TDbgWinProcess.AnalyseDebugEvent(AThread: TDbgThread): TFPDEvent;
const
PARAMCOLS = 12 - SizeOf(Pointer);
var
N: Integer;
Info0: QWORD;
Info1: QWORD;
Info1Str: String;
P: PByte;
ExInfo32: TExceptionDebugInfo32 absolute AEvent.Exception;
ExInfo64: TExceptionDebugInfo64 absolute AEvent.Exception;
begin

2
components/fpdebug/fpdmemorytools.pas
View File

@ -393,7 +393,7 @@ begin
Result := 0;
end;
function EmptyMemReadOpts: TFpDbgMemReadOptions;
function {%H-}EmptyMemReadOpts: TFpDbgMemReadOptions;
begin
//
end;

2
components/fpdebug/fpimgreaderelf.pas
View File

@ -342,7 +342,7 @@ var
SymbolArr32: PElf32symbolArray;
SymbolArr64: PElf64symbolArray;
SymbolStr: pointer;
i,j: integer;
i: integer;
SymbolCount: integer;
SymbolName: AnsiString;
begin

2
components/fpdebug/fppascalparser.pas
View File

@ -1019,7 +1019,7 @@ end;
function TFpPascalExpressionPartBracketIndex.DoGetResultValue: TFpDbgValue;
var
TmpVal, TmpVal2, TmpIndex, TmpDeref: TFpDbgValue;
TmpVal, TmpVal2, TmpIndex: TFpDbgValue;
i: Integer;
Offs: Int64;
ti: TFpDbgSymbol;