2
0
Эх сурвалжийг харах

rautils: don't interpret ".L3" as potentially meaning "unitx.identifier"

Fixes compilation of webtbs/tw10641.pp with a compiler compiled with
range checking
Jonas Maebe 3 жил өмнө
parent
commit
8c67a4370b

+ 1 - 1
compiler/rautils.pas

@@ -1413,7 +1413,7 @@ var
 begin
 begin
   i:=pos('.',s);
   i:=pos('.',s);
   { allow unit.identifier }
   { allow unit.identifier }
-  if i>0 then
+  if i>1 then
     begin
     begin
       searchsym(Copy(s,1,i-1),srsym,srsymtable);
       searchsym(Copy(s,1,i-1),srsym,srsymtable);
       if assigned(srsym) then
       if assigned(srsym) then