diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:50:25 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:50:25 +0200 |
commit | 473c83961abe4e2fb52c8812e46bf19a41fe52cf (patch) | |
tree | 130b71c9e47b60837257ab7b104adf99d44152b8 /src/ortho/mcode/ortho_code-exprs.ads | |
parent | 6581cce8c6ea51b5386156fa4d21bd8f1865f851 (diff) | |
download | ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.tar.gz ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.tar.bz2 ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.zip |
src/ortho: add new_convert.
Diffstat (limited to 'src/ortho/mcode/ortho_code-exprs.ads')
-rw-r--r-- | src/ortho/mcode/ortho_code-exprs.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-exprs.ads b/src/ortho/mcode/ortho_code-exprs.ads index 0bb5ec2bb..b1d95e45e 100644 --- a/src/ortho/mcode/ortho_code-exprs.ads +++ b/src/ortho/mcode/ortho_code-exprs.ads @@ -75,6 +75,7 @@ package Ortho_Code.Exprs is -- ARG1 is expression. -- ARG2: type OE_Conv_Ptr, + OE_Conv_Ov, OE_Conv, -- Typed expression. @@ -478,6 +479,7 @@ package Ortho_Code.Exprs is -- Allowed conversions are: -- FIXME: to write. function New_Convert_Ov (Val : O_Enode; Rtype : O_Tnode) return O_Enode; + function New_Convert (Val : O_Enode; Rtype : O_Tnode) return O_Enode; -- Get the address of LVALUE. -- ATYPE must be a type access whose designated type is the type of LVALUE. |