diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-27 17:50:12 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-28 17:47:48 +0200 |
| commit | 691d4875f0710e0603a7ae563600f9a6c041c6d6 (patch) | |
| tree | 529071dca47189003ebc87cc6e1c6afd5e12b975 /src/ortho/mcode/ortho_code-x86-emits.adb | |
| parent | 58756712b9465c24e1d2a198e5a03aae7ebbf774 (diff) | |
| download | ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.tar.gz ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.tar.bz2 ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.zip | |
ortho: add a length parameter to start_array_aggr.
Diffstat (limited to 'src/ortho/mcode/ortho_code-x86-emits.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-x86-emits.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ortho/mcode/ortho_code-x86-emits.adb b/src/ortho/mcode/ortho_code-x86-emits.adb index cc27a3a23..a8696d19f 100644 --- a/src/ortho/mcode/ortho_code-x86-emits.adb +++ b/src/ortho/mcode/ortho_code-x86-emits.adb @@ -3216,7 +3216,7 @@ package body Ortho_Code.X86.Emits is Gen_Pow_Align (Get_Type_Align (Dtype)); Set_Symbol_Pc (Sym, Get_Decl_Storage (Decl) = O_Storage_Public); - Prealloc (Pc_Type (Get_Type_Size (Dtype))); + Prealloc (Pc_Type (Consts.Get_Const_Size (Val))); Emit_Const (Val); Set_Current_Section (Sect_Text); |