paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 23:00:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
Fixes compilation of webtbs/tw10641.pp with a compiler compiled with
range checking
This commit is contained in:
Jonas Maebe 2022-05-28 13:45:56 +02:00
parent 390084d59e
commit 8c67a4370b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/rautils.pas
View File

@ -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