paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 05:48:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduce ttypeconvnodeflags (empty for now)

Browse Source 
git-svn-id: trunk@38636 -
This commit is contained in:
nickysn 2018-03-27 15:33:50 +00:00
parent d8f8b9844f
commit 6ad786f8ef
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncnv.pas
View File

@ -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;