diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-11-16 04:43:41 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-11-16 05:11:39 +0100 |
commit | 7414046cc73ecc16bfa2ce3af3cb529195ce120f (patch) | |
tree | 97adafa9b32725c2e92b280f005ff31da38655d6 /src/ortho/mcode/ortho_code-exprs.adb | |
parent | 9a8b35ac990386252bfb4e65f76acaa739d7967c (diff) | |
download | ghdl-7414046cc73ecc16bfa2ce3af3cb529195ce120f.tar.gz ghdl-7414046cc73ecc16bfa2ce3af3cb529195ce120f.tar.bz2 ghdl-7414046cc73ecc16bfa2ce3af3cb529195ce120f.zip |
mcode: add new_default_value.
Diffstat (limited to 'src/ortho/mcode/ortho_code-exprs.adb')
-rw-r--r-- | src/ortho/mcode/ortho_code-exprs.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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; |