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

* empty result of IntParseString() in case the input is empty, fixes double

Browse Source 
output lines in generated config files by fpcmkcfg such as mentioned in
    mantis #22505
   

git-svn-id: trunk@21969 -
This commit is contained in:
Jonas Maebe 2012-07-25 11:49:09 +00:00
parent 31d004e056
commit 16974d2f08
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/src/fptemplate.pp
View File

@ -462,9 +462,9 @@ begin
if FAllowTagParams then if FAllowTagParams then
begin//template tags with parameters are allowed begin//template tags with parameters are allowed
SLen:=Length(Src); SLen:=Length(Src);
Result:='';
If SLen=0 then If SLen=0 then
exit; exit;
Result:='';
SP:=PChar(Src); SP:=PChar(Src);
P:=SP; P:=SP;
While (P-SP<SLen) do While (P-SP<SLen) do
@ -515,10 +515,10 @@ begin
If FParseLevel>FMaxParseDepth then If FParseLevel>FMaxParseDepth then
Raise ETemplateParser.CreateFmt(SErrParseDepthExceeded,[FMaxParseDepth]); Raise ETemplateParser.CreateFmt(SErrParseDepthExceeded,[FMaxParseDepth]);
SLen:=Length(Src); // Minimum SLen:=Length(Src); // Minimum
Result:='';
If SLen=0 then If SLen=0 then
exit; exit;
// STLen:=Length(FStartDelimiter); // STLen:=Length(FStartDelimiter);
Result:='';
SP:=PChar(Src); SP:=PChar(Src);
P:=SP; P:=SP;
While (P-SP<SLen) do While (P-SP<SLen) do