fix, possible AV when lexing nothing

2015-09-07 15:52:58 +02:00 · 2015-09-07 15:52:58 +02:00 · e26f8494af
parent fe1e1468ee
commit e26f8494af
1 changed files with 2 additions and 0 deletions
--- a/src/ce_dlang.pas
+++ b/src/ce_dlang.pas
@ -372,6 +372,8 @@ var

 begin

+  if aText = '' then exit;
+
  reader.Create(@aText[1], Point(0, 0));
  while (True) do
  begin