diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-15 06:01:47 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-17 21:04:45 +0100 |
| commit | 228c201e45fd56cb3a32fed0abb6285a95fa9c91 (patch) | |
| tree | 943a546f6049c434745776aa2205688de001ff60 /src/ortho/mcode/ortho_code-decls.ads | |
| parent | 841d7b35dfc55fe8be9a5155bc069fb6e467af1f (diff) | |
| download | ghdl-228c201e45fd56cb3a32fed0abb6285a95fa9c91.tar.gz ghdl-228c201e45fd56cb3a32fed0abb6285a95fa9c91.tar.bz2 ghdl-228c201e45fd56cb3a32fed0abb6285a95fa9c91.zip | |
mcode: init support for initialized variables.
Diffstat (limited to 'src/ortho/mcode/ortho_code-decls.ads')
| -rw-r--r-- | src/ortho/mcode/ortho_code-decls.ads | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/ortho/mcode/ortho_code-decls.ads b/src/ortho/mcode/ortho_code-decls.ads index ad18892fe..0cd532593 100644 --- a/src/ortho/mcode/ortho_code-decls.ads +++ b/src/ortho/mcode/ortho_code-decls.ads @@ -20,7 +20,10 @@ with Ortho_Code.Abi; package Ortho_Code.Decls is -- Kind of a declaration. type OD_Kind is (OD_Type, - OD_Const, OD_Const_Val, + OD_Const, + + -- Value of constant, initial value of variable. + OD_Init_Val, -- Global and local variables. OD_Var, OD_Local, @@ -55,7 +58,8 @@ package Ortho_Code.Decls is procedure Set_Decl_Reg (Decl : O_Dnode; Reg : O_Reg); -- Return the next decl (in the same scope) after DECL. - -- This skips declarations in an inner block. + -- This skips declarations in an inner block, but returns interfaces for + -- a subprogram. function Get_Decl_Chain (Decl : O_Dnode) return O_Dnode; -- Get the last declaration. @@ -188,6 +192,9 @@ package Ortho_Code.Decls is procedure Mark (M : out Mark_Type); procedure Release (M : Mark_Type); + -- Allocate non explicitly initialized variables. + procedure Alloc_Zero; + procedure Finish; private type O_Inter_List is record |