From e849553d7deea2c6c7d97012043946e1e105783e Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 14 Jun 2014 17:12:21 +0200
Subject: aggregate: set location on '('

---
 parse.adb | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'parse.adb')

diff --git a/parse.adb b/parse.adb
index b1ddc744e..109c0bf96 100644
--- a/parse.adb
+++ b/parse.adb
@@ -3487,7 +3487,10 @@ package body Parse is
       Loc : Location_Type;
    begin
       Loc := Get_Token_Location;
+
+      --  Skip '('
       Scan;
+
       if Current_Token /= Tok_Others then
          Expr := Parse_Expression;
          case Current_Token is
@@ -3516,11 +3519,7 @@ package body Parse is
          Expr := Null_Iir;
       end if;
       Res := Create_Iir (Iir_Kind_Aggregate);
-      if Expr /= Null_Iir then
-         Location_Copy (Res, Expr);
-      else
-         Set_Location (Res);
-      end if;
+      Set_Location (Res, Loc);
       Build_Init (Last);
       loop
          if Current_Token = Tok_Others then
-- 
cgit v1.2.3