From 04cd83fb46bee1e7a7b37be95bee73449af9c8b8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 24 Jul 2020 18:31:11 +0200
Subject: ortho: add unbounded records, rework array subtypes.

---
 src/ortho/mcode/ortho_code-x86-emits.adb | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/ortho/mcode/ortho_code-x86-emits.adb')

diff --git a/src/ortho/mcode/ortho_code-x86-emits.adb b/src/ortho/mcode/ortho_code-x86-emits.adb
index 91db6b54d..f55793eec 100644
--- a/src/ortho/mcode/ortho_code-x86-emits.adb
+++ b/src/ortho/mcode/ortho_code-x86-emits.adb
@@ -3163,10 +3163,10 @@ package body Ortho_Code.X86.Emits is
    begin
       case Get_Const_Kind (Val) is
          when OC_Signed
-           | OC_Unsigned
-           | OC_Float
-           | OC_Null
-           | OC_Lit =>
+            | OC_Unsigned
+            | OC_Float
+            | OC_Null
+            | OC_Lit =>
             Get_Const_Bytes (Val, H, L);
             case Get_Type_Mode (Get_Const_Type (Val)) is
                when Mode_U8
@@ -3216,8 +3216,9 @@ package body Ortho_Code.X86.Emits is
                Gen_8 (0);
             end loop;
          when OC_Sizeof
-           | OC_Alignof
-           | OC_Union =>
+            | OC_Record_Sizeof
+            | OC_Alignof
+            | OC_Union =>
             raise Program_Error;
       end case;
    end Emit_Const;
-- 
cgit v1.2.3