diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-08-06 06:45:40 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-08-06 06:45:40 +0000 |
| commit | 63925c8de8d3171e6b258796e4d167524691490a (patch) | |
| tree | a8e7971f5889da0b7bba2cd7f9624c704d0145df /ortho/mcode/ortho_code-decls.adb | |
| parent | 3841c37a946481815c89928ccd15b71b608aa526 (diff) | |
| download | ghdl-63925c8de8d3171e6b258796e4d167524691490a.tar.gz ghdl-63925c8de8d3171e6b258796e4d167524691490a.tar.bz2 ghdl-63925c8de8d3171e6b258796e4d167524691490a.zip | |
bugs fixed
Diffstat (limited to 'ortho/mcode/ortho_code-decls.adb')
| -rw-r--r-- | ortho/mcode/ortho_code-decls.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_code-decls.adb b/ortho/mcode/ortho_code-decls.adb index 44a2595f5..0a8b02cf3 100644 --- a/ortho/mcode/ortho_code-decls.adb +++ b/ortho/mcode/ortho_code-decls.adb @@ -322,6 +322,7 @@ package body Ortho_Code.Decls is procedure New_Const_Value (Cst : O_Dnode; Val : O_Cnode) is begin if Dnodes.Table (Cst).Info2 /= 0 then + -- Value was already set. raise Syntax_Error; end if; Dnodes.Table (Cst).Info2 := Int32 (Val); |