paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 00:40:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugServer: Resolved some warnings

Browse Source 
git-svn-id: trunk@49213 -
This commit is contained in:
joost 2015-05-29 17:45:22 +00:00
parent a48ce84628
commit bda023911d
2 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/app/fpdserver/debuginoutputprocessor.pas
View File

@ -14,7 +14,6 @@ uses
debugthread,
FpDbgClasses,
typinfo,
varutils,
variants,
jsonparser;
@ -44,9 +43,6 @@ type
implementation
var
GJSonInOutputProcessor: TJSonInOutputProcessor = nil;
{ TCustomInOutputProcessor }
constructor TCustomInOutputProcessor.create(AConnectionIdentifier: integer; AnOnLog: TOnLog);
@ -139,7 +135,6 @@ end;
function TJSonInOutputProcessor.EventToText(AnEvent: TFpDebugEvent): string;
var
s: string;
JSonEvent: TJSONObject;
JSonLocationRec: TJSONObject;
JSonStackArray: TJSONArray;
@ -219,9 +214,7 @@ end;
class function TJSonInOutputProcessor.InteractiveInitializationMessage(APort: integer): string;
var
s: string;
JSonMessage: TJSONObject;
JSonLocationRec: TJSONObject;
begin
JSonMessage := TJSONObject.Create;
try
@ -235,7 +228,5 @@ begin
end;
end;
finalization
GJSonInOutputProcessor := nil;
end.

7
components/fpdebug/app/fpdserver/debugthreadcommand.pas
View File

@ -6,7 +6,6 @@ interface
uses
Classes,
contnrs,
FPDbgController,
FpDbgClasses,
FpDbgUtil,
@ -214,6 +213,7 @@ begin
FStackEntryArray[i].Line:=ThreadCallStack[i].Line;
FStackEntryArray[i].SourceFile:=ThreadCallStack[i].SourceFile;
end;
DoProcessLoop:=false;
result := true;
end;
@ -249,6 +249,7 @@ var
begin
Result := False;
DoProcessLoop:=false;
ADbgInfo := AController.CurrentProcess.DbgInfo;
AContext := ADbgInfo.FindContext(AController.CurrentThread.ID, 0, AController.CurrentProcess.GetInstructionPointerRegisterValue);
if AContext = nil then
@ -304,11 +305,13 @@ function TFpDebugThreadQuitDebugServerCommand.PreExecute(AController: TDbgContro
begin
DoQueueCommand:=false;
CustomApplication.Terminate;
result := true;
end;
function TFpDebugThreadQuitDebugServerCommand.Execute(AController: TDbgController; out DoProcessLoop: boolean): boolean;
begin
// Do nothing
result := true;
DoProcessLoop := false;
end;
class function TFpDebugThreadQuitDebugServerCommand.TextName: string;