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

* protect against comparisons of nested types of generics and specializations

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-02-09 17:14:29 +01:00
parent 244d3df869
commit ddc2259e5e
1 changed files with 4 additions and 2 deletions

6
compiler/defcmp.pas
View File

@ -473,11 +473,13 @@ implementation
if (
(df_generic in def_to.defoptions) and
(df_specialization in def_from.defoptions) and
(tstoreddef(def_from).genericdef=def_to)
(tstoreddef(def_from).genericdef=def_to) and
assigned(tstoreddef(def_to).genericparas)
) or (
(df_generic in def_from.defoptions) and
(df_specialization in def_to.defoptions) and
(tstoreddef(def_to).genericdef=def_from)
(tstoreddef(def_to).genericdef=def_from) and
assigned(tstoreddef(def_from).genericparas)
) then
begin
if tstoreddef(def_from).genericdef=def_to then