From bcdfd07bdd1cf31d609bc0fed933ad5d83d4114b Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 19 Nov 2020 20:53:47 +0000 Subject: [PATCH] * if a variant is read/written, include the variants unit git-svn-id: trunk@47459 - --- compiler/ninl.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/ninl.pas b/compiler/ninl.pas index e7fe493d2d..feb9d921c5 100644 --- a/compiler/ninl.pas +++ b/compiler/ninl.pas @@ -868,7 +868,10 @@ implementation end; end; variantdef : - name:=procprefixes[do_read]+'variant'; + begin + name:=procprefixes[do_read]+'variant'; + include(current_module.moduleflags,mf_uses_variants); + end; arraydef : begin if is_chararray(para.left.resultdef) then