paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 09:57:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed ReadAndCompareUsedUnit, bug #30505

Browse Source 
git-svn-id: trunk@53119 -
This commit is contained in:
mattias 2016-10-14 18:51:19 +00:00
parent 7b3bc48258
commit e86e540a69
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalreadertool.pas
View File

@ -3426,7 +3426,7 @@ begin
end; end;
// dot // dot
if (p<>nil) then begin if (p<>nil) then begin
if p='.' then if p^='.' then
inc(p) inc(p)
else else
p:=nil; p:=nil;