paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 12:59:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix never-ending loop in splitline

Browse Source 
git-svn-id: trunk@33577 -
This commit is contained in:
michael 2016-04-30 07:29:54 +00:00
parent 5c2f941c32
commit 7e54688fd4
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
utils/fpdoc/dw_latex.pp
View File

@ -169,30 +169,30 @@ Function TLaTeXWriter.SplitLine (ALine : String): String;
InString : Boolean;
begin
Result:=0;
L:=Length(S);
if (L>MaxVerbatimLength) then
begin
InString:=False;
Result:=0;
I:=1;
C:=@S[1];
While (I<=MaxVerbatimLength) do
begin
If C^='''' then
InString:=Not Instring
else if Not InString then
begin
if Not (C^ in NonSplit) then
Result:=I;
end;
Inc(I);
Inc(C);
end;
end;
If Result=0 then
Result:=L+1;
end;
Result:=0;
L:=Length(S);
if (L>MaxVerbatimLength) then
begin
InString:=False;
Result:=0;
I:=1;
C:=@S[1];
While (I<=L) and (Result<=MaxVerbatimLength) do
begin
If C^='''' then
InString:=Not Instring
else if Not InString then
begin
if Not (C^ in NonSplit) then
Result:=I;
end;
Inc(I);
Inc(C);
end;
end;
If (Result=0) or (Result=1) then
Result:=L+1;
end;
Var
SP : Integer;