Преглед на файлове

* Fix range check error

Michaël Van Canneyt преди 6 месеца
родител
ревизия
5aeaf398cd
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      compiler/cgbase.pas

+ 2 - 0
compiler/cgbase.pas

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