mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 16:09:27 +02:00
* protect against comparisons of nested types of generics and specializations
This commit is contained in:
parent
244d3df869
commit
ddc2259e5e
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user