Browse Source

* Fix range check error

Michaël Van Canneyt 4 months ago
parent
commit
5aeaf398cd
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/cgbase.pas

+ 2 - 0
compiler/cgbase.pas

@@ -645,6 +645,8 @@ implementation
 
     begin
       delete:=false;
+      if (system.length(buf)=0) then
+        exit;
       { indexword in 1.0.x and 1.9.4 is broken }
       i:=indexword(buf[0],length,s);
       if i<>-1 then