* protect against comparisons of nested types of generics and specializations

This commit is contained in:
Sven/Sarah Barth 2024-02-09 17:14:29 +01:00
parent 244d3df869
commit ddc2259e5e

View File

@ -473,11 +473,13 @@ implementation
if ( if (
(df_generic in def_to.defoptions) and (df_generic in def_to.defoptions) and
(df_specialization in def_from.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 ( ) or (
(df_generic in def_from.defoptions) and (df_generic in def_from.defoptions) and
(df_specialization in def_to.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 ) then
begin begin
if tstoreddef(def_from).genericdef=def_to then if tstoreddef(def_from).genericdef=def_to then