paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid invalid typecast error when using -CR option

Browse Source 
git-svn-id: trunk@48978 -
This commit is contained in:
pierre 2021-03-15 13:25:59 +00:00
parent 85fa313e59
commit a7de0b365b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/htypechk.pas
View File

@ -625,7 +625,8 @@ implementation
pd : tprocdef;
oldcount,
count: longint;
parasym : tparavarsym;
sym : tsym;
parasym : tparavarsym absolute sym;
begin
result:=false;
count := pf.parast.SymList.count;
@ -633,8 +634,8 @@ implementation
oldcount:=count;
while count > 0 do
begin
parasym:=tparavarsym(pf.parast.SymList[count-1]);
if parasym.typ<>paravarsym then
sym:=tsym(pf.parast.SymList[count-1]);
if sym.typ<>paravarsym then
begin
dec(count);
end