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-x86-abi.adb | |
| 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-x86-abi.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-x86-abi.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/ortho/mcode/ortho_code-x86-abi.adb b/src/ortho/mcode/ortho_code-x86-abi.adb index aa6eb1913..b474f2bd6 100644 --- a/src/ortho/mcode/ortho_code-x86-abi.adb +++ b/src/ortho/mcode/ortho_code-x86-abi.adb @@ -202,10 +202,15 @@ package body Ortho_Code.X86.Abi is Emits.Emit_Var_Decl (Decl); end Expand_Var_Decl; - procedure Expand_Const_Value (Decl : O_Dnode; Val : O_Cnode) is + procedure Expand_Var_Zero (Decl : O_Dnode) is begin - Emits.Emit_Const_Value (Decl, Val); - end Expand_Const_Value; + Emits.Emit_Var_Zero (Decl); + end Expand_Var_Zero; + + procedure Expand_Init_Value (Decl : O_Dnode; Val : O_Cnode) is + begin + Emits.Emit_Init_Value (Decl, Val); + end Expand_Init_Value; procedure Disp_Label (Label : O_Enode) is |