From 26af2bf1ad5f949e05d0e3ac560bbd22e41d7158 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 2 Sep 2015 18:25:59 +0200 Subject: mcode: fix alignment of structure (thinko). --- src/ortho/mcode/ortho_code-types.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/ortho/mcode') diff --git a/src/ortho/mcode/ortho_code-types.adb b/src/ortho/mcode/ortho_code-types.adb index e0c070c27..e5893aa08 100644 --- a/src/ortho/mcode/ortho_code-types.adb +++ b/src/ortho/mcode/ortho_code-types.adb @@ -621,9 +621,9 @@ package body Ortho_Code.Types is (Elements : in out O_Element_List; Res : out O_Tnode) is begin + Tnodes.Table (Elements.Res).Align := Elements.Align; Tnodes.Table (Elements.Res).Size := Do_Align (Elements.Off, Elements.Res); - Tnodes.Table (Elements.Res).Align := Elements.Align; Tnodes.Table (Elements.Res + 1) := To_Tnode_Common (Tnode_Record'(Fields => Elements.First_Field, Nbr_Fields => Elements.Nbr)); -- cgit v1.2.3