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

* fixed newline broken by valgrind patch

Browse Source
This commit is contained in:
peter 2004-11-03 12:08:30 +00:00
parent 4fbda6140f
commit 7e126adf31
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/weditor.pas
View File

@ -1897,10 +1897,11 @@ begin
else
begin
CP:=0; RX:=0;
while (RX<=X) and (CP<length(S)) do
while (RX<=X) and (CP<=length(S)) do
begin
Inc(CP);
if S[CP]=TAB then
if (CP<=length(S)) and
(S[CP]=TAB) then
Inc(RX,TabSize-(RX mod TabSize))
else
Inc(RX);
@ -7270,7 +7271,10 @@ end;
END.
{
$Log$
Revision 1.45 2004-11-02 23:53:19 peter
Revision 1.46 2004-11-03 12:08:30 peter
* fixed newline broken by valgrind patch
Revision 1.45 2004/11/02 23:53:19 peter
* fixed crashes with ide and 1.9.x
Revision 1.44 2004/02/13 06:53:57 pierre