GDBMI debugger, more error handling

git-svn-id: trunk@47702 -

components/lazdebuggergdbmi/gdbmidebugger.pp

@@ -5194,7 +5194,11 @@ begin
       SetDebuggerErrorState(synfFailedToLoadApplicationExecutable, FErrorMsg);
       exit;
     end;
-    if not DoSetPascal then exit;
+    if not DoSetPascal then begin
+      SetDebuggerErrorState(synfFailedToInitializeTheDebuggerSetPascalFailed,
+        FLastExecResult.Values);
+      exit;
+    end;
 
     DebugLn(['TGDBMIDebugger.StartDebugging WorkingDir="', FTheDebugger.WorkingDir,'"']);
     if FTheDebugger.WorkingDir <> ''
@@ -5346,6 +5350,8 @@ begin
     then ProcessFrame;
   finally
     ReleaseRefAndNil(FContinueCommand);
+    if not (DebuggerState in [dsInit, dsRun, dsPause]) then
+      SetDebuggerErrorState(synfFailedToInitializeDebugger);
   end;
 
   FSuccess := True;

components/lazdebuggergdbmi/gdbmistringconstants.pas

@@ -79,6 +79,9 @@ resourcestring
   lisResponseContinue = 'Response: %sContinue ?';
   dlgGroupDebugger = 'Debugger';
   synfFailedToLoadApplicationExecutable = 'Failed to load application executable';
+  synfFailedToInitializeTheDebuggerSetPascalFailed = 'Failed to initialize the debugger (set '
+    +'pascal failed)';
+  synfFailedToInitializeDebugger = 'Failed to initialize debugger';
 
 implementation
 

components/lazdebuggergdbmi/languages/gdbmistringconstants.es.po

@@ -171,6 +171,14 @@ msgstr ""
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr ""
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.hu.po

@@ -143,6 +143,14 @@ msgstr "Válasz: %sFolytatás?"
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr "Váratlan eredmény:%sA hibakereső leállni"
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.it.po

@@ -145,6 +145,14 @@ msgstr "Risposta: %sContinuare ?"
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr "Risultato inatteso:%sIl debugger termina"
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.ja.po

@@ -171,6 +171,14 @@ msgstr ""
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr ""
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.lt.po

@@ -171,6 +171,14 @@ msgstr ""
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr ""
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.po

@@ -133,6 +133,14 @@ msgstr ""
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr ""
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.pt_BR.po

@@ -176,6 +176,14 @@ msgstr ""
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr ""
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""

components/lazdebuggergdbmi/languages/gdbmistringconstants.ru.po

@@ -170,6 +170,14 @@ msgstr "Ответ: %sПродолжить?"
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr "Неожиданный результат:%sОтладчик прервёт работу."
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr "Не удалось загрузить исполнимый файл приложения"

components/lazdebuggergdbmi/languages/gdbmistringconstants.uk.po

@@ -168,6 +168,14 @@ msgstr ""
 msgid "Unexpected result:%sThe debugger will terminate"
 msgstr ""
 
+#: gdbmistringconstants.synffailedtoinitializedebugger
+msgid "Failed to initialize debugger"
+msgstr ""
+
+#: gdbmistringconstants.synffailedtoinitializethedebuggersetpascalfailed
+msgid "Failed to initialize the debugger (set pascal failed)"
+msgstr ""
+
 #: gdbmistringconstants.synffailedtoloadapplicationexecutable
 msgid "Failed to load application executable"
 msgstr ""