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

* Fixed a wrong code caused by a typo. It has been revealed by a note about an unused var.

Browse Source 
git-svn-id: trunk@48387 -
This commit is contained in:
yury 2021-01-24 13:08:54 +00:00
parent 221efd7a80
commit 9c265d71f0
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/pgenutil.pas
View File

@ -990,7 +990,7 @@ uses
paramdef2:=tconstsym(tstoreddef(def).genericparas[i]).constdef
else
paramdef2:=ttypesym(tstoreddef(def).genericparas[i]).typedef;
if not equal_defs(paramdef2,paramdef2) then
if not equal_defs(paramdef1,paramdef2) then
begin
allequal:=false;
break;