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

DBG: small fix in expression parser do not send empty expression)

Browse Source 
git-svn-id: trunk@32411 -
This commit is contained in:
martin 2011-09-18 20:54:16 +00:00
parent d65d00c3f7
commit 0271730391
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbtypeinfo.pp
View File

@ -1565,7 +1565,7 @@ var
j := length(FExpression);
i := 1;
while (i < j) and (FExpression[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_']) do inc(i);
if (i <= j) and (FExpression[i] = '(')
if (i <= j) and (i > 1) and (FExpression[i] = '(')
then begin
RequireRequests([gptrPtypeCustomFixCast], copy(FExpression, 1, i-1));
FProcessState := gtpsInitFixTypeCast;