From 9dbe65d4db54dd5d44e2d140fa008e3150b882de Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Jun 2017 07:53:12 +0200
Subject: Allocate dynamic object in suspended procedures on stack2.

---
 src/vhdl/translate/trans-helpers2.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/vhdl/translate/trans-helpers2.adb')

diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb
index 500753bb5..11ea54042 100644
--- a/src/vhdl/translate/trans-helpers2.adb
+++ b/src/vhdl/translate/trans-helpers2.adb
@@ -129,8 +129,7 @@ package body Trans.Helpers2 is
    end Gen_Memcpy;
 
    function Gen_Alloc
-     (Kind : Allocation_Kind; Size : O_Enode; Ptype : O_Tnode)
-         return O_Enode
+     (Kind : Allocation_Kind; Size : O_Enode; Ptype : O_Tnode) return O_Enode
    is
       Constr : O_Assoc_List;
    begin
-- 
cgit v1.2.3