forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix infinite loop in expandSymString

This commit is contained in:
Basile Burg 2014-08-16 07:07:19 +02:00
parent 6a20a971a4
commit 1a6b840a29
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_main.pas
View File

@ -1863,6 +1863,9 @@ var
begs, ends: boolean; begs, ends: boolean;
i: integer; i: integer;
begin begin
if symString = '' then
exit(symString);
result := ''; result := '';
elems := TStringList.Create; elems := TStringList.Create;
try try