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

bugfix: empty source side effects

This commit is contained in:
Basile Burg 2014-07-06 21:05:37 +02:00
parent 57cac8022c
commit 6c52701a10
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_editor.pas
View File

@ -228,17 +228,21 @@ begin
begin begin
mainForm.docChangeNotify(Self, editorIndex); mainForm.docChangeNotify(Self, editorIndex);
mainForm.MessageWidget.Clear;
lex( ed.Lines.Text, tokLst );
checkSyntacticErrors( tokLst, errLst); if ed.Lines.Count > 0 then
for err in errLst do begin
mainForm.MessageWidget.addMessage(format( mainForm.MessageWidget.Clear;
'%s (@line:%4.d @char:%.4d)',[err.msg, err.position.y, err.position.x])); lex( ed.Lines.Text, tokLst );
md := getModuleName(tokLst); checkSyntacticErrors( tokLst, errLst);
if md = '' then md := extractFileName(ed.fileName); for err in errLst do
pageControl.ActivePage.Caption := md; mainForm.MessageWidget.addMessage(format(
'%s (@line:%4.d @char:%.4d)',[err.msg, err.position.y, err.position.x]));
md := getModuleName(tokLst);
if md = '' then md := extractFileName(ed.fileName);
pageControl.ActivePage.Caption := md;
end;
mainForm.MessageWidget.scrollToBack; mainForm.MessageWidget.scrollToBack;
tokLst.Clear; tokLst.Clear;