From b250273b27b71e2096f05fe4669dae42d83f4e26 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 5 Jun 2015 21:51:42 +0200
Subject: ortho/debug: detect too many associations.

---
 src/ortho/debug/ortho_debug.adb | 4 ++++
 1 file changed, 4 insertions(+)

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,
-- 
cgit v1.2.3