paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 10:18:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerGdbmi: Improve whitelisted commands for memory limit

Browse Source 
git-svn-id: trunk@61067 -
This commit is contained in:
martin 2019-04-28 13:31:43 +00:00
parent 157ea70bdb
commit dfcb3321a3
1 changed files with 35 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -10762,13 +10762,41 @@ begin
Instr.ApplyArrayLenLimit(DebuggerProperties.MaxLocalsLengthForStaticArray); Instr.ApplyArrayLenLimit(DebuggerProperties.MaxLocalsLengthForStaticArray);
end end
else else
if not( (pos('-exec-', ACommand) = 1) or if not( (Length(ACommand) < 2) or
(pos('-break-', ACommand) = 1) or ( (ACommand[1] = '-') and (
(pos('-data-list-register-', ACommand) = 1) or ( (ACommand[2] = 'd') and (
(pos('-data-list-changed-registers', ACommand) = 1) or (pos('-data-list-register-', ACommand) = 1) or
(pos('-data-disassemble', ACommand) = 1) or (pos('-data-list-changed-registers', ACommand) = 1) or
(pos('-data-read-memory', ACommand) = 1) or (pos('-data-disassemble', ACommand) = 1) or
(pos('-gdb-exit', ACommand) = 1) (pos('-data-read-memory', ACommand) = 1)
)) or
( (ACommand[2] = 'g') and (
(pos('-gdb-version ', ACommand) = 1) or
(pos('-gdb-set ', ACommand) = 1) or
(pos('-gdb-exit', ACommand) = 1)
)) or
( (not(ACommand[2] in ['d', 'g'])) and (
(pos('-exec-', ACommand) = 1) or
(pos('-file-exec-', ACommand) = 1) or
(pos('-break-', ACommand) = 1)
))
)) or
( (ACommand[1] = 'i') and (
(pos('info line', ACommand) = 1) or
(pos('info address', ACommand) = 1) or
(pos('info pid', ACommand) = 1) or
(pos('info proc', ACommand) = 1) or
(pos('info function', ACommand) = 1) or
(pos('interrupt', ACommand) = 1) or
(pos('info program', ACommand) = 1)
)) or
( (ACommand[1] = 's') and (
(pos('set ', ACommand) = 1) or
(pos('show ', ACommand) = 1)
)) or
( (ACommand[1] = 'm') and (
(pos('maint ', ACommand) = 1)
))
) )
then begin then begin
Instr.ApplyMemLimit(DebuggerProperties.GdbValueMemLimit); Instr.ApplyMemLimit(DebuggerProperties.GdbValueMemLimit);