lazdebuggergdbmi: less hints

git-svn-id: trunk@47611 -

components/lazdebuggergdbmi/gdbmidebugger.pp

@@ -5179,7 +5179,6 @@ var
   FileType, EntryPoint: String;
   List: TGDBMINameValueList;
   CanContinue: Boolean;
-  s, s2: String;
 begin
   Result := True;
   FSuccess := False;

components/lazdebuggergdbmi/gdbtypeinfo.pp

@@ -1545,6 +1545,7 @@ end;
 
 function TGDBExpressionPartNumber.GetTextFixed(AOpts: TGDBExprTextOptions): String;
 begin
+  if AOpts=[] then ;
   Result := FTextStr;
 end;