aboutsummaryrefslogtreecommitdiffstats
path: root/src/ortho/mcode/ortho_code-x86-emits.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/ortho/mcode/ortho_code-x86-emits.adb')
-rw-r--r--src/ortho/mcode/ortho_code-x86-emits.adb13
1 files changed, 7 insertions, 6 deletions
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;