From 7414046cc73ecc16bfa2ce3af3cb529195ce120f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 16 Nov 2017 04:43:41 +0100
Subject: mcode: add new_default_value.

---
 src/ortho/mcode/ortho_code-exprs.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/src/ortho/mcode/ortho_code-exprs.adb b/src/ortho/mcode/ortho_code-exprs.adb
index 47064e76e..4e0d6bdc4 100644
--- a/src/ortho/mcode/ortho_code-exprs.adb
+++ b/src/ortho/mcode/ortho_code-exprs.adb
@@ -721,7 +721,8 @@ package body Ortho_Code.Exprs is
               | OC_Record
               | OC_Union
               | OC_Sizeof
-              | OC_Alignof =>
+              | OC_Alignof
+              | OC_Zero =>
                raise Syntax_Error;
          end case;
       end if;
-- 
cgit v1.2.3