From 8520993b4d1eadefa488dfc96dff25333f1b19db Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Fri, 4 Sep 2015 21:52:38 +0200
Subject: Suppress stack switching; save process state in secondary stack.

---
 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 9a4b285..6b8b28b 100644
--- a/src/vhdl/translate/trans-helpers2.adb
+++ b/src/vhdl/translate/trans-helpers2.adb
@@ -26,8 +26,7 @@ with Trans.Foreach_Non_Composite;
 package body Trans.Helpers2 is
    use Trans.Helpers;
 
-   procedure Copy_Fat_Pointer (D : Mnode; S: Mnode)
-   is
+   procedure Copy_Fat_Pointer (D : Mnode; S: Mnode) is
    begin
       New_Assign_Stmt (M2Lp (Chap3.Get_Array_Base (D)),
                        M2Addr (Chap3.Get_Array_Base (S)));
-- 
cgit