From 6ad786f8ef42f5eb60a3d526a2f737d9b8c369c5 Mon Sep 17 00:00:00 2001 From: nickysn Date: Tue, 27 Mar 2018 15:33:50 +0000 Subject: [PATCH] + introduce ttypeconvnodeflags (empty for now) git-svn-id: trunk@38636 - --- compiler/ncnv.pas | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas index 23dab14e3e..281423db98 100644 --- a/compiler/ncnv.pas +++ b/compiler/ncnv.pas @@ -33,10 +33,18 @@ interface ; type + ttypeconvnodeflag = ( + tcnf_dummyflag { todo: remove this, when the first real typeconvnode + flag is added (this is just a dummy element, because + the enum cannot be empty) } + ); + ttypeconvnodeflags = set of ttypeconvnodeflag; + ttypeconvnode = class(tunarynode) totypedef : tdef; totypedefderef : tderef; convtype : tconverttype; + convnodeflags : ttypeconvnodeflags; warn_pointer_to_signed, assignment_side: boolean; constructor create(node : tnode;def:tdef);virtual; @@ -910,6 +918,7 @@ implementation begin inherited create(typeconvn,node); convtype:=tc_none; + convnodeflags:=[]; totypedef:=def; if def=nil then internalerror(200103281); @@ -967,6 +976,7 @@ implementation inherited ppuload(t,ppufile); ppufile.getderef(totypedefderef); convtype:=tconverttype(ppufile.getbyte); + ppufile.getsmallset(convnodeflags); end; @@ -975,6 +985,7 @@ implementation inherited ppuwrite(ppufile); ppufile.putderef(totypedefderef); ppufile.putbyte(byte(convtype)); + ppufile.putsmallset(convnodeflags); end;