paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

change a[1,2] to a[1][2]

Browse Source
This commit is contained in:
peter 2004-12-06 20:39:25 +00:00
parent 2263433f93
commit 569e86ad64
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/fpdebug.pas
View File

@ -2609,6 +2609,21 @@ procedure TWatch.Get_new_value;
strdispose(last_value); strdispose(last_value);
last_value:=current_value; last_value:=current_value;
s:=GetStr(expr); s:=GetStr(expr);
{ Fix 2d array indexing, change [x,x] to [x][x] }
i:=pos('[',s);
if i>0 then
begin
while i<length(s) do
begin
if s[i]=',' then
begin
s[i]:='[';
insert(']',s,i);
inc(i);
end;
inc(i);
end;
end;
found:=GetValue(s); found:=GetValue(s);
Debugger^.got_error:=false; Debugger^.got_error:=false;
loop_higher:=not found; loop_higher:=not found;
@ -3643,7 +3658,10 @@ end.
{ {
$Log$ $Log$
Revision 1.56 2004-11-21 20:53:26 peter Revision 1.57 2004-12-06 20:39:25 peter
change a[1,2] to a[1][2]
Revision 1.56 2004/11/21 20:53:26 peter
* fixed breakpoint dialog * fixed breakpoint dialog
Revision 1.55 2004/11/11 15:20:52 florian Revision 1.55 2004/11/11 15:20:52 florian