diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-06-05 21:51:42 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-06-05 21:51:42 +0200 |
| commit | b250273b27b71e2096f05fe4669dae42d83f4e26 (patch) | |
| tree | 52c1f3112498784fc084cac9a6e02280f8f8d732 | |
| parent | a96f432bba47f005c7a9e0febd6cc078c750aec6 (diff) | |
| download | ghdl-b250273b27b71e2096f05fe4669dae42d83f4e26.tar.gz ghdl-b250273b27b71e2096f05fe4669dae42d83f4e26.tar.bz2 ghdl-b250273b27b71e2096f05fe4669dae42d83f4e26.zip | |
ortho/debug: detect too many associations.
| -rw-r--r-- | src/ortho/debug/ortho_debug.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/ortho/debug/ortho_debug.adb b/src/ortho/debug/ortho_debug.adb index 8285a6473..ca67b33e4 100644 --- a/src/ortho/debug/ortho_debug.adb +++ b/src/ortho/debug/ortho_debug.adb @@ -1575,6 +1575,10 @@ package body Ortho_Debug is is N : O_Anode; begin + if Assocs.Interfaces = null then + -- Too many arguments. + raise Syntax_Error; + end if; Check_Type (Assocs.Interfaces.Dtype, Val.Rtype); Check_Ref (Val); N := new O_Anode_Type'(Next => null, |